Récapitulatif journalier dans userform

Bonjour à tous

je cherche à réaliser un récapitulatif dans un userform

je ne parvient pas à finaliser le code du fichier ci joint

dans un userform je filtre la 1ère colonne par une listbox1 (des Dates sans doublons)

je sélectionne une date dans la listbox1 puis je clic sur le bouton

je voudrais faire s'incrémenter dans les textbox les valeur recherchées en fonction de la date

mais je ne parviens pas au résultat j'ai fait juste un essai pour la textbox1 et le résultat reste à 0

merci pour votre aide et conseil

Bonjour,

Modifier comme suit :

Private Sub userForm_Initialize()
Dim i%, a, MonDico
   Set MonDico = CreateObject("Scripting.Dictionary")
   a = Range("A2:A" & [A65000].End(xlUp).Row)
   For i = LBound(a) To UBound(a)
     If a(i, 1) <> "" Then MonDico(a(i, 1)) = ""
   Next i
   Me.ListBox1.List = MonDico.keys
End Sub
Private Sub filtre()

Dim i As Integer
Dim tablo As Variant
Dim NbX As Double
Dim j As Byte

tablo = Range("a2:g" & Range("a65536").End(xlUp).Row)
    If ListBox1.ListIndex = -1 Then
        MsgBox "merci de renseigner la listes."
        Exit Sub
    End If
NbX = 0

For i = 1 To UBound(tablo)
    For j = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(j) Then
            If ListBox1.List(j) = CStr(tablo(i, 1)) Then 'la suite sans changement...

A+

[Edit] Le ListBox contient des Strings : Tablo est un Array de Dates donc ton égalité n'était jamais vérifiée, ce qui explique le 0...

Il est préférable d'utiliser des Dictionnary (plus rapides) plutôt que des Collections.

merci pour cette réponse et conseils