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

Masquer toute les labels

  • Initiateur de la discussion Initiateur de la discussion maval
  • 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 !

maval

XLDnaute Barbatruc
Bonjour,

Je suis a la recherche d'un code VBA pour masquer toutes les labels au moment d'afficher une image

J'ai comme code ceci pour masquer les images

Code:
 ' Masquer toutes les images pour éviter qu'elles soient au premier plan
        For Each MyControl In Controls
            If MyControl.Name Like "Image*" And MyControl.Name <> iImage.Name Then
                MyControl.Visible = False

Quel code ajouter pour masquer les labels (20)

Merci d'avance
 
Re : Masquer toute les labels

Bonjour

plusieurs solutions

si les Labels sont nommés Label1, Label2 etc par leur nom:

If MyControl.Name Like "Label*" Then

sinon par leur type

If TypeName(MyControl) = "Label" Then

(on peut utiliser la solution 2 même si les Labels sont nommés Label1, Label2 etc)

A+
 
Re : Masquer toute les labels

Bonjour

@@ Bonjour Paf


Peut être :


' Masquer toutes les images pour éviter qu'elles soient au premier plan
For Each MyControl In Controls
If (MyControl.Name Like "Image*" And MyControl.Name <> iImage.Name) or MyControl.Name Like "Label*" Then
MyControl.Visible = False
 
- 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

Discussions similaires

M
  • Question Question
Réponses
11
Affichages
957
madoupa
M
Réponses
3
Affichages
903
Réponses
14
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…