Recherche listbox

Bonjour la communauté

pourriez vous svp jettez un coup d'oeil sur mon fichier

j'aurai besoin une fois je clique sur une ligne de la listbox1 il m'affiche la liste des montants versées (voir feuille 3) relatives à cette ligne sélectionnée. le champ de recherche en commun entre les deux listbox est le champ POLICE

je veux également afficher le total des montants de la listbox 2 et dont la date d'annulation n'est pas renseignée dans la textbox4.

la listbox2 doit contenir 7 colonnes avec les entêtes

N° QUITTANCE; TYPE QUITTANCE; CODE AGENT MONTANT; DATE EMISSION; DATE OPÉRATION;DATE ANNULATION

merci d'avance pour votre coup de main

ci-joint mon fichier

Bonjour,

à tester,

Private Sub ListBox1_Click()
Dim liste As Variant, i As Long, j As Integer, n As Integer, cl As Variant, frm As Variant
Dim LB2(), NoPol As String, dt As String
dt = Me.TextBox4
NoPol = Me.ListBox1.List(Me.ListBox1.ListIndex)
cl = Array(9, 10, 11, 12, 13, 14)
frm = Array("0", "0", "0", "0.00", "yyyy-mm-dd", "yyyy-mm-dd")
liste = Sheets("Feuil3").Range("A1:O" & Sheets("Feuil3").Cells(Rows.Count, 1).End(xlUp).Row).Value

For i = LBound(liste) To UBound(liste)
    If Not liste(i, 15) = CDate(dt) Then
     If i = 1 Or liste(i, 1) = NoPol Then
        n = n + 1
        For j = LBound(cl) To UBound(cl)
          ReDim Preserve LB2(UBound(cl), n)
          LB2(j, n - 1) = Format(liste(i, cl(j)), frm(j))
        Next j

     End If
    End If
Next i
Me.ListBox2.List = Application.Transpose(LB2)
End Sub

Bonjour;

Merci pour votre retour sauf que ca bloque à ce niveau de ligne code

If Not liste(i, 15) = CDate(dt) Then

le motif est le suivant CDate(dt)=<incompatibilité de type> bien que la colonne 15 est en format date

Pourriez vous voir s'il y a une solution?

Merci

re,

comment est renseigné le TextBox4 ?

remplace la ligne

If Not liste(i, 15) = CDate(dt) Then

par

If Not liste(i, 15) = dt Then