Remplir ListView, avec ComboBox

Private Sub Alim_Listv(j As Byte, Col As Byte)

Dim i As Long, k As Byte

With Sheets("Data")
For i = 10 To .Cells(65536, Col).End(xlUp).Row
If .Cells(i, Col).Text = Controls("Cbx" & j).Text Then
ListView1.ListItems.Add , "K" & i, .Cells(i, 1) '1ère Colonne

ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , .Cells(i, 2) '2ème Colonne
ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , Format(.Cells(i, 3), "dd/mm/yyyy") '3ème Colonne

ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , .Cells(i, 5) ', "dd/mm/yyyy") '5ème Colonne


For k = 3 To 5
ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , .Cells(i, k + 1) 'Colonne 4 à 6
Next
ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , Format(.Cells(i, 7), "# ##0.00") '7èmè Colonne
ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , Format(.Cells(i, 8), "# ##0.00") '8èmè Colonne
ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , .Cells(i, 9) '9 èmè Colonne
ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , .Cells(i, 10) '9 èmè Colonne
ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , .Cells(i, 11) '9 èmè Colonne
ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , .Cells(i, 12) '9 èmè Colonne

ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , .Cells(i, 13) '9 èmè Colonne

End If
Next
End With

For X = 1 To ListView1.ListItems.Count
If ListView1.ListItems(X) = UCase("P") Then
ListView1.ListItems(X).ForeColor = &HFF0000
For j = 1 To 12
ListView1.ListItems(X).ListSubItems(j).ForeColor = &HFF0000
Next
End If
Next

End Sub

Cliquez pour agrandir...

Private Sub Cbx1_Click() 'NOM
ListView1.ListItems.Clear
Alim_Listv 1, 1
Vide_Combo 1
TTotal 5, 1
TTotal 9, 2
TTotal 10, 3
End Sub

Cliquez pour agrandir...