Choix depuis message box
Résolu/Fermé
A voir également:
- Choix depuis message box
- Recuperer message whatsapp - Guide
- Liste déroulante de choix excel - Guide
- Message d'absence thunderbird - Guide
- Ce compte ne peut pas recevoir vos messages car il n’autorise aucune invitation par message ✓ - Forum Facebook
- Light in the box problème ✓ - Forum Consommation & Internet
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 744
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
1505
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