Probléme textbox dynamique

Bonjour,

J' ai trouvé une solution pour creer un textbox dynamique :

Code:

---

Set var = question.Controls.Add("Forms.TextBox.1")

---

cette méthode fonctionne.

Le problème est que : quand je veux boucler x fois cette creation de textbox et que je veux renommer la textbox en :

Code:

---

with var.name = "var"+cstr(x)

---

Je n'arrive pas a récuperer la valeur du text box par les variables var1, var2, varn... je n'arrive même pas à recuperer mon résultat dans une msgbox.

Avez vous une solution à me proposer, ci-dessous mon code complet :

Code:

---

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

Do while x <> 5   Set var = question.Controls.Add("Forms.TextBox.1") With var .Name = "var" + CStr(x) .Left = 120 .Height = 18 .Width = 54 .Top = 72 + 24 * x End With   msgbox controls("var"+cstr(x))   x=x+1 loop

---

Salut,
Je me demande si en procédant de cette manière tu ne crée pas une sorte de groupe de contrôle. Si je prenais une image, tu crées des clones, qui à l'instar de clones humains seraient des individus différents mais avec la même carte de Sécu, vu qu'il sont tous nés le même jour au même endroit...
Ca rejoint le fonctionnement de création de macros avec l'enregistreur, tu as beau éffacer les anciennes, si tu ne redemarre pas Excel, lors d'une nouvelle création, l'enregistreur continu à numéroter dans la foulée. Je n'ai pas essayé mais je tenterais de leur donner un nom différent à la création .
Qui à dit élucubrations ?

ok merci mais comment pourrais je faire pour avoir un nom différent à chaque fois :

Code:

---

Set userform1.controls("var"+cstr(x)) = question.Controls.Add("Forms.TextBox.1")

---

cette méthode ne fonctionne pas
il faudrait concaténer une variable pour former une nouvelle variable.

Salut,
Tu n'es pas obligé de connaitre le nom de la TextBox pour récupérer la valeur, tu peux faire une boucle sur les controles de ton userform, voici un exemple

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub TestTb()   Dim Tb As Object Dim MaVal as string   For Each Tb In UserForm1.Controls MaVal = Tb.Value MsgBox MaVal Next End Sub

---

Sinon, mais attention j'ai pas testé ...

Code:

---

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

Do while x <> 5   Set var = question.Controls.Add("Forms.TextBox.1") With var .Name = "var" & x .Left = 120 .Height = 18 .Width = 54 .Top = 72 + 24 * x End With   msgbox Userforms.controls("var" & i)   x=x+1 loop

---

Merci beaucoup, j'ai cherché toute la journée en vain.

La deuxième solution fonctionne a merveille et me convient très bien.

Encore merci

Donc j'imagine que tu auras corrigé la coquille dans la ligne

Code:

---

msgbox Userforms.controls("var" & i)

---

Il fallait lire x et pas i (j'utilise toujours i pour mes boucles...)

A+

Bonjour,

Une piste avec le code suivant

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

Private Sub UserForm_Click() Dim C As Control Dim i& '/// par collection /// For Each C In Me.Controls If TypeName(C) = "TextBox" Then MsgBox C.Name & " boucle collection (For Each)" End If Next C '/// par boucle classique /// For i& = 1 To 5 MsgBox Me.Controls("var" & i& & "").Name & " boucle (For Next)" Next i& End Sub   Private Sub UserForm_Initialize() Dim var As Control Dim x As Integer Do x = x + 1 Set var = Me.Controls.Add("Forms.TextBox.1") With var .Name = "var" + CStr(x) .Left = 120 .Height = 18 .Width = 54 .Top = 72 + 24 * x End With Loop Until x = 5 End Sub

---

Cordialement.

PMO
Patrick Morange