Discussion :

[adamgg]

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 :

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

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:



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

[mercatog]

Est ce que tu as TextBox2...TextBox101?

[adamgg]

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 :

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

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 :

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

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

[Daniel.C]

Bonjour,

Code :

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

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

[adamgg]

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 :

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

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

[Invité]

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