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

Question

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

jordane45 · Answer

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,

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

1 réponse

Votre réponse

Discussions similaires