Afficher un texte lors du déplacement de la souris sur les objets d'une feuille.

Signaler
Messages postés
3
Date d'inscription
vendredi 7 mars 2008
Statut
Membre
Dernière intervention
28 septembre 2012
-
Messages postés
33721
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
21 octobre 2021
-
Bonjour,
J'ai créé une sorte de diagramme avec des zones de texte (rectangle avec texte ajouté).
Le contenu du texte est incompréhensible pour les personnes qui lisent le documents sans avoir de bases dans le métier.
Quand je survole ces zones avec la souris, je souhaite y voir apparaitre une fenêtre de texte, sur le même principe que les commentaires de cellules.

Voici un exemple:

http://www.hiboox.fr/go/images/informatique/nouvelle,96b1ee105fce61bcf3467937f588e49d.jpg.html

Mais ma petite flèche de commentaire (ou quelque chose qui y ressemble) je veux quelle soit rattachée à une des cases jaunes ou vertes.

Merci

1 réponse

Messages postés
33721
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
21 octobre 2021
353
Bonjour,

Pour résumer : Tu souhaites avoir une fenêtre (genre Popup) apparaitre au dessus de tes rectangles (jaunes et verts).
Si j'ai bien compris ta demande .. je pense que tu pourrais utiliser des Userform.

J'ai trouvé un lien contenant la réponse à ta question (ou du moins un bon début).

ICI

Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   If X < 10 Or X > Image1.Width - 10 Or Y < 10 Or Y > Image1.Height - 10 Then
     ActiveSheet.Shapes("monshape").Visible = False
   Else
     ActiveSheet.Shapes("monshape").Visible = True
   End If
End Sub


Cordialement,
Jordane,