Discussion :

[Herman]

Bonjour,

J'ai plusieurs étiquettes (environ une cinquantaine) et je voudrais les rendre toutes invisibles sur click d'un bouton, leur nom sont tous du type : croix_1, croix_2, croix_3, etc etc ..

Je me demandais donc si il était possible de les rendre toutes invisibles, en faisant un truc du style :

Code :

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

Me.croix_& " * " & .Visible = False

ou même un :

Code :

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

1
2
3
For i = 1 To 5
Me.croix_& " i " & .Visible = False
Next i

Je ne sais même pas si c'est possible d'ailleurs.

Si quelqu'un à une idée, merci !

[Gary_Stoupy]

Bonjour,

Comme tu le fais ce n'est pas possible...
Mais tu peux faire un truc du genre en passant par une boucle

Code :

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

1
2
3
4
5
6
7
dim i as variant
dim NomEtiquette as string
 
for i = 0 to NbControle
    NomEtiquette = "croix_" & i
    Me(NomEtiquette).Visible = false
next i

Et voilou, le tour est joué

[Herman]

Ah j'étais pas loin avec mon For !

Code :

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

1
2
3
4
5
6
7
Dim i As Integer
Dim NomEtiquette As String
 
For i = 1 To 4
    NomEtiquette = "croix_" & i
    Me(NomEtiquette).Visible = False
Next i

Et c'est dans la poche ! Merci =)