Discussion :

[erlerwade]

Bonjour Forum ,

J'ai fait deux macros qui marchent parfaitement. Je voudrai juste faire un bouton qui me permettrait d’exécuter au choix l'une des deux macros.
Donc j'aimerai un programme qui lorsque je clique sur mon bouton déclenche le msg Box qui pose la question : "veuillez cliquer sur yes pour exécuter la première macro ou sur No pour exécuter la deuxième macro "

cordialement

Bonjour,
J'ai fait une macro avec un choix au début le "yes" appelle une autre macro nommé test et le "No" à une autre macro nommée testeur .
je veux quand le choix correspond à éyesé d’exécuter juste la macro appelée et donc de sortir du programme avant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

end sub

.
Merci

[YassDumb]

Bonjour, ceci devrait fonctionner

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Select Case MsgBox("Question", vbYesNo + vbQuestion, "Titre de la MsgBox")
 
           Case vbYes
 
                   ' Macro 1
 
           Case vbNo
 
                   ' Macro 2             
 
End Select

[Philippe Tulliez]

Bonjour,
L'instruction Exit Procédure.
Autrement dit Exit Sub ou Exit Function

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
If MsgBox("toto", vbYesNo) = vbYes Then
    Macro1
    Exit Sub
Else
    macro2
End If
'suite macro mère
End Sub

[erlerwade]

mercatog ,

Si au lieu de cliquer sur "yes" ou "No" n voudrait à la place faire la même chose mais la condition d’exécuter une macro ou un autre serait le nombre inscrit dans la cellule(A1) .
je m'explique lorsque je mets 1 et que je clique sur mon bouton je n'exécute que la macro1.
lorsque je mets 2 dans la cellule je n’exécute que la macro2 ...

Merci

yassDumb ,

Si au lieu de cliquer sur "yes" ou "No" on voudrait à la place de la commande :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Select Case MsgBox("Question", vbYesNo + vbQuestion, "Titre de la MsgBox")

référer le test sur la valeur que contient la cellule(E19)

je m'explique lorsque je mets 1 dans la cellule(E19)et que je clique sur mon bouton je n'exécute que la macro1.
lorsque je mets 2 dans la cellule je n’exécute que la macro2 ...

Merci

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
If Worksheets("Feuil1").Range("A1") = 1 Then
    Macro1
    Exit Sub
Else
    macro2
End If
'suite macro mère
End Sub