Discussion :

[buzzerbuc]

Bonsoir à tous,

Je suis des cours du soir depuis Sept 2014...et j'essaie de dvlopper un userform (fomulaire,voir en attachement).
En clickant sur le boutton "save" (CommandButton1), cela aurait comme action d'enregistrer
les données contenues dans les Textbox dans une feuille de calcul (worksheet données) par ex de A1 à P1

En attachement, le code d'erreur...
Ci-dessous le code le code...
Si qq'un sait m'aider...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub CommandButton1_Click()
 
Dim i As Integer
 
 
    For i = 1 To 13
 
        Sheets("fomulaire").Control("TextBox" & i).Value = Sheets("données").Range("B" & i + 1).Value
 
    Next
 
End sub

[SfJ5Rpw8]

Bonsoir,

pose toi ces 2 questions :

Que fait cette ligne de code : For i = 1 To 13

et celle-ci "TextBox" & i

[buzzerbuc]

Code vba :

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

For i = 1 To 13

Code vba :

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

"TextBox" & i

Je réfléchis mais je ne trouve pas la solution...

D'avance merci

[SfJ5Rpw8]

bonjour,

tu n'as pas l'air d'avoir beaucoup cherché ....


Ben le "for" c'est une boucle qui fait évoluer i de 1 à 13

et l'operation "TextBox" & i effectue une concaténation de la chaine "TextBox" et i ... TextBox1, TextBox2 ....TextBox13 : est-tu sur que tous ces textbox existent ?

[Theze]

Bonjour,

Tu dis :

En clickant sur le boutton "save" (CommandButton1), cela aurait comme action d'enregistrer
les données contenues dans les Textbox dans une feuille de calcul (worksheet données) par ex de A1 à P1

et ton code :

Code :

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

1
2
 
Sheets("fomulaire").Control("TextBox" & i).Value = Sheets("données").Range("B" & i + 1).Value

fait référence à deux feuilles de calcul Excel dont une (fomulaire) contiendrait des TextBox (contrôles ActiveX) qui devraient recevoir les valeurs de la feuille "données" et en plus, si on fait référence à une collection d'objets, le nom de la collection prend un s à la fin :

Code :

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

1
2
 
Control("TextBox" & i).Value

doit s'écrire :

Code :

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

1
2
 
Controls("TextBox" & i).Value

Sur ton image, on ne voit que 7 TextBox alors que tu boucle jusqu'à 13 !
regarde cette piste :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Private Sub CommandButton1_Click()
 
    Dim I As Integer
    Dim J As Integer
 
    J = 1
 
    For I = 0 To Me.Controls.Count - 1
 
        If InStr(Me.Controls(I).Name, "TextBox") <> 0 Then
 
            J = J + 1
            'en colonne B
            Sheets("données").Cells(J, 2).Value = Me.Controls("TextBox" & I).Value
 
            'ou/et en ligne 1
            Sheets("données").Cells(1, J).Value = Me.Controls("TextBox" & I).Value
 
        End If
    Next
 
End Sub

Hervé.