Msgbox

[www.KarlMarx.com]

Bonjour à tous,
je voulais savoir quel serait le code VBA pour une macro commençant par afficher une boîte de dialogue avec les message suivant "tous les filtres ont ils étaient enlevés ? avec deux réponses possibles oui et non. Dans le cas de non la macro s'arrête et dans le cas de oui le reste de la macro s'exécute.

Merci d'avance.

KM

 

[tototiti2008]

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

 

[www.KarlMarx.com]

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

 

[tototiti2008]

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.

 

[www.KarlMarx.com]

Re : Msgbox

OK, merci beaucoup.

KM