MsgBox

Résolu/Fermé
Serval07 Messages postés 15 Date d'inscription mardi 16 octobre 2007 Statut Membre Dernière intervention 15 septembre 2008 - 23 oct. 2007 à 13:44
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 24 oct. 2007 à 14:58
Bonjour, j`ai un autre probleme.J`ai un Msgbox dans un bouton pour quitter un userform.Si l`utilisataire clique sur oui alors le userform va ceux fermer mais si il choisi non alors tout doit continué comme si il c`était rien passé. Le msgbox marche seulement quand on a choisi l`option oui.Voici mon code :

Private Sub CommandButton1_Click()
MsgBox "Are you sure you want to cancel the operations", vbYesNo, "Cabling Sheet"

If vbYes Then
Unload UserForm1

Else
MsgBox ("Vous pouvez continuer")
UserForm1.Show
End If

End Sub

4 réponses

Serval07 Messages postés 15 Date d'inscription mardi 16 octobre 2007 Statut Membre Dernière intervention 15 septembre 2008 2
24 oct. 2007 à 10:23
Bonjour, je viens de trouver la solution a mon problème.
Voici le code

Private Sub CommandButton1_Click()
answer = MsgBox("Are you sure you want to cancel the operations? ", vbYesNo + vbCritical, "Cabling Sheet") '
If answer = vbYes Then
Unload Me
End If
End Sub
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
24 oct. 2007 à 14:33
Bonjour,

Oui c'est comme ça qu'il faut faire mais n'oublies pas de déclarer tes variables: Dim answer As Integer et que fait ton programme si l'utilisateur clique sur "NO" ???

;o)


Polux
0
Serval07 Messages postés 15 Date d'inscription mardi 16 octobre 2007 Statut Membre Dernière intervention 15 septembre 2008 2
24 oct. 2007 à 14:45
Le programme continue comme il s`était rien passé.
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
24 oct. 2007 à 14:58
dans ce cas le préciser par un Exit Sub
0