Choix depuis message box

Résolu/Fermé
Philou99.CH - 20 déc. 2013 à 11:56
 Philou99.ch - 22 déc. 2013 à 08:21
Bonjour à vous,

Vous trouverez un programme Excel 2010 dans lequel je suis ennuyé.
Après avoir créé un dossier administratif d'une personne, l'utilisateur à une relecture sous une forme différente de ce qu'il a entrée. Jusque là, grâce à vous déjà d'ailleurs, j'ai pu évoluer.

Par contre j'aimerai savoir si il est possible d'avoir une boîte à message dans laquelle il y a le OUI et le NON. Et selon que l'utilisateur clic l'un ou l'autre, la suite du programme est différente.

D'avance je vous remercie

Le lien est :
http://cjoint.com/?3Lul3upqK0E
A voir également:

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
Bonjour,

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
0
Merci pour votre solution et le temps pris pour me répondre.
Amicalement
0
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
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
0
Merci pour votre solution et le temps pris pour me répondre.
Je la testerai dès mardi lors de mon retour au travail
Amicalement
0