Commande du bouton dans un MSGBOX en VBA Résolu/Fermé

Question

Bonjour,
voici mon probleme,
Je veux que dans mon MSGBOX il a les boutons No et Yes moi je veux programmer le boutton No pourque l'userForm1 apparait voici le code qui ne functionne pas

Private Sub CommandButton1_Click()
Unload UserForm1
Collem = Range("B1").Value
MsgBox "Vous avez choisie " & Collem & " comme lettre?", vbYesNo

Select Case Res
Case vbNo
       Load UserForm1
       UserForm1.Show

End Select
End Sub

amigo · Answer

Bonjour,

Il faut employer MsgBox comme une fonction et non une instruction

Private Sub CommandButton1_Click()
dim reponse as integer

Unload UserForm1
Collem = Range("B1").Value
reponse = MsgBox ("Vous avez choisie " & Collem & " comme lettre?", vbYesNo)

Select Case reponse
Case vbNo
Load UserForm1
UserForm1.Show

End Select
End Sub

bobtipitt · Answer

merci

Commande du bouton dans un MSGBOX en VBA

2 réponses

Discussions similaires