macro bouton active x

[mimi1958]

voila j'ai fait ce code mais en plus je voudrais qu"il execute une macro que j'ai creer
comment rajouter ma macro a ce code

Private Sub CommandButton1_Click()
If CommandButton1.BackColor = &HFF00& Then
CommandButton1.BackColor = &HC0C0C0
Else
CommandButton1.BackColor = &HFF00&
End If
End Sub
merci par avance

 

[DoubleZero]

Bonjour à toutes et à tous,

Zér "Bonjour", mimi1958 ?

Comme ceci ?

Option Explicit
Private Sub CommandButton1_Click()
    If CommandButton1.BackColor = &HFF00& Then
        CommandButton1.BackColor = &HC0C0C0
        Call macro1
    Else
        CommandButton1.BackColor = &HFF00&
        Call macro2
        ' ou
        ' exit sub
    End If
End Sub
Sub macro1()
    MsgBox "Bonjour !"
End Sub
Sub macro2()
    MsgBox "A bientôt..."
End Sub

A bientôt

 

[Eric 45]

Bonjour à tous
Bonjour mimi1958

Juste ajouter le nom de la macro
Bonjour DoubleZero
Eric

 

[mimi1958]

merci c'est ok