Discussion :

[atjohn]

Bonjour à tous,

Je me permet de vous présenter mon problème, car cela fais quelques heures (jours) que je bloque.
Voila je souhaite récupérer l'ensemble des valeurs des textbox de mon user form.
Pour cela je vais varier le numéro de la textbox dans une boucle, ou je viens prendre les valeurs pour les mettre dans un tableau.
ça donne ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub CaptureDon()
    Dim Col As Integer
    For Col = 1 To NbRub
        DonTextBox(Col) = Controls("TextBox" & CStr(col)).text
    Next Col
End Sub

J'obtient une erreur

Erreur d'exécution'-2147024809(80070057)': Objet spécifié introuvable.

j'ai tous essayé, je tourne en rond...
Merci d'avance....

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    For Col = 1 To NbRub
        DonTextBox(Col) = Controls("TextBox" & col)
    Next Col

tu es sûr des valeurs de ta variable NbRub?

Tu as un TextboxN inéxistant.
revérifie le nom de des textbox.

[pgz]

Bonjour.

Tu peux aussi préfixer la collection Controls.
Puisqu'il s'agit de contrôles de Userform

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DonTextBox(Col) = NomUserForm.Controls("TextBox" & col)

ET DonTextBox doit être déclaré quelque part, comme NbRub qui doit aussi avoir une valeur adéquate. D'ailleurs NbRub devrait être une constante.

Cordialement,

PGZ

[atjohn]

Bonjour et merci d'avoir regardé.
Bon, je suis sur que mon NbRub est bien définie.
Quand je fais tourner :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DonTextBox(Col) = "TextBox" & CStr(col)

j'obtiens bien textbox1 à textbox54...
par contre je vais vérifier si j'ai bien mes 54 textbox...

j'essaye avec le userform devant le controls..

encore merci.

[atjohn]

bon j'ai vérifié, j'ai bien mes 54 textbox...
j'ai préfixé le contrôle avec le nom de mon user form et tout est bien définit dans des déclarations Public...



Aussi, mais textbox sont dans des frames. ect ce que ça change l'adresse des textbox, genre frame1.textbox1

[casefayere]

Bonjour,
à tout hasard, ta procédure n'est-elle pas dans un module ? plutot que dans le code de l'USF. Sioui, il faut préciser le nom de l'USF :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

userform1.textbox....

Mais tu sais peut-être déjà ça.

Bonne journée