Remerciez-le!

Remerciez @Admin pour avoir partagé cet document gratuitement, de la manière la plus simple, en partageant sur les réseaux sociaux.

Algorithme if If CONDITION Then ' SI condition vraie ALORS 'Instructions si vrai Else ' SINON facultatif 'Instructions si faux End If Sub exemple 'Déclaration des variables Dim nom As String prenom As String age As Integer numeroLigne As Integer 'Valeurs

If CONDITION Then ' SI condition vraie ALORS 'Instructions si vrai Else ' SINON facultatif 'Instructions si faux End If Sub exemple 'Déclaration des variables Dim nom As String prenom As String age As Integer numeroLigne As Integer 'Valeurs des variables numeroLigne Range F nom Cells numeroLigne prenom Cells numeroLigne age Cells numeroLigne 'Bo? te de dialogue MsgBox nom prenom age ans End Sub Sub exemple 'Si la valeur entre parenthèses cellule F est numérique donc si la condition est vraie alors on exécute les instructions placées entre Then et End If If IsNumeric Range F Then 'Déclaration des variables Dim nom As String prenom As String age As Integer numeroLigne As Integer 'Valeurs des variables numeroLigne Range F nom Cells numeroLigne prenom Cells numeroLigne age Cells numeroLigne 'Bo? te de dialogue MsgBox nom prenom age ans End If End Sub Sub exemple 'Si F est numérique If IsNumeric Range F Then 'Déclaration des variables Dim nom As String prenom As String age As Integer numeroLigne As Integer 'Valeurs des variables numeroLigne Range F nom Cells numeroLigne Cprenom Cells numeroLigne age Cells numeroLigne 'Bo? te de dialogue MsgBox nom prenom age ans 'Si F n'est pas numérique Else 'Bo? te de dialogue avertissement MsgBox L'entrée Range F n'est pas valide 'Suppression du contenu de la cellule F Range F End If End Sub Sub exemple 'Si F est numérique If IsNumeric Range F Then Dim nom As String prenom As String age As Integer numeroLigne As Integer numeroLigne Range F 'Si le numéro est dans la bonne plage If numeroLigne And numeroLigne Then nom Cells numeroLigne prenom Cells numeroLigne age Cells numeroLigne MsgBox nom prenom age ans 'Si le numéro est en dehors de la plage Else MsgBox L'entrée Range F n'est pas un numéro valide Range F End If 'Si F n'est pas numérique Else MsgBox L'entrée Range F n'est pas valide Range F End If End Sub Sub exemple 'Si F est numérique If IsNumeric Range F Then Dim nom As String prenom As String age As Integer numeroLigne As Integer nbLignes As Integer CnumeroLigne Range F nbLignes WorksheetFunction CountA Range A A 'Fonction NBVAL 'Si le numéro est dans la bonne plage If numeroLigne And numeroLigne nbLignes Then nom Cells numeroLigne prenom Cells numeroLigne age Cells numeroLigne MsgBox nom prenom age ans 'Si le numéro est en dehors de la plage Else MsgBox L'entrée Range F n'est pas un numéro valide Range F End If 'Si F n'est pas numérique Else MsgBox L'entrée Range F n'est pas valide Range F End If End Sub If CONDITION Then ' SI la condition est vraie ALORS 'Instructions ElseIf CONDITION Then ' SINON SI la condition est vraie ALORS 'Instructions Else ' SINON 'Instructions End If Sub commentaires 'Variables Dim note As Single commentaire As String note Range A 'Commentaire en fonction de la note If note Then commentaire Excellent résultat ElseIf note Then commentaire Bon résultat ElseIf note Then commentaire Résultat satisfaisant ElseIf note Then commentaire Résultat insatisfaisant ElseIf