Problème déclenchement macro avec bulle sur shapes

Bonjour,

J'ai une macro me permettant de créer des bulles lorsque je passe la souris sur mes boutons.
Par contre, ma macro ne se déclenche pas à cause de ces bulles... Je n'ai pas réussi à trouver de solution...
Merci pour votre aide!

PS: Je mets le fichier pour que vous puissiez tester
Source : Jacques Boisgontier

Bonjour

Citation:

---

D'accord veuillez m'excuser j'avais oublié cette règle

---

Et celle-ci également ? --->>
https://www.developpez.net/forums/d8...s-discussions/
Ce qui fait (lis ma signature) que je ne suis pas en mesure de t'aider ... :cry:

Ce code crée des bulles par hyperlien. Mais on ne peut affecter une macro.

Code:

---

1 2 3 4 5 6 7 8 9

Sub CréeBulles() For Each s In ActiveSheet.Shapes bulle = Application.VLookup(s.Name, [légendes], 2, False) If Not IsError(bulle) Then ActiveSheet.Hyperlinks.Add Anchor:=s, Address:="", SubAddress:="" s.Hyperlink.ScreenTip = bulle & Chr(10) & "...." End If Next s End Sub

---

Boisgontier

Bonjour unparia,

En fait ce ne sont que 2 images appelant chacun une procédure pour afficher un msgbox tout simplement.
C'est donc pour cette raison que je pensais que c'était intuile de mettre le mettre le code...
Veuillez m'en excuser.
Je reformule ma demande du coup :

J'ai un bouton "Valider" et un autre "Annuler" :

Pièce jointe 471542

J'ai repris une macro de Monsieur Boisgontier Jacques pour afficher des info bulles lorsque je passe avec la souris sur mes boutons :

Code:

---

1 2 3 4 5 6 7 8 9

Sub CréeBulles() For Each S In ActiveSheet.Shapes bulle = Application.VLookup(S.Name, [Legend], 2, False) If Not IsError(bulle) Then ActiveSheet.Hyperlinks.Add Anchor:=S, Address:="", SubAddress:="" S.Hyperlink.ScreenTip = bulle End If Next S End Sub

---

Jusque-là tout va bien.

Maintenant pour tester le déclenchement de mes macros correspondant à mes boutons, je veux juste afficher un msgbox, mais rien ne se déclenche.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub Valider()   MsgBox "Valider"   End Sub     Sub Annuler()   MsgBox "Annuler"   End Sub

---

Je viens de voir votre message Jacques. Merci pour cette réponse.
Je vais essayer de trouver une autre solution.

Bonne journée

Bonjour,


Une façon simple d'obtenir une bulle au survol d'une forme:
Mettre un commentaire dans la cellule sous la forme.

Boisgontier

Bonjour,

Merci pour cette solution.
Mais du coup j'ai utilisé cette solution : https://www.youtube.com/watch?v=gqUjjawR3FI
Cependant j'ai mis mon label au premier plan au milieu de mon image au lieu de la couvrir complètement car sinon cela m'empêche de cliquer l'image pour le déclenchement
de ma macro.
De plus j'ai utilisé un code différent avec un compteur :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)   secondes = 0.1   'boucle dans un sens   For i = 2 To 30 Step 2 ' step pour vitesse   timer_avant = Timer   Do While Timer < timer_avant + secondes DoEvents   Loop ActiveWorkbook.ActiveSheet.Shapes("Bulle").Visible = True   Next   'Boucle dans l'autre sens   For i = 2 To 30 Step 2   timer_avant = Timer   Do While Timer < timer_avant + secondes DoEvents   Loop ActiveWorkbook.ActiveSheet.Shapes("Bulle").Visible = False   Next   End Sub

---