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 Job

Je vous remercie et vous souhaite un bon WE

Staple ne dit pas que Si.... n'a pas eu de succès avec sa ListBox c'est faux j'ai juste dit
"j'aimerai gardé mes labels et l'alimentation de la listbox se fait sur la feuille nommer "Données"
Cliquez pour agrandir...

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

Bonjour Laetitia, je ne t'avais pas saluée 🙂

Juste une remarque sur ta solution avec la propriété Tag.

Dès le moment où dans UserForm_Initialize on utilise Me("Label" & i) autant utiliser la propriété Name des Labels.

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

Re,

On peut aussi utiliser la propriété Caption (par défaut) :

Code: 
Private Sub LB_Click()
Dim r As Range
Set r = Feuil2.Rows(1).Find(LB, , xlValues, xlWhole)
Set r = r(2).Resize(Application.CountA(r.EntireColumn) - 1)
With LB.Parent.Parent
  .ListBox1.List = r.Value
  .ListBox1.Visible = True
  .Frame1.Visible = False
End With
End Sub
Fichier (2).

A+
 

Pièces jointes

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

re

à maval : si tu tiens à tous ces contrôles de type "Label", zappe la suite !

Staple, je te laisse le soin d'arranger le premier cas avec tes endives 😉.
Puisque tu en demandes, un ajout avec un contrôle ListView* mais, comme laetitia 😀, pour faire bô !

* plus délicat à manipuler
 

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
202
sylvanu
P
  • Résolu(e)
Microsoft 365 Afficher ou masquer formes si une cellule est vide
Réponses
11
Affichages
436
pat66
P
  • Question Question
Microsoft 365 datepicker dynamique intra userform(frame dynamique)(toute version d'excel )
3 4 5
Réponses
60
Affichages
855
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
708
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
610
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
640
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…