Afficher un icone au passage de la souris VBA

Bonjour,
merci pour votre réponse mais je ne le veux pas sous forme de commentaire et surtout ce n'est pas aupassage d'une cellule mais sur un bouton. le but est de donner l'info aux gens qui vont cliquer sur ce bouton

Voir ceci avec pas mal d'exemple:

http://boisgontierjacques.free.fr/pages_site/lesimages.htm#Bulles

@

Voilà un exemple à adapter:

https://www.cjoint.com/c/HBvrfQeK7yQ

@ Le Pivert

Bonjour,
merci pour toutes ces infos, j'ai réussi à créer mon code, il marche, mon seul problème c'est qu'il marche quand je lance la macro je n'arrive pas à le mettre au pasage de la souris même en mettant avant

Private Sub Data_Mousemove(ByVal Button As Integer, ByVal shift As Integer, ByVal x As Single, ByVal y As Single)


Je suppose que mon erreur vient dans la facon de nommer ma macro car elle n'apparait pas dans ma liste déroulante mais je ne comprends pas pourquoi

Sub animation()

Sheets("HOME").Shapes("data").Left = 426

Range("A1").Select

secondes = 0.05

'boucle dans un sens

For I = 2 To 16 Step 2 ' step pour vitesse

timer_avant = Timer

Do While Timer < timer_avant + secondes
DoEvents

Loop
ActiveWorkbook.ActiveSheet.Shapes("add data").Visible = True
ActiveWorkbook.ActiveSheet.Shapes("Pictdata").Visible = True

Sheets("HOME").Shapes("data").Left = 442 - I

Sheets("HOME").Shapes("data").Left = 442

Next

'Boucle dans l'autre sens

For I = 2 To 16 Step 2

timer_avant = Timer

Do While Timer < timer_avant + secondes
DoEvents

Loop

ActiveWorkbook.ActiveSheet.Shapes("add data").Visible = False
ActiveWorkbook.ActiveSheet.Shapes("Pictdata").Visible = False

Sheets("HOME").Shapes("data").Left = 442 + I

Sheets("HOME").Shapes("data").Left = 426
Next

End Sub

merci

L'évenement Mousemove ne fonctionne que pour les controls activeX

Voici une autre manière de faire:


https://www.cjoint.com/c/HBwlizTdaNQ


@+ Le Pivert