Remplissage d'une userform

Bonjour,
Dans le cadre de mon stage je dois creer des interface permettant une simplification de l'acces a l'information presente dans une feuille excel

Le code suivant doit remplir mes textbox avec les valeurs de ma feuille excel:

Code:

---

1 2 3 4 5 6

Private Sub TextBox1_Change() Nrow = UserForm1.TextBox1.Value + 4 For Ncol = 2 To 101 Controls.Item("TextBox" & Ncol).Text = Cells(Nrow, Ncol).Value Next Ncol End Sub

---

Seulement ce code ne fonctionne pas et me renvoie l'erreur : Run-time error '-217024809 (80070057)' Could not find the specified object.

Par contre si je remplace "textBox"&Ncol par "textbox1" ca marche mais du coup je perds ma boucle

voici ma userform:

Pièce jointe 149116

est-ce que la presence de la multipage est responsable du bolcage ?

auriez vous une solution ?

Merci de votre comprehension

Cordialement

Adam

PS: Pardonnez les fautes d'accent je travaille actuellement en Irlande

Est ce que tu as TextBox2...TextBox101?

Ma userform contient effectivement toutes les textbox 2 et 101. Ainsi que presque toute celle entre ces 2 nombres d'ou l'interet d'utiliser une boucle. Ta remarque m'a donne l'idee de faire un test pour m'assurer de l'existance de la textbox.
du coup mon nouveau code est:

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub TextBox1_Change() Dim Nrow As Integer Nrow = UserForm1.TextBox1.Value + 4 For Ncol = 2 To 101 If Controls.Item("Textbox" & Ncol) Is Nothing Then Else Controls.Item("TextBox" & Ncol).Text = Cells(Nrow, Ncol).Value End If Next End Sub

---

mon probleme persiste et apparait maintenant sur la ligne du IF, l'expression d'appel doit etre fausse ou mal utilise mais je vois pas d'autre ecriture
Cordialement

J'ai trouve une ecriture semblable dans mon code, mais cette fois je recois l'erreur Run time error '424' object required
voici le code:

Code:

---

1 2 3 4 5 6 7 8

Sub Button1_Click() UserForm1.Show Nrow = 4 For Ncol = 2 To 101 Controls.Item("Label" & Ncol).Caption = Cells(Nrow, Ncol).Value Next   End Sub

---

Mon probleme se situe donc dans l'acces a l'objet
Cordialement

Bonjour,

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub TextBox1_Change() Dim Nrow As Integer Nrow = UserForm1.TextBox1.Value + 4 For Ncol = 2 To 101 On Error Resume Next Controls.Item("TextBox" & Ncol).Text = Cells(Nrow, Ncol).Value On Error GoTo 0 Next End Sub

---

Merci Beaucoup Daniel
Cordialement

J'ai essaye d'utiliser un code semblable pour nommer mes labels, je ne recois pas de message d'erreur mais mes label garde leur ancienne apparence.

Voici le Code aue j'utilise:

Code:

---

1 2 3 4 5 6

Nrow = 4 For Ncol = 2 To 101 On Error Resume Next Controls.Item("Label" & Ncol).Caption = Cells(Nrow, Ncol).Value On Error GoTo 0 Next

---

Je ne comprend pas ou est l'erreur

regardes la pièce jointe,j'avais fait pour qq1 du forum si ça peut t'aidé pour le raisonnement.

Enlève les lignes "On Error" pour afficher l'erreur.

j'ai passe les ligne en commentaire
quand je click sur le bouton je n'est pa d'erreur mais lorsque je ferme la fenetre avec la userform je recois l'erreur :
Run time error '424' object required