[VBA-E]Problème formulaire créé dynamiquement . Comment récupérer les données?

Bonjour,

J'ai créé un formulaire de façon dynamique à partir d'une feuille Excel. en attribuant à chaque zone créée un nom de variable associé à un numéro que j'incrémente.
ex: Variable1, Variable2....

Mon problème est le suivant je créé ce formulaire dans une procédure Userform_initialize()

Mais je n'arrive pas à récupérer mes données dans ma procédure cmdvalider_click()

voici mon code source(très très résumé!)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Private Sub UserForm_Initialize() Dim TxtActivite(1 To 100) As Control   h = 1 'Initialisation des boites contenant les activités Set TxtActivite(h) = Controls.Add("Forms.TextBox.1") TxtActivite(h).Text = FeuilleActivite.Cells(h, 1).Value TxtActivite(h).Left = 108 TxtActivite(h).Top = 0 + (h * 24) TxtActivite(h).Width = 210 TxtActivite(h).Height = 18   End Sub   Private Sub CmdValider_Click() Dim h As Integer Dim TxtActivite(1 To 100) As Control h = 1   If (TxtActivite(h) <> "") Then ...

---

c'est la qu'Excel me sort sa fameuse phrase:
variable objet ou variable de bloc with non définie

En clair il ne connait pas la variableTxtActivite(h) dans ma procédure CmdValider_Click


Si vous avez une idée sur la résolution de mon problème...:cry:

J'avais eu un souci similaire (moi c'était avec des checkbox) ya qq temps.
Voici comment j'avais fait (je sais plus trop quoi était utile mais bon)
- nommer tes textbox à leur initialisation :

Code:

---

1 2 3 4 5 6 7 8

With TxtActivite(h) .Text = FeuilleActivite.Cells(h, 1).Value .Left = 108 .Top = 0 + (h * 24) .Width = 210 .Height = 18 .Name = "txt" & h End With

---

- utiliser ce nom dans ta procédure de validation :

Code:

---

1 2 3 4 5

For h = 1 To 100 If UserForm.Controls("txt" & h).Value <> "" Then .... End If Next

---

- en gros je crois que ta variable txtActivite est plus ou moins locale et du coup quand tu la redimensionnes, ça efface tout enfin bref c'est un peu flou pour moi aussi :aie:
J'espère que ça t'aura aidé...

ca a l'air de marché . mais je te confirmerais ca quandj'aurai changé l'ensemble de mes x variables...

Merci beaucoup.

visiblement ca ne marche pas il n'a pas l'air de reconnaitre la concaténation en tant que nom de control

Code:

---

1 2	If (UserForm.Controls("TxtTraites" & h).Value <> "") Then

---

Il me dit "Objet requis"

ta form, elle s'appelle UserForm ou ... UserForm1 ou autrement ? (Propriété Name)

Puis tu passes de TxtActivite à TxtTraites, on ne sait pas pourquoi ....

Bref, n'importe quoi :roll:

Ma form s'appelle UserForm et ensuite si effectivement dans mes exemple je passe TxtActivite à TxtTraites c'est parceque la j'ai simplifier le code à l'extrême je trouve pas ca compréhensible 3 pages de code pour une aide...
Il est vrai qu'en faisant mon copier/coller je me suis trompé de ligne. Il fallait lire

Code:

---

1 2 3

If (UserForm.Controls("TxtActivite" & h).Value <> "") Then

---

Je n'arrive toujours pas à résoudre ce problème...

D'accord tu avais raison j'avais complètement oublié que j'avais renommé ma Form.....
Donc en faisant attention à ce détail....
Le code de Cwain marche parfaitement merci beaucoup!!!!:D