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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.