Discussion :

[Didpa]

Bonjour

Est-il possible qu'en passant avec la souris au dessus d'un command button, il change de couleur. et si possible comment ??
Cordialement

[sabzzz]

bonjour Didpa,

un truc donner par AndrewJ, est de mettre un Label sous le bouton, ce Label doit être plus grand que le bouton, tu mets son caption = "" et son backstyle à transparent.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton1.BackColor = RGB(200, 200, 200) ' grey
ActiveSheet.Shapes("Label1").Visible = True ' make background label visible (to detect mouseoff)
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If CommandButton1.BackColor <> RGB(50, 50, 255) Then ' test if cb1 is blue or grey
  CommandButton1.BackColor = RGB(50, 50, 255) ' if grey, change to blue
End If
ActiveSheet.Shapes("Label1").Visible = False
End Sub