comportement d'un bouton au passage de la souris

[daniel]

Bonjour !

Voilà ma question...Est-il possible de programmer un bouton (dans un userform ou sur une feuille de calcul) de manière à ce qu'il "réagisse" (ex:surbrillance) au passage de la souris ?

Merci d'avance à toutes et tous

Bonne fin d'après-midi

Daniel

 

[elodie]

si ton bouton s'appelle Cmd1 :

Private Sub Cmd1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Cmd1.BackColor = vbRed
End Sub


Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Cmd1.BackColor = &H8000000F
End Sub

ensuite tu peux jouer sur d'autres choses que la couleur du bouton (BackColor) : la police d'écriture (Font), la couleur de l'écriture (Forecolor), le curseur (MousePointer) ...

 

[daniel]

ça marche !

un grand merci pour ton aide, Elodie !

Bonne fin d'après-midi

Daniel