petit probleme dans listbox

salut, j'ai deux liste box et je veux copier toute les donné d'une liste à l'autre voici ma suggestion

Code:

---

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

Private Sub Déplacertout_Click() Dim i As Integer     For i = 0 To List1.ListCount     List2.AddItem List1.Text, (i) Next i         End Sub

---

mais ça marche pas. J'attend vos réponse:D

List1.Text ne renvoie que le text visible (pour le combobox) et/ou la ligne en cours de selection.

Code:

---

List2.AddItem List1.List(i)

---

de plus ListCount renvoi le nombre de ligne, alors que list(n) demare de 0 à ListCount - 1