For---Next

[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

 

[CBernardT]

Re : For---Next

Bonjour hotsauce91 et le forum,

Une proposition de code sans essai :

Dim k As Byte
If X = 1 Then
Label1.Visible = True
For k = 2 To 10
Me.Controls("Label" & k).Visible = False
Next k
ElseIf X = 2 Then
Label1.Visible = True
Label2.Visible = True
For k = 3 To 10
Me.Controls("Label" & k).Visible = False
Next k
ElseIf X = 3 Then
Label1.Visible = True
Label2.Visible = True
Label3.Visible = True
For k = 4 To 10
Me.Controls("Label" & k).Visible = False
Next k
End If

Cordialement

Bernard

 

[Catrice]

Re : For---Next

Bonjour,

Je propose une solution dans le fichier joint

 

[mromain]

Re : For---Next

bonjour le fil,

j'apporte ma contribution :

For i = 1 To 10
    Me.Controls("Label" & i).Visible = IIf(i <= X, True, False)
Next i

a+

 

[hotsauce91]

Re : For---Next

merci à vous.

J'éssaye d'assembler tous ca 🙂 ...

 

[hotsauce91]

Re : For---Next

Bug :

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

il ne trouve pas cet objet ...

J'imagine qu'il faut que je déclare quelques chose avant ?

cordialement

 

[Catrice]

Re : For---Next

Re,

Je crois que si les labels sont dans la feuille de calcul, ca ne fontionne pas ...

Sinon, dans un userform ça fontionne.
Voir la proposition de mromain dans le fichier joint

 

[mromain]

Re : For---Next

re,

que vaut la variable k au moment où ça bugge ?
si k=11 et que tu n'as pas de label nommé "Label11", ce genre d'erreur se produira.

a+

 

[hotsauce91]

Re : For---Next

les labels que je cacher sont dans une autres userform.

Ca ne serais pas ca le probleme ?

cordialement

 

[hotsauce91]

Re : For---Next

c'est bon j'ai trouvé

merci a tous !

see you soon !