Afficher un icone au passage de la souris VBA
luluaup
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
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
A voir également:
- Afficher un icone au passage de la souris VBA
- Quelle touche pour débloquer la souris ? - Guide
- Icone - Guide
- Passage qwerty azerty - Guide
- Icone windows - Guide
- Comment mettre un icone sur le bureau - Guide
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 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/
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
http://boisgontierjacques.free.fr/pages_site/lesimages.htm#Bulles
@
https://www.cjoint.com/c/HBvrfQeK7yQ
@ Le Pivert
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
Voici une autre manière de faire:
https://www.cjoint.com/c/HBwlizTdaNQ
@+ Le Pivert