Boucle en utilisant des label

Encore moi xD

Alors c'est une question toute simple mais j'ai toujours eu ce genre de problème j'arrive pas à l'assimiler et jme mélange avec le C, java et autres...

Voilà j'ai un bon nombre de label que j'ai mis en visible=false.
J'aimerai les remettre tous en visible=true par une boucle, jvais pas me taper tous les labels à remettre visible à la main ^^

Donc :

Code:

---

1 2 3 4

Dim i As Integer For i = 1 To 21 Step 1 lbli.Visible = True Next

---

i

Ca ne marche donc pas lol et je le comprends mais jvois plus comment faire ^^

Dois-je mettre lbli dans une variable?
merci d'avance pour vos réponses !

Tu peux utiliser une boucle sur les controls de ta form et verifier le type de chacun de tes controls

Code:

---

1 2 3 4 5 6 7 8

Dim lbl As Control   For Each lbl In Me.Controls   If TypeName(lbl) = "Label" Then lbl.Visible = False   Next

---

Une astuce:

Dans le cas ou tu as un seul bouton qui permet de rendre visible ou invisible les labels

Code:

---

If TypeName(lbl) = "Label" Then lbl.Visible = Not lbl.Visible

---

Merci :)

Le truc c'est que j'ai deux boutons, et environ 30 labels...
==> lbl1, lbl2 .... lbl25...

Autre chose, ce n'est pas une form, donc "me.controls" ne peut pas fonctionner...

je sature xD

Dans ce cas utilise ce code

Code:

---

1 2 3 4 5 6 7 8

Dim lbl As OLEObject   For Each lbl In Me.OLEObjects   If TypeName(lbl.Object) = "Label" Then lbl.Visible = Not lbl.Visible   Next

---