USF Bouton actif

bonsoir Philippe

la macro ci-dessous change la couleur du CommandButton

Private Sub CommandButton1_MouseMove _
(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton1.BackColor = &HC0FFFF
End Sub

et si tu souhaites qu'il change aussi quand le curseur n'est plus sur le bouton , tu peux ajouter :

Private Sub UserForm_MouseMove _
(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton1.BackColor = &H8000000F'adapter le code de la couleur initiale
End Sub


bonne soiree
MichelXld