VBA : problème récupération texte Textbox dynamique

Totof86 Messages postés 1 Date d'inscription samedi 20 décembre 2008 Statut Membre Dernière intervention 20 décembre 2008 - 20 déc. 2008 à 20:38
The Meteorologist Messages postés 232 Date d'inscription jeudi 18 janvier 2007 Statut Membre Dernière intervention 3 novembre 2011 - 20 déc. 2008 à 20:51
Bonjour

Je suis nouveau sur le forum. j'ai pu m'inspirer de plusieurs post. Je vous remercie.

J'ai cependant un petit problème en VBA pour récupérer des informations saisies sur des Textbox dynamiques sur des UserForm de Word.

Voilà mon programme pour créer ces TextBox :

Private Sub CommandButton4_Click()

Dim Top, Left, Width, Height, i As Integer
Dim NumeroTextBox As Integer

Top = 250
Left = 60
Width = 400
Height = 20
NumeroTextBox = 10

For i = 0 To TextBox1.Value - 1

Set Text = UserForm6.Controls.Add("Forms.TextBox.1" )

With Text
.Name = "Text" & NumeroTextBox
.Left = Left
.Top = Top
.Width = Width
.Height = Height
.Text = "-> "
End With


Top = Top + 20
NumeroTextBox = NumeroTextBox + 1

Next

End Sub

Je n'arrive pas ensuite à récupérer les informations saisies par l'utilisateur pour ensuite les envoyer sur mon document Word.
Pour essayer de lire par exemple la première TextBox généré, c'est à dire la TextBox10, je saisis

Private Sub CommandButton6_Click()
MsgBox Text10.Value
End Sub

Un message d'erreur apparait : Erreur d'exécution '424' : Objet requis
J'ai l'impression qu'il ne trouve pas mes TextBox pourtant celle-ci sont physiquement apparante sur ma UserForm.

Si vous pouvez m'aider ce serait sympa.

Merci d'avance

1 réponse

The Meteorologist Messages postés 232 Date d'inscription jeudi 18 janvier 2007 Statut Membre Dernière intervention 3 novembre 2011 1
20 déc. 2008 à 20:51
Je ne m'y connais pas trop en vba, mais je pense que le problème vient du fait que tu as déclaré ton TextBox dans une Sub ... Essaies de le déclarer en général pour qu'il aie une portée sur toutes les Sub.
0