Afficher un icone au passage de la souris VBA
luluaup
Messages postés
2
Statut
Membre
-
luluaup -
luluaup -
Bonjour à tous,
Je suis en train de créer un fichier pour faciliter l'utilisation de plusieurs personnes qui ont besoin d'avoir accés aux mêmes données. Sur ma page d'accueil, je voudrais faire des boutons qui lorsque l'on passe la souris s'écartent un peu et affichent une légende et une image.
je ne suis pas trés douée en VBA, je commence juste et apprends sur le tas. je crois que j'ai réussi à faire bouger le bouton, en tout cas ca marche à peu prés proprement mais mon code pour afficher les images quand je passe la souris ne marche pas...
Est ce que quelqu'un pourrait m'éclairer sur la ou je me trompe?
merci
Je vous met un fichier en pièce jointe pour que ce osit plus clair, pour l'instant je n'ai fait que pour le premier bouton le vert appelé "data".
https://www.cjoint.com/c/HBujIIU2PJm
Je suis en train de créer un fichier pour faciliter l'utilisation de plusieurs personnes qui ont besoin d'avoir accés aux mêmes données. Sur ma page d'accueil, je voudrais faire des boutons qui lorsque l'on passe la souris s'écartent un peu et affichent une légende et une image.
je ne suis pas trés douée en VBA, je commence juste et apprends sur le tas. je crois que j'ai réussi à faire bouger le bouton, en tout cas ca marche à peu prés proprement mais mon code pour afficher les images quand je passe la souris ne marche pas...
Est ce que quelqu'un pourrait m'éclairer sur la ou je me trompe?
merci
Je vous met un fichier en pièce jointe pour que ce osit plus clair, pour l'instant je n'ai fait que pour le premier bouton le vert appelé "data".
https://www.cjoint.com/c/HBujIIU2PJm
1 réponse
-
Bonjour,
voir ici pour afficher une image au survol de la souris sans vba
https://forums.commentcamarche.net/forum/affich-26069343-visualiser-une-image-au-passage-de-la-souris
et pour le commentaire
http://cooking-excel.com/2013/02/afficher-un-commentaire-en-passant-la-souris-au-dessus-dune-cellule/
-
-
Voir ceci avec pas mal d'exemple:
http://boisgontierjacques.free.fr/pages_site/lesimages.htm#Bulles
@ -
-
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 -
-
