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
A voir également:
- Commande du bouton dans un MSGBOX en VBA
- Invite de commande - Guide
- On off bouton - <a href="https://forums.commentcamarche.net/forum/facebook-209">Forum Facebook</a>
- Supprimer historique commande amazon ✓ - <a href="https://forums.commentcamarche.net/forum/reseaux-sociaux-10">Forum Réseaux sociaux</a>
- Commande en cours de validation fnac - <a href="https://forums.commentcamarche.net/forum/consommation-internet-301">Forum Consommation & Internet</a>
- Commande sfc scannow - Guide
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
