récupérer un id sur un control

Bonjour,
j'aimerais récupérer le numéro d'implémentation lors de la création du label ajouté dynamiquement de la façon suivante

Code:

---

1 2 3 4 5 6

Dim my_ope As Control dim bla as integer With UserForm2 Set my_ope = .Controls.Add("Forms.label.1", "barre_" & compt, True) ' bla = controls.name("barre_" & compt).item end with

---

sans passer par une recherche sur tous les éléments de my_ope
dans l'objectif de contrôler les différentes variables de l'objet
exemple:

Code:

---

1 2	Me.Controls.Item(bla).top = var_top ...

---

Merci par avance.

Bonsoir,

Si j'ai bien compris l'idée est d'accéder facilement à un élément créé dynamiquement depuis l'élément Controls.

Je vois au moins 2 options :
- utiliser le nom de l'objet comme index de Controls.

ex :

Code:

---

1 2	Controls.Add("Forms.label.1", "barre_" & compt, True) Controls("barre_" & compt).Width = 10

---

- stocker le résultat de la création dynamique du contrôle dans un tableau de référence.
Pour y faire référence, il suffit d'avoir un indice servant d'identifiant dans ce tableau.

Bonjour,

Ceci ne convient pas ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub test() Dim my_ope As Control   Set my_ope = UserForm2.Controls.Add("Forms.label.1", , True) With my_ope .Top = 5 .Left = 5 .Width = 200 .Height = 50 .Caption = "TEST" .BackColor = vbYellow 'etc... End With UserForm2.Show   End Sub

---

Salut, et la propriété Tag elle sert à quoi ?

merci bluemonkey, je ne pensais pas utiliser cette méthode, mais elle fonctionne