Discussion :

[la perdue]

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 :

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

[parmi]

Bonjour,

Quelque chose comme ça ?

Code :

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

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