transformation listview en listbox

bonjour a tous

pouvez vous ,s'il vous plait, m'aider a adapter le code de remplissage d'une listview pour l'utiliser avec une listbox?


merci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Private Sub CommandButton4_Click()   If TextBox5.Value = "" Then Exit Sub If TextBox5.Value <> "" Then ListView1.ListItems.Clear     Sheets("feuil1").Activate With ListView1 With .ColumnHeaders .Clear .Add , , Range("B7"), Range("B7").Width .Add , , Range("C7"), Range("C7").Width ', lvwColumnCenter   End With End With ListView1.View = lvwReport liglist = 1 For n = 7 To Range("B65536").End(xlUp).Row If Range("C" & n) <> "" And Range("C" & n) < Now - TextBox5.Value Then ListView1.ListItems.Add , , Range("B" & n).Value ListView1.ListItems(liglist).ListSubItems.Add , , Range("C" & n).Value liglist = liglist + 1 End If Next n End If End Sub

---

Bonjour,

Quelque chose comme ça ?

Code:

---

1 2 3 4 5 6 7 8

Listbox1.ColumnCount = 2 For n = 7 To Range("B65536").End(xlUp).Row If Range("C" & n) <> "" And Range("C" & n) < Now - TextBox5.Value Then Listbox1.AddItem Listbox1.List(Listbox1.Listcount - 1, 0) = Range("B" & n).Value Listbox1.List(Listbox1.Listcount - 1, 1) = Range("C" & n).Value End If Next n

---