Discussion :

[Antispyware]

Bonjour à tous,
Après de nombreuses recherches, je ne trouve pas de bon tutos, tout du moins de bon exemples utilisant les tags....
Mon problème est le suivant

J'ai un userform ou l'utilisateur rentre un nombre envoyé dans une Variable public "Zonne"
Ensuite, sur un autre userform, j'ai une ligne entière de label et de textbox avec le même tag :
Z1 pour la ligne 1
Z2 poru la ligne 2
etc
je voudrais que tout les contrôles possédants un tag Z & i avec i =< Zonne soit affichés
Du genre :

Code :

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

1
2
3
4
Dim i as byte
For i = 1 to Zonne
Userform.Controls.tag("Z" & i).visible = true
Next

Je ne sais pas comment vraiment utiliser la propriété Tag dans VBA, ma syntaxe est sans doute mauvaise...

Merci d'avance pour votre aide!

[Invité]

Bonjour,
le tag est une propriété présente dans chaque contrôle!
Me.tag; textBox.tag;ComboBox.tag; etc...

tu fais un boucle sur les contrôles mais j'ai une incompréhension!

vue que tu fait une boucle sur les contrôle "Z" de 1 à Zonne quel est l'utilité du tag?

Code :

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

1
2
3
For i = 1 to Zonne
       Userform.Controls("Z" & i).visible = true 
Next

[Antispyware]

Bonjour dysorthographie,

EDIT : _____________
Merci déjà pour cette solution... à vrai dire ça ne m'étais pas venu à l'esprit ! (Cela fonctionne très bien d'ailleurs)
Pour ceux qui ont besoin

Code :

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

1
2
3
4
5
For i = 1 To Zonne
            For j = 1 To 20
                UserForm3.Controls("Ligne" & i & "Z" & i).Visible = True
            Next j
        Next i

________________________

En réalité je m'évertuais à utiliser la propriété tag que j'ai du mal encore à manipuler..
Je n'arrive pas à lancer d'instructions du type
" Pour tous les controles avec un tag = "Z" & i, afficher ces controles

[Invité]

bon; voyons les chose de façon purement scolaire!

j'ai 10 contrôles et "Z3"... "Z5" son visible!

Code :

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

1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize()
For I = 0 To Me.Controls.Count - 1
    If I > 2 And I < 5 Then Me.Controls(I).Tag = True Else Me.Controls(I).Tag = False
Next
For I = 0 To Me.Controls.Count - 1
     Me.Controls(I).Visible = Me.Controls(I).Tag
Next
End Sub

code du début!

Code :

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

1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize()
For I = 0 To Me.Controls.Count - 1
    If I > 2 And I < 5 Then Me.Controls(I).Tag = "Z" Else Me.Controls(I).Tag = "bof"
Next
For I = 0 To Me.Controls.Count - 1
     Me.Controls(I).Visible = Me.Controls(I).Tag Like "Z*"
Next
End Sub

[Antispyware]

Effectivement ça marche nickel, je te remercie encore pour cette réponse !