Command Button en surbrillance

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:

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:

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