optimisation du code pour la variable tableau

Bonjour à tous.
je m'initie maintenant aux variables tableaux. j'ai essayé de travailler en ressource avant de reproduire ce travail sur la feuille Excel comportant un tableau. je voudrais savoir s'il n'y a pas plus optimal que ce que j'ai écrit?
le but de mon code est de faire un enregistrement .

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub CommandButton1_Click() Dim i As Integer: Dim Tablo(): Dim x As Integer With Sheets(1) Tablo = .Range("Tabl").Value   For x = LBound(Tablo) To UBound(Tablo) Tablo(x, 1) = TextBox3 Tablo(x, 2) = TextBox2 Tablo(x, 3) = TextBox4   .ListObjects(1).ListRows.Add i = .Range("b" & Rows.Count).End(xlUp).Row .Range("b" & i) = Tablo(x, 1) .Range("c" & i) = Tablo(x, 2) .Range("d" & i) = Tablo(x, 3) Exit For Next   End With   End Sub

---

merci de votre attention.

Bonjour,

sans savoir l'objectif exact de ton code, ce qui m'interpelle ici est ton Exit For, qui te fait sortir de ta boucle et donc ne parcourt pas ton tableau, se limitant au premier élément de celui-ci...


Est-ce voulu ?

merci pour la réponse.
la sortie de la boucle prématurément a été faite sciemment. si je laisse la boucle l'ajout d'une nouvelle ligne se fait mal et ce n'est pas le but de mon code. en ajoutant " exit for " j'obtiens l'enregistrement voulu après la ligne non vide. en fait il ajoute une seule ligne après chaque click alors que sans "exit for", il ajoute à chaque fois à la ligne précédente deux nouvelles lignes.

Citation:

---

Envoyé par Jean-Philippe André

Bonjour,

sans savoir l'objectif exact de ton code...


Est-ce voulu ?

---

j'enregistre des données dans un tableau sur une feuille excel. le but est d'ajouter un nouveau client à la suite de l'ancien. après plusieurs conseils de vos collègues j'ai préféré comprendre les variables tableaux et essayé de les utiliser. j'espère que vous m'avez compris. merci