ListView avec application de criteres en Combobox et OptionButton

' Initialisation de ListView1
Sub Inilvw1()
Dim Der As Integer, Cel As Range, Plage As Range, Ok As Boolean

With Sheets("Recap")
Der = .Range("A65000").End(xlUp).Row

' Remise à zéro de la ListView1
ListView1.ListItems.Clear

' Remplissage des cellule du tableau ListView1
Set Plage = .Range("A4:A" & Der)
For Each Cel In Plage
If OptionButton1 Then
Ok = True
ElseIf OptionButton2 Then
Ok = Cel.Offset(0, 12).Value <> ""
ElseIf OptionButton3 Then
Ok = Cel.Offset(0, 12).Value = ""
End If
If Ok Then
With ListView1
.ListItems.Add , , Cel
.ListItems(.ListItems.Count).ListSubItems.Add , , Cel.Offset(0, 1)
.ListItems(.ListItems.Count).ListSubItems.Add , , Cel.Offset(0, 4)
.ListItems(.ListItems.Count).ListSubItems.Add , , Cel.Offset(0, 8)
.ListItems(.ListItems.Count).ListSubItems.Add , , Cel.Offset(0, 11)
.ListItems(.ListItems.Count).ListSubItems.Add , , Cel.Offset(0, 12)
.ListItems(.ListItems.Count).ListSubItems.Add , , Cel.Offset(0, 15)
.ListItems(.ListItems.Count).ListSubItems.Add , , Cel.Offset(0, 16)
End With
End If
Next Cel
End With
End Sub

Cliquez pour agrandir...