XL 2016 Changer coleur de bouton commande

dg62 à dit:

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.

VB:

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

Cliquez pour agrandir...