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"
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
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
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.
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
Merci de votre aide. je commence à désespérer
Rq : je débute dans les userform.
Partager