If [condition] then [instruction] else [plusieurs instructions???]

[Andry]

Bonjour à tous!
J'ai une petite question
est qu'on peut exécuter plusieurs instructions après un "else"??
En faite, c'est pour un mot de passe saisie dans un textbox, si mot de passe faux: afficher un msgbox sinon fermer plusieurs userform et afficher une feuille.

Private Sub CommandButton1_Click()
If T111 <> "cowboy" Then MsgBox "Mot de passe incorect", vbCritical, "Mot de passe incorect" Else Application.Visible = 1
If T111 <> "cowboy" Then MsgBox "Mot de passe incorect", vbCritical, "Mot de passe incorect" Else UserForm4.Hide
If T111 <> "cowboy" Then MsgBox "Mot de passe incorect", vbCritical, "Mot de passe incorect" Else UserForm3.Hide

End Sub

Merci d'avance

 

[Efgé]

Re : If [condition] then [instruction] else [plusieurs instructions???]

Bonjour Andry
Peut être comme ça:

Private Sub CommandButton1_Click()
If T111  "cowboy" Then
    MsgBox "Mot de passe incorect", vbCritical, "Mot de passe incorect"
Else
    Application.Visible = 1
    UserForm4.Hide
    UserForm3.Hide
End If
End Sub

Cordialement

EDIT Bonjour tatiak

 

[Andry]

Re : If [condition] then [instruction] else [plusieurs instructions???]

Bonjour Tatiak et Efgé
Les 2 marchent parfaitement merci à vous

Encore une fois de plus je suis très satisfait de ce forum