XL 2016 Changer coleur de bouton commande

[KTM]

Bonjour cher Forum
Je voudrais m'adonner a une petite experience avec votre Aide
Je vous explique mon projet:
J'ai une macro " m" qui est exécutée via un bouton commande situé sur un Userform
je voudrais que mon bouton prenne une couleur donnée des le lancement de la macro et reprenne sa couleur initiale a la fin
Merci pour votre aide

 

[dg62]

Bonjour KTM

un exemple simpliste, un userform sur lequel est placé un bouton initialisé à l'ouverture du UF en rouge et il passe en vert début de la boucle et en rouge en sortie de boucle.

Private Sub CommandButton1_Click()
CommandButton1.BackColor = vbGreen
For i = 1 To 3
MsgBox ("ma macro")
Next i
CommandButton1.BackColor = vbred

End Sub


Private Sub UserForm_Initialize()
CommandButton1.BackColor = vbRed
End Sub

 

[dg62]

bonjour KTM

vous passez tous les jours ou presque sur le forum, est-il difficile de dire ok ça marche merci ou c'est pas ce que je veux mais ...

 

[KTM]

Bonjour KTM

un exemple simpliste, un userform sur lequel est placé un bouton initialisé à l'ouverture du UF en rouge et il passe en vert début de la boucle et en rouge en sortie de boucle.

Private Sub CommandButton1_Click()
CommandButton1.BackColor = vbGreen
For i = 1 To 3
MsgBox ("ma macro")
Next i
CommandButton1.BackColor = vbred

End Sub


Private Sub UserForm_Initialize()
CommandButton1.BackColor = vbRed
End Sub

Super
Merci Infiniment