Faire une boucle

[maval]

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

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

 

[Staple1600]

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 😕

maval
Justement puisque tu évoques la charte, il pourrait être utile de t'en souvenir pour résoudre tes questions
Notamment le point 1) section Demandeur 😉
Car en cherchant avec la loupe (ou en consultant la FAQ du forum notamment les pages Wiki de MichelXLD)
on trouve réponse à ta question ...🙄
https://www.excel-downloads.com/threads/ref-wiki-1-de-michelxld-generalites-excel.92356/

 

[maval]

Re : Faire une boucle

Re JM

Je suis aller voir et je n'ai pas trouver mon bonheur

 

[laetitia90]

Re : Faire une boucle

bonjour maval , J marie🙂🙂

pourquoi 21 labels qui font la meme chose ???

 

[Staple1600]

Re : Faire une boucle

Re, bonjour leti

Je suis aller voir et je n'ai pas trouver mon bonheur

Et pourtant...
https://www.excel-downloads.com/threads/evenement-click-sur-un-label-avec-item-de-0-a-20.18529/

 

[maval]

Re : Faire une boucle

Bonjour Laetitia

Pourquoi 21 parce que chaque label doit ouvrir la même listbox mais pas avec les même données

Merci et bon WE

 

[Staple1600]

Re : Faire une boucle

Re

maval
Tu as du zappé mon précédent message, non ? (celui de 18h28)
(voir le lien que j'y ai mis)

 

[maval]

Re : Faire une boucle

Re,

Je viens de le prendre et essayer de l'adapter a mon code mais pas evident

 

[Staple1600]

Re : Faire une boucle

Re

maval
Dans ce cas essaie alors cet ouvrage de leti 😉
https://www.excel-downloads.com/threads/meme-evenement-pour-1000-et-1-label.163887/

(Tu vois que la loupe est toujours de bon conseil, non ? 😉)

 

[Si...]

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) 😛

 

[maval]

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

 

[Staple1600]

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

j'en resterai là pour le moment 😉

 

[job75]

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.

 

[job75]

Re : Faire une boucle

Re,

Avec une ComboBox c'est quand même plus simple non ?

A+

 

[Staple1600]

Re : Faire une boucle

Bonjour Job75

Job75
Si.. n'a pas eu de succès avec sa ListBox
https://www.excel-downloads.com/threads/faire-une-boucle.232084/
Pas sûr que ta ComboBox subisse un sort meilleur 😉