Listbox critere sur textbox & sur combobox

[Manu62]

Bonjour à tous,

Ci joint petit bout de fichier.

J'utilise pour les textbox 1 & 2 des dates (code de papou) pour mes recherches entre dates

après le clic,

Lors de l'affichage de résultat, je souhaiterais en plus avoir le filtre de mon founisseur via la combo.

J'ai trouvé un bout pour alimenter la combo (jb) mais là je sèche.

Merci d'avance

Manu

 

[Guest]

Re : Listbox critere sur textbox & sur combobox

Bonjour,

La nouvelle procédure:

Private Sub CommandButton1_Click()
    Dim c As Range
    [COLOR=red][B]Dim condition As Boolean
[/B][/COLOR]    Feuil1.Select
    ListBox1.Clear
    If Not IsDate(TextBox1) Or Not IsDate(TextBox2) Then _
       MsgBox "Une date n'est pas valide !": Exit Sub
    For Each c In Range("b2:b" & Range("b65536").End(xlUp).Row)
        [COLOR=red][B]condition = c.Value >= CDate(TextBox1) And c.Value <= CDate(TextBox2)
        If ComboBox1.ListIndex > -1 Then condition = condition And c.Offset(, 1) = ComboBox1.Value
[/B][/COLOR]        If condition Then
            With UserForm1.ListBox1
                .AddItem c.Offset(0, -1).Value
                .List(.ListCount - 1, 1) = c.Offset(0, 0).Value
                .List(.ListCount - 1, 2) = c.Offset(0, 1).Value
                .List(.ListCount - 1, 3) = c.Offset(0, 3).Value
            End With
        End If
    Next c
End Sub

A+

 

[Manu62]

Re : Listbox critere sur textbox & sur combobox

Bonjour,

C'est bien ce que je recherché merci

A++

Manu