Discussion :

[hotsauce91]

Bonjour à tous !

j'aimerais en utilisant For---next , X varie de 1 à 10 :

j'ai en tout 10 label que je veux cacher ou non .

si X = 1 , Label1.visible=true
Label2.visible=false
Label3.visible=false
Label4.visible=false
...

si X = 2 , Label1.visible=true
Label2.visible=true
Label3.visible=false
Label4.visible=false
...

si X = 3, Label1.visible=true
Label2.visible=true
Label3.visible=true
Label4.visible=false
...

J'espere avoir été assez clair.

Have fun

[Minick]

Salut,

Comme cela par exemple en mettant une TextBox pour changer ton 'X':

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub TextBox1_Change()
    Dim Cpt As Byte
 
    For Cpt = 1 To 10
        If Cpt <= Me.TextBox1.Value Then
            Me.Controls("Label" & Cpt).Visible = True
        Else
            Me.Controls("Label" & Cpt).Visible = False
        End If
    Next Cpt
End Sub

++
Minick

[hotsauce91]

merci pour ta réponse mais il y a un bug :

Code :

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

Me.Controls("Label" & Cpt).Visible = False

--> objet introuvable

Il faut que je décrive "label" quelque part nan ?

Je suis novice

[Minick]

Re,

Conditions requises :
- Tu as ajoute tes controles 'Label' dans un Userform
- verifier que la propriete 'Name' de tes 'Label' va de Label1 à Label10
(ce qui peut etre faux si tu a cree puis supprime puis recree...)

Si tu ne t'en sors pas, un classeur exemple sera plus simple.

++
Minick

[hotsauce91]

je gere éffectivement mon X avec un textbox.

mais par contre les labels que je veux cacher sont dans une autre userform.

[Krovax]

Dans ce cas remplace le Me par le nom de ton userform qui contient les labels.

[hotsauce91]

bon ba merci les gars ca marche nikel

See you soon