Est il possible d'utiliser 2 Macro MouseMove sur une même feuille ?

[libellule85]

Bonjour le forum, 🙂
Je voulais savoir : peut on utiliser 2 MouseMove sur une même feuille ?
J'en ai avec un commandbutton qui fonctionne très bien et je voulais en mettre un autre sur un Label mais celà ne fonctionne pas sur celui ci 😕
D'avance merci pour vos réponses

1ère macro :

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If X > 1 And X < CommandButton1.Width - 2 And Y > 1 And Y < CommandButton1.Height - 2 Then
  TextBox1.Visible = True
Else
  TextBox1.Visible = False
End If
End Sub

2ème macro :

Private Sub Label6_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  If X < 10 Or X > Label6.Width - 10 Or Y < 10 Or Y > Label6.Height - 10 Then
    ActiveSheet.Shapes("MonShape1").Visible = False
  Else
    ActiveSheet.Shapes("MonShape1").Visible = True
  End If
End Sub

 

[Compte Supprimé 979]

Re : Est il possible d'utiliser 2 Macro MouseMove sur une même feuille ?

Salut Libellule85

Il n'y a pas de raison !?
as-tu mis un point d'arrêt sur ton code pour voir si déjà il s'exécute !?

As-tu vérifié que ton label est bien nommé "label6" ?

A+

 

[libellule85]

Re : Est il possible d'utiliser 2 Macro MouseMove sur une même feuille ?

Bonsoir BrunoM45, CC,

@ BrunoM45 : excuse mon ignorance, c'est quelle commande pour faire un point d'arrêt ?

@ CC : j'ai fais la modification, celà fonctionne. Une fois de plus tu me dépannes, c'est vraiment sympa de ta part.

Encore merci à vous deux pour votre aide
A bientôt