2 boutons qui renvoient vers meme macro mais avec une execution différente

bonjour

j'ai 2 boutons :

• boutons 1
• bouton 2

j'ai une macro codée comme ca:

sub ()
partie 1

partie2

end sub

j'aimerai faire ca:

si on clique sur bouton 1, ca execute la partie 1 de mon code

si on clique sur bouton 2, ca execute la partie 1 et la partie 2 de mon code

j'aimerai donc faire un test pour vérifier si bouton 2 a été activé : si c'est le cas, on execute partie2.

sub ()

partie 1

If bouton 2 =true then

partie2

end if

en sub

c'est possible?

Bonjour,

Essayez ceci:

Dim BoutonActif As String

Sub bouton1()
    BoutonActif = "Bouton1"
    Partie
End Sub

Sub bouton2()
    BoutonActif = "Bouton2"
    Partie
End Sub

Sub Partie()
    If BoutonActif = "bouton1" Then
        Partie1
    ElseIf BoutonActif = "bouton2" Then
        Partie2
    End If
End Sub

Cdlt

Bonjour,

Une autre approche !?

Cdlt.

Public Sub Adnul()
Dim n As Byte
    Select Case Application.Caller
        Case "Button 2": n = 1
        Case Else:
    End Select
    MsgBox "Partie_1 exécutée"
    If n = 1 Then
        MsgBox "Partie 2 exécutée."
    End If
End Sub

merci