Totof86
Messages postés1Date d'inscriptionsamedi 20 décembre 2008StatutMembreDernière intervention20 décembre 2008
-
20 déc. 2008 à 20:38
The Meteorologist
Messages postés232Date d'inscriptionjeudi 18 janvier 2007StatutMembreDerniè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.
The Meteorologist
Messages postés232Date d'inscriptionjeudi 18 janvier 2007StatutMembreDernière intervention 3 novembre 20111 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.