Modifier un control dynamique

Bonjour à tous,

J'essaye de modifier la valeur de textbox crée dynamiquement. Quand j'essaye de modifier leur propriété, j'ai un message d'erreur comme quoi il ne trouve pas la textbox.
voici le code :

dans userform nommé "simulation"

Code:

---

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

Set Obj = Me.Controls.Add("Forms.Textbox.1") With Obj .Name = "txt_TNR1" ' .Object.Caption = "Selection dossier TNR" & i .Left = 198 .Top = 42 * i + 174 .Width = 438 .Height = 36   End With   'ajout de l'objet dans la classe Set Cl = New Classe1 Set Cl.txt = Obj Collect.Add Cl

---

dans le module de classe :

Code:

---

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

Private Sub TNR_Click()   Dim bInfo As BROWSEINFO, szPath As String * 512 bInfo.lpszTitle = "Sélectionnez le dossier des .cfg." bInfo.ulFlags = &H1 If SHGetPathFromIDListA(SHBrowseForFolderA(bInfo), szPath) Then txt_TNR_test = Left(szPath, InStr(szPath, vbNullChar) - 1)   Simulation.txt_TNR1.Value = txt_TNR_test   End Sub

---

il bloque sur la ligne "Simulation.txt_TNR1.Value = txt_TNR_test". Il ne trouve pas la textbox "txt_TNR1." par contre si la textbox n'est pas crée dynamiquement il la trouve.

Merci de votre aide. je commence à désespérer
Rq : je débute dans les userform.

dans un module standard déclare ta collection comme public et retire les déclaration autre dans le programme!

Code:

---

Public Collect As Collection

---

modifies ton code pour nommer le nom de l'objet dans ta collection!

Code:

---

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

Set Collect = New Collection Set Obj = Me.Controls.Add("Forms.Textbox.1") With Obj .Name = "txt_TNR1" ' .Object.Caption = "Selection dossier TNR" & i .Left = 198 .Top = 42 * i + 174 .Width = 438 .Height = 36   End With 'ajout de l'objet dans la classe Set Cl = New Classe1 Set Cl.txt = Obj Collect.Add Cl, Obj.Name 'Ici je donne le nom de l'objet à la collection

---

dans le module de classe tu peux appeler l'objet de ta colection par son nom!

Code:

---

Collect("txt_TNR1").txt.Value= txt_TNR_test

---

Nikel sa marche :)

merci pour l'aide. Je risquerez de revenir dans le coin mais déjà j'ai ce problème en moins.

J'ai un nouveau problème :)

Cette fois je veux récupérer la valeur des textbox dynamique par un bouton dans mon userform.

Code:

---

1 2 3 4 5 6 7 8

For i = 1 To OP1 - 1 ' Collect("txt_TNR" & i).txt.Value = txt_TNR_val ' path_jdd = Simulation.txt_jdd1.Value   Cells(1, i) = path_jdd Next

---

j'ai essayé plusieurs truc mais rien n'y fait.
Si quelqu'un à un cours bien fais sur les contrôle dynamique je prend :)

tes Textbox sont tous créer dynamiquement?

Non pas tous. J'aimerais bien pouvoir sélectionner mes textbox dynamique pour récupérer la valeur

tu les récupère dans le bouton validé de la form par exemple? ou en tous les cas au niveau du UserForm lui même?

J'ai pas très bien compris la question. Je veux récupérer les valeurs sur le bouton validé (GO ALICE).
L'idée de mon programme c'est de récupérer les chemins, de les écrires dans les textbox et de récupérer ces valeurs dans des variables global pour les utiliser ultérieurement.




Pièce jointe 151719

Code:

---

1 2 3 4 5 6 7

Dim Ctr As Integer Dim i As Integer For Ctr = 0 To Me.Controls.Count - 1 If TypeName(Me.Controls(Ctr)) = "TextBox" Then If Me.Controls(Ctr).Name = "Lebon" Then i = i + 1: Cells(1, i) = Me.Controls(Ctr).Text End If Next

---

Génial! Je devrai pouvoir m'en sortir avec ça.
En tous cas merci beaucoup pour la réactivité et les solutions. Ça, c'est du travail de pro :).
En tous cas, la manipulation des contrôle dynamique ne me semble pas super facile.

Mais je ne cris pas encore victoire :p . Je reviendrai certainement vous voir.