XL 2010 [RESOLU] Modification d'un label lors de son survol

[alias_2003]

Bonjour à tous,
Est-il possible de modifier le caption d'un label lors de son survol uniquement ?
Pour l'instant, j'arrive à changer le caption lors du survol mais je ne parviens pas à revenir à l'état initial...

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Label1.Caption = "Mouse Over Label1 X=" & X & " , Y=" & Y
End Sub

Merci beaucoup de vos lumières,
Amicalement

 

[alias_2003]

Bonjour M. Boisgontier,
Merci beaucoup de votre réponse ! J'ai omis de préciser que ce label se trouvait dans un userform !
Toutes mes excuses
Amicalement

 

[alias_2003]

Bonjour Pierre,
C’est ce que j’ai fait à l’instant ! Et tout fonctionne parfaitement dans le cas d’un userform avec peu de contrôles. Dans mon cas, l’userform contient pas mal de contrôles et le label en question est dans une frame. Du coup le label ne retourne à son état d’origine que lorsque la souris est sur l’userform lui-même et non pas quand elle ne survole pas le label.
Merci encore,
Bonne journée,
Amicalement

 

[alias_2003]

Bonsoir Jacques, Pierre et le Forum,
Désolé pour le délai... J'ai testé vos 2 solutions : elles fonctionnent parfaitement toutes les 2, merci !
Bonne soirée,
Amicalement