Private Sub Label4_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
d = 3
If X < d Or X > Label4.Width - d Or Y < d Or Y > Label4.Height - d Then
ActiveSheet.Shapes("Rect1").Fill.ForeColor.RGB = RGB(0, 255, 0)
Else
ActiveSheet.Shapes("Rect1").Fill.ForeColor.RGB = RGB(255, 0, 0)
End If
End Sub
'Macro quand clic sur le bouton
Private Sub Label4_Click()
ActiveSheet.Shapes("Rect1").Fill.ForeColor.RGB = RGB(0, 255, 0)
MsgBox "Appui sur Bouton 1"
End Sub