mettre les valeur d une textbox dans excel

Bonsoir a tous,

Voila mon souci, dans un userform j ai une listbox sur plusieurs ligne que j alimente par une combox, jusque la tous va bien

mais je voudrai que lorsque j appuye sur un command bouton les valeur de cette listbox aie se mettre dans excel.

j arrive bien a boucler sur la list box, les valeur vont bien se mettre ou elle doivent, mais le problème c est que je n arrive pas a arreter la boucle FOR, donc elle boucle une fois de trop et la message d erreur.

Code:

---

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

Private Sub CommandButtonValidé_Click()   Dim i As Integer Dim l As Integer   i = UserAchat.ListBoxAchat.ListCount i2 = 0   For i = 1 To 10   wsProd.Range("a65536").End(xlUp).Offset(1, 0) = ListBoxAchat.Column(0, i2)   i2 = i2 + 1   Next i   End Sub

---

j espere que quelqu un y verra plus clair que moi

d avance merci

Salut
Pourquoi faire une boucle For si c'est pour ne pas utiliser la partie incrémenté, tu n'as pas besoin de i2, utilise directelent i

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub CommandButtonValidé_Click() Dim i As Integer   'i va prendre comme valeur de 0 à nombre de ligne de la listbox (-1 puisqu'on compte a partir de 0) For i = 0 To UserAchat.ListBoxAchat.ListCount -1   wsProd.cells(Rows.count,"A").End(xlUp).Offset(1, 0) = ListBoxAchat.Column(0, i)   Next i   End Sub

---

Cells(Rows.count,"A") pointe sur la derniere cellule de la colonne specifiée, mieux que range("a65..."), car cette valeur depend de la version d'excel.
J'ai pas testé mais ca devrais le faire comme ca.

A++
Qwaz

effectivement c est nickel,
j avais pas encore bien compris l incrémentation de la Boucle FOR
mais c est très logique.

Merci pour ta réponse.

@+ Alex