Discussion :

[modus57]

Bonjour,

Est-ce possible en VBA au survol de la souris sur une forme d'afficher un texte ou une autre forme ?

J’ai lu sur un autre forum que c’est possible de le faire en survolant une image, mais malgré mes recherches je n’arrive pas adapté le code au survol d’une forme.

VBA Excel le permet-il ?

Merci d’avance pour vos réponses.

[patricktoulon]

Bonjour
vba en lui meme non mais il y a des solutions avec les apis getcursor et rangefrompoint mais c'est tres lourd et exige une surveillance dans un boucle infini stopable
par contre on lui attribuer un ".onaction"

si c'est vraiment important remplace tes shapes par des controls image qui eux ont la fonction "move"

[boisgontierjacques]

Bonjour,

Affichage de bulles au survol de formes

CF PJ

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub bulles()
  For Each s In ActiveSheet.Shapes
    If s.Type = 13 Then
      ActiveSheet.Hyperlinks.Add Anchor:=s, Address:="", SubAddress:=""
      s.Hyperlink.ScreenTip = s.Name
    End If
  Next s
End Sub

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
 
Sub bulles2()
  For Each s In ActiveSheet.Shapes
    If s.Type <> 8 Then
      ActiveSheet.Hyperlinks.Add Anchor:=s, Address:="", SubAddress:=""
      tmp = s.Name
      bulle = Application.VLookup(tmp, [légendes], 2, False)
      If Not IsError(bulle) Then
         s.Hyperlink.ScreenTip = bulle & Chr(10) & "...."
      Else
         s.Hyperlink.ScreenTip = "...."
      End If
    End If
  Next s
End Sub

Jacques Boisgontier

[modus57]

Bonsoir ,

Il y a une petite différence dans le code de boisgontierjacques :
Le code du message

Code :

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

1
2
3
Sub bulles()
  For Each s In ActiveSheet.Shapes
    If s.Type = 13 Then

Le code du fichier

Code :

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

1
2
3
Sub bulles()
  For Each s In ActiveSheet.Shapes
    If s.Type <> 8 Then

J'ignore quelle incidence cela peut avoir ?

J'ai du mal à comprendre comment ça fonctionne, pourriez-vous me donner quelques explications.

Plus particulièrement sur le code de la feuille :

Code :

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

Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Une forme et une image c'est la même chose ????

[boisgontierjacques]

Le code de la feuille ne sert à rien.

Le principe consiste à créer un lien hypertexte sur la forme ou l'image.

Jacques Boisgontier

[modus57]

Bonsoir Jacques Boisgontier,

Merci pour cette bonne astuce.

Cordiales salutations.