Msgbox

tototiti2008

XLDnaute Barbatruc

• 16 Septembre 2008

• #2

Re : Msgbox

Bonjour KM,

un truc comme :

Dim Rep as integer

Rep = Msgbox(Prompt:="Tous les filtres ont ils été enlevés ?", Title:="Attention", Buttons:=vbQuestion+vbyesNo)
If Rep = vbno then Exit Sub
'Reste de la macro

 

Vote positif 0 Vote négatif

W

www.KarlMarx.com

Guest

• 16 Septembre 2008

• #3

Re : Msgbox

OK merci. Un détail, pour la suite de la macro faut-il la faire précéder d'un code comme if Rep = Vbyes then... et si oui par quoi doit se terminer ce code ?

KM

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 16 Septembre 2008

• #4

Re : Msgbox

à priori non, puisque si on a répondu non, on a déjà quitté la procédure (sub). Donc logiquement, on a répondu Oui si la suite s'execute.

 

Vote positif 0 Vote négatif

W

www.KarlMarx.com

Guest

• 16 Septembre 2008

• #5

Re : Msgbox

OK, merci beaucoup.

KM

 

Vote positif 0 Vote négatif