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
A voir également:
- Commande du bouton dans un MSGBOX en VBA
- Invite de commande - Guide
- Commande terminal mac - Guide
- Bouton reinitialisation pc - Guide
- Commande dism - Guide
- Diagnostic bouton photo - Accueil - Outils
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
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