Discussion :

[alex santus]

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

[Qwazerty]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[alex santus]

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