Confirmation pour lancer une macro

[juju59]

Bonjour à tous,

J'ai une petite question qui a mon avis ne devrait pas poser trop de problème mais a laquelle je ne trouve pas de réponse.

J'ai un bouton qui lance une macro, je voudrai créer un msgbox demandant la confirmation "voulez vous continuer" jusqu'ici tout va bien.

     MsgBox "Voulez-vous continuer ?", vbYesNo, "Voulez-vous continuer ?"

Sauf que je ne sais pas comment attribuer au bouton
yes : la macro continue
no : la macro se stop sans message d'erreur et sans bug

je pense qu'il y a une histoire de :

case vbyes

et

case vbno

Merci par avance

Cordialement

 

[Pierrot93]

Re : Confirmation pour lancer une macro

Bonjour,

essaye comme ceci :

If MsgBox("Voulez-vous continuer ?", vbYesNo, "Voulez-vous continuer ?") = vbNo Then Exit Sub

bonne journée
@+

 

[Dranreb]

Re : Confirmation pour lancer une macro

Bonjour

Select Case MsgBox("Voulez-vous continuer ?", vbYesNo, LibelléTâche)

À+

Bonjour Pierrot93
Oui c'est vrai du reste, le Select Case n'est requis que pour vbYesNoCancel. L'essentiel c'est d'utiliser le MsgBox comme fonction retournant une valeur.

 

[Victor21]

Re : Confirmation pour lancer une macro

Bonjour, juju59

Ce que dit l'aide VBA :

Valeurs renvoyées par MsgBox
Constante Valeur Bouton choisi
vbOK 1 Bouton OK
vbCancel 2 Bouton Annuler
vbAbort 3 Bouton Abandonner
vbRetry 4 Bouton Répéter
vbIgnore 5 Bouton Ignorer
vbYes 6 Bouton Oui
vbNo 7 Bouton Non

If MsgBox "Voulez-vous continuer ?", vbYesNo, "Voulez-vous continuer ?"= 7 then exit sub devrait le faire.

Edit : Bonjour Pierrot93, Dranreb

 

[Hulk]

Re : Confirmation pour lancer une macro

Bonjour,

Voici un exemple...

Private Sub Worksheet_Change(ByVal Target As Range)

    Select Case MsgBox("Voulez-vous continuer ?", vbYesNo, "Confirmation")
        
        Case vbYes
            
            'Si oui, appel de la macro
            Call Macro1

        Case vbNo

            MsgBox ("Merci et au revoir")

    End Select
    
    
    'Note que tu peux fairte comme ceci, mais effectivement c'est
    'mieux de faire des macro et de les appeler.
    
    'Select Case MsgBox("Voulez-vous continuer ?", vbYesNo, "Confirmation")
        
    '    Case vbYes

    '        MsgBox ("Coucou")

    '    Case vbNo

    '        MsgBox ("Merci et au revoir")

    'End Select


End Sub

Private Sub Macro1()

    MsgBox ("Coucou")

End Sub

 

[Dranreb]

Re : Confirmation pour lancer une macro

If MsgBox "Voulez-vous continuer ?", vbYesNo, "Voulez-vous continuer ?"= 7 then exit sub devrait le faire.

Heu... Sans parenthèses, non !

 

[Pierrot93]

Re : Confirmation pour lancer une macro

Re,

Heu... Sans parenthèses, non !

Perso, je dirais avec...

 

[Dranreb]

Re : Confirmation pour lancer une macro

Seulement avec parenthèses, oui, donc sans parenthèses non.
À+

 

[Victor21]

Re : Confirmation pour lancer une macro

Merci, Dranreb.

If MsgBox ("Voulez-vous continuer ?", vbYesNo, "Voulez-vous continuer ?")= 7 then exit sub

Ce que c'est de ne pas tester pour essayer de griller les petits copains sur le poteau...

 

[juju59]

Re : Confirmation pour lancer une macro

Merci pour votre rapidité !
Donc je met mon msgbox normalement et a la ligne après je met donc ce:

"If MsgBox ("Voulez-vous continuer ?", vbYesNo, "Voulez-vous continuer ?")= 7 then exit sub "

et en dessous

"else + toute la macro"

et tout a la fin

"end if"

C'est bien ça ?

 

[Victor21]

Re : Confirmation pour lancer une macro

Re,

Non. le If...then sur la même ligne se suffit en lui-même. Pas de else, pas de end if.
Simplement le corps de ta macro en-dessous cette ligne.

 

[Dranreb]

Re : Confirmation pour lancer une macro

Non, pas besoin d'appleler MsgBox auparavent comme une procédure

Remarque: ça me paraît idiot de mettre le texte du message également comme titre de sa fenêtre: on y met plutôt une courte description du but de la procédure qui l'émet.
À+

 

[juju59]

Re : Confirmation pour lancer une macro

D'accord je vais essayer ça merci.

Dranreb : rassure toi je ne mets pas la même chose dans les deux, en vérité mon msbox contient une bien plus grande phrase que j'ai jugé inutile de recopier ici.

 

[juju59]

Re : Confirmation pour lancer une macro

ça marche très bien !

Merci pour votre rapidité !

A bientot