Enregistrer des données textbox en excel via un bouton dans un userform

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:

---

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

---

Bonsoir,

pose toi ces 2 questions :

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

et celle-ci "TextBox" & i

Code:

---

For i = 1 To 13

---

Code:

---

"TextBox" & i

---

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

D'avance merci

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 ?

Bonjour,

Tu dis :

Citation:

---

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:

---

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:

---

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

---

doit s'écrire :

Code:

---

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:

---

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é.