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 : 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
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