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

Question

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

The Meteorologist · Answer

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.

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

1 réponse

Votre réponse

Discussions similaires