Alimenter une TextBox créée dynammiquement

Version imprimable

03/02/2025, 16h46
jcm.boulot

Alimenter une TextBox créée dynammiquement

Bonjour,

je coince sur l'utilisation de Textbox que j'ai créé de façon dynamique

J'ai un bout de code de type :

dim TB as MSForms.TextBox
dim i as integer
dim NOMTB as string

for i =1 to 10
NOMTB= "Champ" & i
set TB =Me.Controls.Add("forms.textbox.1", NOMTB, True)
with TB
.Left = 20
.Top = 50 + (20*1)
next i

Jusque là tout va bien, mes textbox sont créées et alignées comme je le souhaite.
Par contre, impossible d'aller charger la valeur de la textbox en dehors de la boucle

une syntaxe de type Champ1.Value = "toto" ne fonctionne pas.

Je ne vois pas mes objets [Champ1], ...[Champ10] dans les variables de mon [Me], pourtant si je parcours mes formes avec un Controls et que j'interroge les .Name, j'ai bien Champ1 à Champ10 qui m'est remonté.

Quelqu'un aurait-il une solution à m'apporter afin que je puisse alimenter mes textbox créées dynamiquement comme je le souhaite ?

D'avance merci.
03/02/2025, 18h06
tototiti2008

Bonjour,

A tester

Code:

Me.Controls("Champ1").Text = "toto"
04/02/2025, 08h56
jcm.boulot

Citation:

Envoyé par tototiti2008

Bonjour,

A tester

Code:

Me.Controls("Champ1").Text = "toto"

Merci, mais cela ne fonctionne pas non plus.
J'ai testé différentes choses ("Champ1").Value, (Champ1).Text .... j'arrive toujours à la même erreur d'éxécution '438' Proprièté ou méthode non gérée par cet objet ...

Le code que tu as posté contient une erreur un End With manquant
et les Textbox sont entassés dans la même position 50 + (20 * 1)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim TB As MSForms.TextBox
Dim i As Integer
Dim NOMTB As String
 
For i = 1 To 10
    NOMTB = "Champ" & i
    Set TB = Me.Controls.Add("forms.textbox.1", NOMTB, True)
    With TB
      .Left = 20
      .Top = 50 + (20 * i)
    End With
Next
' ajouter des valeurs
Me.Controls("Champ1") = 1500
Me.Controls("Champ2").Text = 2000
Me.Controls("Champ3").Value = 3000

Bonjour,

Pourtant j'ai testé, ai créé un userform vide et ai lancé sur un évènement au choix

Code:

1
2
3
4
5
6
7
8
9
Private Sub UserForm_Click()
Dim TB
    Set TB = Me.Controls.Add("forms.textbox.1", "Champ1", True)
    With TB
        .Left = 20
        .Top = 70
    End With
    Me.Controls("Champ1").Text = "toto"
End Sub

Et ça marche...

04/02/2025, 15h40
jcm.boulot

Citation:

Envoyé par rMist2024

Le code que tu as posté contient une erreur un End With manquant
et les Textbox sont entassés dans la même position 50 + (20 * 1)

Effectivment, mais ce n'est pas mon code,juste du texte à titre d'exemple.
Désolé pour cette mauvaise présentation, et merci de ton attention et ta précision.
04/02/2025, 15h50
jcm.boulot

Citation:

Envoyé par tototiti2008

Bonjour,

Pourtant j'ai testé, ai créé un userform vide et ai lancé sur un évènement au choix

Et ça marche...

Je viens de reprendre en partant de vos codes, en utilisant boucle et variable, à partir d'un UserForm vierge et effectivement tout fonctionne.

Je ne sais que dire, si ce n'est merci à vous deux :)

:applo:

Hello,

Il y a un peut plus simple non ?

Code:

1
2
3
Dim TB As MSForms.TextBox
    '// code de creation dynamique du contrôle
TB.Text = "Toto"

05/02/2025, 16h59
tototiti2008
Citation:
Envoyé par deedolith

Hello,

Il y a un peut plus simple non ?

Code:

1 2 3 Dim TB As MSForms.TextBox '// code de creation dynamique du contrôle TB.Text = "Toto"
Bonjour deedolith,

il les crée dans une boucle et je suppose qu'il les affecte plus tard, suivant des traitements intermédiaires