Userform.addControl / récupération control

Bonjour,

J'ai créé un userform dans lequel je crée dynamiquement des controls : des textbox.
Le problème est que je n'arrive pas à leur affecter des événements :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

private sub Userform_Initialize()   for cpt+1 to 5 Set TBox = Me.Controls.Add("Forms.TextBox.1", "TxtBx" & Cpt) next cpt   end sub   private sub TxtBx1_Change()   ... end sub

---

Merci bien !

J'ai vu un post ou qqn proposait cette solution :

Code:

---

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

'A ajouter dans le Initialize :   dim gettext as string dim c() as clsTextboxes redim preserve c(cpt) set c(cpt).Textbox=userform.Controls.Add("Forms.Textbox.1") 'etc.   'A ajouter dans le module d eclasse correspondant   private withevents txtBox as msforms.textbox   public property let TextBox(tb as msforms.textbox) set txtBox=tb end property   private sub txtBox_Click() gettext=txtBox.text end sub

---

Le problème est que :

et

Code:

---

c(cpt).Textbox=userform.Controls.Add("Forms.Textbox.1")

---

génère une erreur : utilisation incorrecte de ".textBox"... alors que l'editeur ne me propose que cette propriété.

Merci.

J'ai fini par trouver.
La solution se trouve effectivement dans les modules de classe (qui sont incroyablement puissants)

Bref, si ça intéresse qqn, postez-moi.

Par ailleurs, j'ai développé une pseudo-listbox qui permet d'avoir :

1/ des lignes alternativement colorés (pour une meilleure lecture)
2/ des scrollers façon Xp
3/ des colonnes fixes lors du scroll horizontal
4/ une saisie directe des modifs à l'intérieur de la "listbox"

Si ça vous intéresse, postez moi.

cdt,
Alexandre

Toute contribution (sérieuse) est bonne à poster sur le forum.

Il existe une rubrique particulière pour ça:
http://www.developpez.net/forums/forumdisplay.php?f=665

N'hésite pas et, si tu devais tomber à court de place pour d'éventuels fichiers joints, fais signe à l'un des modérateurs, on te fournira l'espace nécessaire.