Commande du bouton dans un MSGBOX en VBA

Résolu/Fermé
bobtipitt - 22 mars 2008 à 18:05
 bobtipitt - 22 mars 2008 à 18:38
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

2 réponses

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
0
merci
0