Commande du bouton dans un MSGBOX en VBA
Résolu
bobtipitt
-
bobtipitt -
bobtipitt -
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
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
Configuration: Windows Vista Firefox 2.0.0.12
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 -
