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

p2zouille Messages postés 3 Date d'inscription vendredi 7 mars 2008 Statut Membre Dernière intervention 28 septembre 2012 - 24 mars 2010 à 17:23
jordane45 Messages postés 36580 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 29 novembre 2022 - 1 avril 2010 à 18:04
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

jordane45 Messages postés 36580 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 29 novembre 2022 341
1 avril 2010 à 18:04
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,
0