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