Bonjour,
Si j'ai bien compris ... il y avait deux erreurs sur la macro.
1- CStr(C.Offset(, 1)) < il manquait le C. devant le Offset.
2- Set F = Nothing < il manquait le Set devant le F.
Sub ListViewCritere(DateDebut As Date, DateFin As Date, Libelle As String)
'' , _
' Paiement As Variant, Debit As Variant, Credit As Variant
Dim F As Worksheet
Dim Lr As Long, Ligne As Integer
Dim C As Variant
Dim i As Integer
Set F = ThisWorkbook.Sheets("C.MUTUEL")
Lr = F.Range("A" & Rows.Count).End(xlUp).Row - 1
With Me.ListView1
.ListItems.Clear
With .ColumnHeaders
For i = 1 To 5
.Add , , F.Cells(2, i)
Next i
End With
.View = lvwReport
.Gridlines = True
.FullRowSelect = True
If Lr = 5 Then Exit Sub
Ligne = 1
For Each C In F.Range("A5:A" & Lr)
''If CDate(C) >= DateDebut And CDate(C) <= DateFin And CStr(Offset(, 1)) = Libelle Then
If CDate(C) >= DateDebut And CDate(C) <= DateFin And CStr(C.Offset(, 1)) = Libelle Then
.ListItems.Add , , C
For i = 1 To 5
.ListItems(Ligne).ListSubItems.Add , , C.Offset(, i)
Next i
Ligne = Ligne + 1
End If
Next C
End With
Set F = Nothing
End Sub
Est-ce bien le problème que tu cherchais ?
ric