syntaxe if then

Allo Hervé,

Peut-être que ça peut t'aider:

Sub SI()

Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Are you happy?"
Style = vbYesNo
Response = MsgBox(Msg, Style)
If Response = vbYes Then
MyString = "Oui" ' Effectue une action.
MsgBox "your ok" 'Effectue une 2e action

Else
MyString = "Non" ' Effectue une action.
MsgBox "Nothing seems to be right!" 'Effectue une 2e action
End If

End Sub


Ou tu peux utiliser le Case:

Sub usageCase()


Dim Number
Number = 8 ' Initialise la variable.
Select Case Number ' Évalue Number.
Case 1 To 5 ' Le nombre est compris entre 1 et 5 inclus.
Debug.Print "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.
Debug.Print "Entre 6 et 8"
Case 9 To 10 ' Le nombre est 9 ou 10.
Debug.Print "Supérieur à 8"
Case Else ' Autres valeurs.
Debug.Print "Non compris entre 1 et 10"
End Select


End Sub

Bonsoir,

Si j'ai bien compris, Hervé, voici comment écrire plusieurs actions dans une boucle if then else…

If Condition1 then
Action 1
Action2
Else
Action3
Action4
end if

Petit conseil:
Devant chaque condition, tu mets une tabulation (ce n'est pas possible ici sur le forum, mais dans VBA, cela facilite la lecture. Dans les lignes ci-dessous, j'ai mis des points)

Tu peux même faire ceci:
If condition1 then
….Action1
….Action2
……………..
….Action n
elseif Condition2
….Action n+1
……………….…..
else
……Action m
………………...….
end if

Bonne soirée.

re

merci monsieurpatate et laurent

je prends les deux réponses. laurent pour la syntaxe et monsieur patate pour les select case.

encore merci

bonne soirée
Hervé