If "expression de test" Then
Traitement si test Vrai (True)
Else
Traitement si test Faux (False)
End if
Exemple :
If MonNom = "Toto" then
MsgBox "Bonjour Toto"
Else
MsgBox "Bonjour inconnu"
End If
Exemple sans Else :
If Is Not Null(MaValeur) then
MsgBox MaValeur
End If
Exemple Tests multiples:
If MonNom <> "" then
ElseIf MonNom = "Toto"
MsgBox "Bonjour Toto"
Else
MsgBox "Bonjour Inconnu"
End If
Le premier exemple test si la variable MonNom contient la chaine Toto ( Attention, sensible à la casse)
Si Oui alors l'application m'envoie une boite de dialogue "Bonjour Toto" sinon elle m'envoie "Bonjour Inconnu"
Le deuxieme exemple teste si la variable MaValeur n'est pas Null et si c'est le cas me renvoie sa valeur, Enfin le troisième test
présente une syntaxe pour enchainer des tests multiples, le premier test verifie que la chaine n'est pas vide.
L'instruction Select Case
Syntaxe
Select Case expression test
[Case expressionlist-n
[traietement] ...
[Case expressionlist-n
[traietement] ...
[Case expressionlist-n
[traietement] ...
[Case Else
[elsestatements]]
End Select
Exemple
Select Case Number ' Évalue Number.
Case 1 To 5 ' Le nombre est compris entre 1 et 5 inclus.
MsgBox "Entre 1 et 5"
' La locution Case suivante est la seule qui prend la
' valeur True.
Case 6, 7, 8 ' Le nombre est compris entre 6 et 8.
MsgBox "Entre 6 et 8"
Case 9 To 10 ' Le nombre est 9 ou 10.
MsgBox "Supérieur à 8"
Case Else ' Autres valeurs.
MsgBox "Non compris entre 1 et 10"
End Select
