VbYesNo

Signaler
Messages postés
234
Date d'inscription
mardi 31 décembre 2002
Statut
Membre
Dernière intervention
30 juillet 2008
-
Messages postés
3
Date d'inscription
mercredi 26 décembre 2007
Statut
Membre
Dernière intervention
26 décembre 2007
-
Voila mon prob:
J'ai un MsgBox avec le bouton oui et le non et je vousdrais que lorsqu'on click sur le oui il y ait un truc du genre MsgBox "ok" et sur le non MsgBox "NO"
Pouvais vous m'aider Stp?
Merci d'avance...

6 réponses

Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
100
Salut,

Ben c'est tout simple :

If MsgBox("Ok ou Non ?", vbYesNo + vbQuestion, "Ok ou NON ?" = vbYes Then

Msgbox "Ok"

Else

MsgBox "NON"

End If

DarK Sidious

[Responsable de la rubrique API et responsable VB du site www.ProgOtoP.com]
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
100
Salut,

Ben c'est tout simple :

If MsgBox("Ok ou Non ?", vbYesNo + vbQuestion, "Ok ou NON ?" = vbYes Then

Msgbox "Ok"

Else

MsgBox "NON"

End If

DarK Sidious

[Responsable de la rubrique API et responsable VB du site www.ProgOtoP.com]
Messages postés
234
Date d'inscription
mardi 31 décembre 2002
Statut
Membre
Dernière intervention
30 juillet 2008

ouai c'est tout simple... Quand on le sait.
Sinon je te remercie de ton aide...
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
100
Je ne voulais pas te vexer en disant que c'était tout simple ;-)

Je suis content d'avoir pu te venir en aide !

DarK Sidious

[Responsable de la rubrique API et responsable VB du site www.ProgOtoP.com]
Messages postés
234
Date d'inscription
mardi 31 décembre 2002
Statut
Membre
Dernière intervention
30 juillet 2008

non t'intiéte tu m'a pas vexé !!!!
Je Dconé lol :big)
Aller @+ et Bon prog...
Messages postés
3
Date d'inscription
mercredi 26 décembre 2007
Statut
Membre
Dernière intervention
26 décembre 2007

Salut,
moi je mets :
Sub nomdemacro()
toto = MsgBox("repondre oui ou non", vbYesNo) 'toto est la variable
If toto = 6 Then 'renvoi la valeur 6 pour le clic sur oui et 4 pour le clic sur non
uu = MsgBox("ok", vbOKOnly)
Else
uu = MsgBox("non", vbCritical)
End If
End Sub
Noel