Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

macro faire apparaitre disparaitre une zone de texte

  • Initiateur de la discussion Initiateur de la discussion adrian
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

A

adrian

Guest
Bonjour à tous,

Voici ce que je souhaite faire :
Je voudrais que ma zone de texte apparaisse quand le pointeur de ma souris est positionné sur une forme automatique, et disparaisse lorsque le pointeur n'est pas sur cette forme auto.

Pour plus de clarté, voici un fichier test avec une ellipse et une zone de texte, que les pros d'excel s'en donne à coeur joie pour m'expliquer la solution!!!

Merci d'avance de votre aide.
PS : c'est assez urgent, je dois présenter le projet contenant cette astuce dans 10jours...
 

Pièces jointes

Re : macro faire apparaitre disparaitre une zone de texte

Bonjour adrian, bienvenue sur XLD,

Voyez l'exemple de Jacques Boisgontier sur ce fil :

https://www.excel-downloads.com/threads/info-bulle-synthese-interactive-avec-onglets.142577/

A priori pour que le déplacement de la souris crée l'évènement MouseMove, il faut que ce soit sur un contrôle activeX (Image, Label...), ou un graphique.

Fichier joint avec cette macro :

Code:
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim d#
d = 2
Me.Shapes("Zone de texte 3").Visible = _
  X > d And X < Label1.Width - d And Y > d And Y < Label1.Height - d
End Sub

A+
 

Pièces jointes

Dernière édition:
Re : macro faire apparaitre disparaitre une zone de texte

Bonjour Job 75,

Merci beaucoup pour la rapidité et l'adéquation de cette réponse!!

Je teste tout ça et j'essaie de me familiariser avec, je reviendrai poster dans ce topic lundi si je rencontre des problèmes.

Merci encore 😉
 
Re : macro faire apparaitre disparaitre une zone de texte

Encore moi,

Question de débutant, je ne trouve pas le Label dans la Boite à outils contrôle...

Et sinon, ca marche pour un label nommé label 1 avec sa zone de texte correspondante, mais comment faire pour réaliser la même chose rapidement si l'on a une dizaine ou plus de label (avec leur zone de texte associée)?

Est-ce qu'il y a un moyen d'itérer le processus ou est-ce que je dois retaper le code pour label1, label2 etc?

Sur ce je pars en WE, je ne serais pas de retour avant lundi, mais j'attends avec impatience de trouver une réponse ^^

Bon WE à tous
 
Re : macro faire apparaitre disparaitre une zone de texte

Bonjour adrian,

Question de débutant, je ne trouve pas le Label dans la Boite à outils contrôle...

Cherchez bien, il s'y trouve. [Edit] Cela s'apelle "Etiquette", notée A.

Est-ce qu'il y a un moyen d'itérer le processus ou est-ce que je dois retaper le code pour label1, label2 etc?

Pas d'itération possible, il faut une macro NomControle_MouseMove pour chacun des contrôles ActiveX.

A+
 
Dernière édition:
Re : macro faire apparaitre disparaitre une zone de texte

Bonjour,

Merci pour les infos, du coup je vais faire ça pour chacune de mes "étiquettes", soit 113...
Avec un peu de patience ça devrait rendre un document assez sympa.

Merci encore et à bientôt peut-être pour de nouvelles qeustions.
 
Re : macro faire apparaitre disparaitre une zone de texte

Bonjour adrian,

Avec un seul Label et une seule Zone de texte, on peut faire pas mal de choses.

La Zone de texte se met en forme en fonction de la position du curseur sur le Label.

Edit : ajouté les modifications des couleurs.

A+
 

Pièces jointes

Dernière édition:
Re : macro faire apparaitre disparaitre une zone de texte

Et bien tout ça pour moi!!

Merci y'a plein d'idées sympas que je garderais dans mes ptits papiers 😉

En ce qui concerne mes 113 questions, je vais voir ce que je peux faire mais la lourdeur ne me fais pas peur, j'ai pas mal de temps devant moi.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

M
Réponses
3
Affichages
1 K
U
Réponses
0
Affichages
1 K
Uberdork
U
B
Réponses
6
Affichages
1 K
Bebe xl
B
N
Réponses
1
Affichages
877
Compte Supprimé 979
C
N
Réponses
6
Affichages
3 K
Nadia78
N
F
Réponses
15
Affichages
7 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…