USF Bouton actif

[philippe]

Bonjour,

une simple question, j'aimerais pouvoir faire changer de couleur un bouton dans un userform au passage de la souris.

Je coince sur ce code, merci de votre aide.

phil

 

[michel]

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