Changement de couleur CommandButton

Bonsoir,

j'essaie sur le form de trouver une explication à mon code qui ne fonctionnement pas pour pouvoir changer de couleur une CommandButton avec des Call à l'intérieur. Voici mon code :

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False

CommandButton1.BackColor = RGB(0, 0, 240)

Call test

Call Tout

Call Test_12369745

CommandButton1.BackColor = RGB(0, 240, 0)

CommandButton1.BackColor = RGB(0, 0, 240)

Application.ScreenUpdating = True

End Sub

Pourriez-vous m'aider ?

Storm28

Bonjour Storm28,

voici un exemple,

dit moi si ça convient ?

Cela pourrait convenir merci sabV, mais, j'aimerai avoir une couleur au début et lorsque je clique dessus, un changement de couleur apparaît durant l'exécution de la macro (avec les Call) et lorsque la macro est terminée, la première couleur revient.

Cela pour signification que la macro a fini de tourner

@+

re,

essai comme ça,

Private Sub UserForm_Initialize()
Me.CommandButton1.BackColor = RGB(255, 0, 0)
End Sub

Private Sub CommandButton1_Click()
Call test
CommandButton1.BackColor = RGB(0, 255, 0)
Call Tout
CommandButton1.BackColor = RGB(0, 0, 255)
Call Test_12369745
CommandButton1.BackColor = RGB(255, 0, 0)
End Sub

Bonjour Storm28, Isabelle,

le CommandButton1 avec des couleurs changeantes, c'est un bouton-de-Noël ou un bouton-caméléon ?

bonne période de Noël !

dhany