Recherche dans listbox par critères

Bonsoir,

Je voulais rechercher dans listbox uniquement les clients ayant une date d'entrée et afficher les détails dans les textbox

Mais mon code ٍVBA recherche tout le monde (Entrants et sortants)

Merci

Option Explicit

Private Sub CommandButton1_Click()
Dim dic_liste As Object
Dim i As Integer
Dim sel_ligne As Boolean
Dim A As Integer, B As Integer
Dim Acc As Integer, Bcc As Integer
Dim Add As Integer, Bdd As Integer
Dim AaCC As Integer, BaCC As Integer

    '// création d'un dictionnaire relatif aux lignes sélectionnées de la feuille active
    Set dic_liste = CreateObject("Scripting.Dictionary")
    i = 2
    While Cells(i, "A") <> Empty
        sel_ligne = True
        If Me.ComboBox1 <> Empty And Me.ComboBox1 <> "TOUT" Then If Cells(i, "F") <> Me.ComboBox1 Then sel_ligne = False
        If Me.ComboBox2.Value = "CLIENTS" Then
        If Me.ComboBox2 <> Empty Then If Cells(i, "E") <> "CC" And Cells(i, "E") <> "DD" Then sel_ligne = False
        Else
        If Me.ComboBox2 <> Empty And Me.ComboBox2 <> "TOUT" Then If Cells(i, "E") <> Me.ComboBox2 Then sel_ligne = False
        End If

        If sel_ligne Then
            dic_liste(i) = Range(Cells(i, "A"), Cells(i, "G")).Value
            If Cells(i, "F") = "A" Then
                A = A + 1
                If Cells(i, "F") = "A" And Cells(i, "F").Offset(, -1) = "CC" Then Acc = Acc + 1
                If Cells(i, "F") = "A" And Cells(i, "F").Offset(, -1) = "DD" Then Add = Add + 1
                If Cells(i, "F") = "A" And Cells(i, "F").Offset(, -1) = "ACC" Then AaCC = AaCC + 1
            End If
            If Cells(i, "F") = "B" Then
                B = B + 1
                If Cells(i, "F") = "B" And Cells(i, "F").Offset(, -1) = "CC" Then Bcc = Bcc + 1
                If Cells(i, "F") = "B" And Cells(i, "F").Offset(, -1) = "DD" Then Bdd = Bdd + 1
                If Cells(i, "F") = "B" And Cells(i, "F").Offset(, -1) = "ACC" Then BaCC = BaCC + 1
            End If
        End If

        i = i + 1
    Wend

    '// affichage lignes sélectionnées de la feuille active
    Me.ListBox1.Clear
    If dic_liste.Count > 0 Then Me.ListBox1.Column = Application.Transpose(dic_liste.items)

    Me.TextBox1 = Acc + Add
    Me.TextBox2 = AaCC
    Me.TextBox3 = Bcc + Bdd
    Me.TextBox4 = BaCC
    Me.TextBox5 = A
    Me.TextBox6 = B
End Sub

Private Sub UserForm_Initialize()
Dim WS As Worksheet
Dim Plage As Range, Cell As Range
Dim c As Byte, x As Integer, y As Integer

Set WS = ThisWorkbook.Worksheets("Feuil1")
Set Plage = WS.Range("A2:A" & WS.Range("A1000").End(xlUp).Row)

Me.ListBox1.ColumnCount = 7
Me.ListBox2.ColumnCount = 7

For Each Cell In Plage
    If Cell.Offset(0, 6) = "" Then            'Entrée Seule
        With Me.ListBox1
        .AddItem Cell
            For c = 1 To 7
            .Column(c, x) = Cell.Offset(0, c)
            Next c
        x = x + 1
        End With
    Else                                                  'Entrée et Sortie
        With Me.ListBox2
        .AddItem Cell
            For c = 1 To 7
            .Column(c, y) = Cell.Offset(0, c)
            Next c
        y = y + 1
        End With

    End If
Next Cell

Me.ComboBox1.List = Array("A", "B", "TOUT")
Me.ComboBox2.List = Array("CLIENTS", "ACC", "TOUT")
Me.ComboBox3.List = Array("A", "B", "TOUT")
Me.ComboBox4.List = Array("CLIENTS", "ACC", "TOUT")
End Sub

Bonjour Anass1

ANASS1 a écrit :

Je voulais rechercher dans listbox uniquement les clients ayant une date d'entrée et afficher les détails dans les textbox

Mais mon code ٍVBA recherche tout le monde (Entrants et sortants)

Je pense que tu veux plutôt parler de la date de sortie car dans ton tableau ils ont tous une date d'entrée

@+

Bonjour BrunoM45 ,

Merci pour votre attention

Je veux rechercher des clients qui ne se sont pas encore sortie, c'est-à-dire seuls qui ont une date d'entrée comme dans listbox1;

Ceux avec une date de sortie apparaissent dans listbox2 ,nous chercherons de la même manière.

Merci