Choix depuis message box
Résolu/Fermé
A voir également:
- Choix depuis message box
- Message - Guide
- Recuperer message whatsapp supprimé - Guide
- Liste déroulante de choix excel - Guide
- Message d'absence thunderbird - Guide
- Adresse ip box - Guide
2 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 751
Modifié par pijaku le 20/12/2013 à 12:01
Modifié par pijaku le 20/12/2013 à 12:01
Bonjour,
Oui, très simplement.
<italique>Cordialement,
Franck
Oui, très simplement.
Dim Reponse As Integer Reponse = MsgBox("Voulez-vous coucher avec moi?", VbYesNo + VbQuestion, "Ce soir?") If reponse = VbYes Then 'ICI Cas du clic sur oui MsgBox "Super!" Else 'ICI Cas du clic sur Non MsgBox "Pas Glop..." End If
<italique>Cordialement,
Franck
'Pensez aux balises de code : bouton <>, 'Précisez le langage dans la liste déroulante. Ex : code java
melanie1324
Messages postés
1504
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
154
20 déc. 2013 à 12:03
20 déc. 2013 à 12:03
Bonjour,
remplace ton msgbox "Ici, je coule..."
par :
Var = MsgBox("Confirmez-vous les données ? Si Oui, les données seront copiées, si non, corrigez les erreurs et recliquez sur le bouton.", vbYesNo)
If Var = vbYes Then
MsgBox "Ou veux-tu copier les données "
Else
Sheets("Entrées").Select
End If
remplace ton msgbox "Ici, je coule..."
par :
Var = MsgBox("Confirmez-vous les données ? Si Oui, les données seront copiées, si non, corrigez les erreurs et recliquez sur le bouton.", vbYesNo)
If Var = vbYes Then
MsgBox "Ou veux-tu copier les données "
Else
Sheets("Entrées").Select
End If
22 déc. 2013 à 08:21
Amicalement