XL 2013 Afficher le résultat de la recherche multicritère dans un textbox

[SIRYANICE]

Toujours avec mon fichier, je voulais avoir un code pour additionner le résultat de ma recherche multicritère dans des texboxes dont un pour le total des prises et l'autre pour le total du litrage.
Merci d'avance

 

[fanch55]

Bonjour

Sub recher()
    With UserForm
        key = .TextBox5
        cl = .ComboBox1.ListIndex
        .ListView1.ListItems.Clear
        Set d = Feuil3.[A10]
        While (d) <> ""
            If key Like UCase(Left(d.Offset(, cl), Len(key))) Then
                Set lst = .ListView1.ListItems.Add(, , d.Cells(1, 1))
                For i = 2 To 21
                    lst.ListSubItems.Add , , d.Cells(, i)
                    If i = 8 Then cumul = cumul + d.Cells(, i)
                Next i
            End If
            Set d = d.Offset(1, 0)
        Wend
        .TextBox3.Value = .ListView1.ListItems.Count
        .TextBox4.Value = Format(Replace(cumul, ".", ","), "0.00 Litres")
    End With
End Sub

 

[SIRYANICE]

Bonjour

Sub recher()
    With UserForm
        key = .TextBox5
        cl = .ComboBox1.ListIndex
        .ListView1.ListItems.Clear
        Set d = Feuil3.[A10]
        While (d) <> ""
            If key Like UCase(Left(d.Offset(, cl), Len(key))) Then
                Set lst = .ListView1.ListItems.Add(, , d.Cells(1, 1))
                For i = 2 To 21
                    lst.ListSubItems.Add , , d.Cells(, i)
                    If i = 8 Then cumul = cumul + d.Cells(, i)
                Next i
            End If
            Set d = d.Offset(1, 0)
        Wend
        .TextBox3.Value = .ListView1.ListItems.Count
        .TextBox4.Value = Format(Replace(cumul, ".", ","), "0.00 Litres")
    End With
End Sub

Merci beaucoup pour votre aide.