(Private Sub remontée_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
If x < 10 Or x > remontée.Width - 10 Or Y < 10 Or Y > remontée.Height - 10 Then
ActiveSheet.Shapes("ascenseur").Visible = False
Else
ActiveSheet.Shapes("ascenseur").Visible = True
End If
End Sub
il me dit que la formule est trop complexe. Auriez vous une parade SVP merci
Bonsoir.
En dehors de la parenthèse tout au début qui n'a rien à faire là, je ne vois rien d'anormal si ce qui doit exister existe.
Ça fait pareil en l'écrivant comme ça ?
VB:
Private Sub remontée_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ActiveSheet.Shapes("ascenseur").Visible = X >= 10 And X <= remontée.Width - 10 _
And Y >= 10 And Y <= remontée.Height - 10
End Sub