Discussion :

[jcm.boulot]

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.

[tototiti2008]

Bonjour,

A tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jcm.boulot]

Bonjour,

A tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ...

[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)

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
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

[tototiti2008]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[jcm.boulot]

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.

[jcm.boulot]

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

[deedolith]

Hello,

Il y a un peut plus simple non ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[tototiti2008]

Hello,

Il y a un peut plus simple non ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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