Trier la listview en fonction du combobox

Private Sub MoisFacture_Change()
Dim Plg As Variant, L As Integer, I As Integer, C As Byte
MonMois = MoisFacture.Value

With Sheets("saisie")
Plg = .Range("a5:e" & .Range("a65536").End(xlUp).Row)
End With

With Me.ListView1
For L = 1 To UBound(Plg, 1)
If Format(CDate(Plg(L, 1)), "mmmm") = MonMois Then
I = .ListItems.Count + 1
.ListItems.Add = Plg(L, 1)

For C = 2 To UBound(Plg, 2)
.ListItems(I).ListSubItems.Add = Plg(L, C)
Next C
End If
Next L

End With
End Sub

Cliquez pour agrandir...