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

Faire une boucle

Créer une discussion
  • 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 !

S'inscrire

maval

XLDnaute Barbatruc
Bonjour,

J'ai un code pour ouvrir une listbox avec 21 label dans une frame, c'est à dire, que je click sur un label sa ouvre la listbox et met la frame non visible.
Problème j'ai code trop long j'aimerais faire une boucle pour réduire mon code.
Mon code
Code: 
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub CommandButton2_Click()
ListBox1.Visible = False
Frame1.Visible = True
End Sub
Private Sub Label1_Click()
ListBox1.Visible = True
Frame1.Visible = False
End Sub
Private Sub Label2_Click()
ListBox1.Visible = True
Frame1.Visible = False
End Sub
Private Sub Label3_Click()
ListBox1.Visible = True
Frame1.Visible = False
End Sub
Private Sub Label4_Click()
ListBox1.Visible = True
Frame1.Visible = False
End Sub
Private Sub Label5_Click()
ListBox1.Visible = True
Frame1.Visible = False
End Sub
Private Sub Label6_Click()
ListBox1.Visible = True
Frame1.Visible = False
End Sub
Private Sub Label7_Click()
ListBox1.Visible = True
Frame1.Visible = False
End Sub
Private Sub Label8_Click()
ListBox1.Visible = True
Frame1.Visible = False
End Sub
Private Sub Label9_Click()
ListBox1.Visible = True
Frame1.Visible = False
End Sub
Private Sub Label10_Click()
ListBox1.Visible = True
Frame1.Visible = False
End Sub
Private Sub Label11_Click()
ListBox1.Visible = True
Frame1.Visible = False
End Sub
Private Sub Label12_Click()
ListBox1.Visible = True
Frame1.Visible = False
End Sub
Private Sub Label13_Click()
ListBox1.Visible = True
Frame1.Visible = False
End Sub
Private Sub Label14_Click()
ListBox1.Visible = True
Frame1.Visible = False
End Sub
Private Sub Label15_Click()
ListBox1.Visible = True
Frame1.Visible = False
End Sub
Private Sub Label16_Click()
ListBox1.Visible = True
Frame1.Visible = False
End Sub
Private Sub Label17_Click()
ListBox1.Visible = True
Frame1.Visible = False
End Sub
Private Sub Label18_Click()
ListBox1.Visible = True
Frame1.Visible = False
End Sub
Private Sub Label19_Click()
ListBox1.Visible = True
Frame1.Visible = False
End Sub
Private Sub Label20_Click()
ListBox1.Visible = True
Frame1.Visible = False
End Sub
Private Sub Label21_Click()
ListBox1.Visible = True
Frame1.Visible = False
End Sub

Je vous remercie d'avance
 

Pièces jointes

Trier par date Trier par votes
Re : Faire une boucle

Bonjour à tous

maval
Le moteur de recherche du forum (la loupe) ne t'a mener vers aucunes discussions traitant d'un sujet similaire ?
Question:
A quoi cela sert-il de te donner des conseils dans tes autres fils si ensuite tu ne les appliques pas dans tes questions suivantes 😕
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Faire une boucle

salut

tu peux remplacer tous ces contrôles par un seul (LisBox : voir fichier joint) !

N'est-ce pas Staple (qui veut que je change mon clavier qui commet beaucoup d'erreurs de frappe) 😛
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Faire une boucle

Bonjour Si

Je te remercie mes c'est pas exactement ma demande j'aimerai gardé mes labels et l'alimentation de la listbox se fait sur la feuille nommer "Données"

Je te remercie et te souhaite une bonne journée
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Faire une boucle

Bonjour à tous

maval
Et quid du lien soumis dans le message #3 ?
Et donc du fichier de Laetitia qui s'y trouve ?
Cela ne t'a pas aidé ?
Ci-dessous un autre exemple de module de classe avec des Labels
https://www.excel-downloads.com/threads/labels-et-nnumeros.73217/

NB: Dans ton dernier fichier joint, aucune trace de tes essais de module de classe...🙄
Si...
On pourrait aussi envisager l'emploi d'un contrôle Treeview ou d'un contrôle Listview
mais comme
c'est pas exactement ma demande j'aimerai gardé mes labels
Cliquez pour agrandir...
j'en resterai là pour le moment 😉
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Faire une boucle

Bonjour maval, JM, le forum,

maval vous avez tous les éléments pour arriver à créer un Module de classe.

Mais comme on en est au 13ème post la plaisanterie a assez duré, je joins le fichier 🙄

Perso à la place de tous ces Labels j'utiliserais une ComboBox.

Bonne journée.
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
201
sylvanu
P
  • Résolu(e)
Microsoft 365 Afficher ou masquer formes si une cellule est vide
Réponses
11
Affichages
435
pat66
P
  • Question Question
Microsoft 365 datepicker dynamique intra userform(frame dynamique)(toute version d'excel )
3 4 5
Réponses
60
Affichages
830
patricktoulon
U
  • Question Question
Autres [RÉSOLU] Peut-on faire une macro qui met une seule macro en commentaires puis le contraire!!!
2 3
Réponses
30
Affichages
893
un internaute
U
M
  • Question Question
XL 2010 Calcul possible dans la zone de liste pour le débit et le crédit lors d'une recherche basée sur la zone de texte
Réponses
0
Affichages
707
Mody200
M
N
  • Question Question
Microsoft 365 appel des sous-routine
Réponses
3
Affichages
298
Dranreb
F
  • Question Question
XL 2019 Valeur dans une combobox
Réponses
2
Affichages
472
farid
F
H
  • Question Question
XL 2013 Evènement "MouseMove" dans une module de classe pour plusieurs userform
Réponses
6
Affichages
901
patricktoulon
P
  • Résolu(e)
XL 2019 Améliorer voire accélérer une Macro
Réponses
6
Affichages
609
patricktoulon
U
  • Question Question
Autres Enregistrer sur Onglet TOTO
Réponses
2
Affichages
577
un internaute
U
M
  • Résolu(e)
Microsoft 365 Image stockée dans une feuille à l'initialisation du userform
2
Réponses
20
Affichages
2 K
meyscal
M
S
  • Résolu(e)
XL 2019 Activer une macro lorsqu'une cellule change de valeur automatiquement
Réponses
3
Affichages
638
Dranreb
P
  • Résolu(e)
XL 2019 Optimiser une macro
Réponses
12
Affichages
696
pat66
P
V
  • Question Question
Microsoft 365 VBA : faire clignoter une forme
Réponses
7
Affichages
1 K
patricktoulon
D
  • Résolu(e)
XL 2016 Rendre visible un Textbox en fonction d'une Combobox
Réponses
3
Affichages
1 K
Eric C
  • Résolu(e)
XL 2021 Faire une copie de mon classeur quand "Target" change
2 3
Réponses
30
Affichages
3 K
Usine à gaz
  • Question Question
Microsoft 365 Procédure appelée depuis une procédure qui ne s'éxécute pas totalement
Réponses
12
Affichages
1 K
Dranreb
  • Question Question
XL 2019 Afficher ou masquer une forme selon l'état visibilité d'une feuille.
Réponses
4
Affichages
2 K
mapomme
I
  • Question Question
Format HH:MM supérieur à 24h
Réponses
2
Affichages
1 K
Ian83
I
S
  • Résolu(e)
XL 2013 Comment faire marcher une macro sur une feuille masquée...??
Réponses
4
Affichages
917
Samaraxa
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…