Commen créer un MsgBox avec 2 boutons ?

Question

bonjour ,  je suis debutant et je voudrai savoir si quelqun a un code simple pour cr&#233;er un MsgBox qui me servirai de message de confirmation , et donc il me faudrai 2 boutons valider et annuler . et en fonction du bouton cliqu&#233; , effectuer l'action appropri&#233;e ......

Merci davance .

biscuitema · Answer

C'est tout simple, si tu veux un message box avec deux boutons tu ecris :
reponse = MsgBox("Ta chaine de caract&#232;re",VbOkCancel)

Normalement, ca doit marcher

Biscuit

FFkiller · Answer

Salut,

tape ca



a = msgbox(prompt,vbokcancel,title)



FFkiller





PS : Pensez que si une r&#233;ponse vous convient &#224; le signaler ("R&#233;ponse accept&#233;e") afin que d'autres utilisateurs le sache

XtremDuke · Answer

Dim Reponse As VbMsgBoxResult



Reponse = MsgBox("Messge", vbInformation + vbOKCancel, "Titre")



If Reponse = vbYes Then

    'Action...

Else

    'Action...

End If








..::DuKe::..

FFkiller · Answer

Salut,



Pour ton cas plus pr&#233;cis 



a= masgbox("Vous avez saisie : "&tavariablesaisie& " Etes vous
d'accord ?"  ,Vbokcancel**,"Validation de votre Saisie"



**tu peux aussi utiliser vbyesno



FFkiller





PS : Pensez que si une r&#233;ponse vous convient &#224; le signaler ("R&#233;ponse accept&#233;e") afin que d'autres utilisateurs le sache

damiendu56 · Answer

ok merci. donc jai fais :



choixMsg = MsgBox("Informations exactes ?", vbYesNo, "ATTENTION !")

If (choixMsg = vbYes) Then

......

EndIf





Donc c bon ca marche mais g vu quil existe aussi "vbExclamation" pour
faire un message d'avertissement. Seulement en utilisant
"vbExclamation" au lieu de "vbYesNo" je nai plus mes 2 boutons .



Y a til un moyen de combiner les deux ???????

damiendu56 · Answer

nan c bon g trouv&#233;, il faut additionner les codes des deux :



vbYesNo    4 

vbExclamation    48



donc 52 en parametre :  
choixMsg = MsgBox("Informations exactes ?", 52, "ATTENTION !")

crenaud76 · Answer

Evite d'utiliser les valeur num&#233;rique !!!
choixMsg = MsgBox("Informations exactes ?", vbYesNo + vbExclamation, "ATTENTION !")  

C'est bien plus simple &#224; relire !!!

 Christophe R

Commen créer un MsgBox avec 2 boutons ?

7 réponses

Discussions similaires