Discussion :

[Elremmiz]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[jfontaine]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jfontaine]

Une astuce:

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Elremmiz]

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

[jfontaine]

Dans ce cas utilise ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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