Discussion :

[nivk-539]

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

[unparia]

Bonjour

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 ...

[boisgontierjacques]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[nivk-539]

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" :



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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Valider()
 
MsgBox "Valider"
 
End Sub
 
 
Sub Annuler()
 
MsgBox "Annuler"
 
End Sub

[nivk-539]

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

Bonne journée

[boisgontierjacques]

Bonjour,


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

Boisgontier

[nivk-539]

Bonjour,

Merci pour cette solution.
Mais du coup j'ai utilisé cette solution :

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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