Discussion :

[Mél3790]

Bonjour à tous,

Je souhaite trouver le moyen de filtrer le contenu de ma listbox en fonction de la saisie de ma textbox (des dates seront uniquement saisies JJ/MM/AAAA)
J'y arrive avec des boutons d'option, mais pas avec une textbox.


J'appel une fonction pour charger ma listbox qui fonctionne parfaitement, mais au niveau du filtre (saisie textbox), du coup je coince :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Function P3()
 
'la condition du filtre devrait être placé ici, pour donner un truc comme ça :
If P3Textbox.Value <> "" Then
lefiltre = 'Serait une date
End If
 
 
 
 
'alimente la listbox
Dim col As Byte
Dim lign As Long, drlig As Long
If P3Cbformation = "" Then Exit Function
P3Listbox.Clear
With Workbooks("FORMATIONS").Worksheets("formations")
    drlig = Workbooks("FORMATIONS").Worksheets("formations").range("A" & Workbooks("FORMATIONS").Worksheets("formations").Rows.Count).End(xlUp).Row
     If lefiltre = P3Textbox.Value Then
        For lign = 1 To drlig
            If .Cells(lign, 6) = P3Cbformation Then
                P3Listbox.AddItem .Cells(lign, 1)
                For col = 1 To 9
                    If col = 8 Then
                        P3Listbox.List(P3Listbox.ListCount - 1, col) = .Cells(lign, 36)
                    Else
                        P3Listbox.List(P3Listbox.ListCount - 1, col) = .Cells(lign, col + 1)
                    End If
                Next col
            End If
        Next lign
    Else
        For lign = 1 To drlig
            If .Cells(lign, 6) = P3Cbformation And .Cells(lign, 33) = lefiltre Then '(Mes dates sont insérées dans la colonne 33 de ma feuille)
                P3Listbox.AddItem .Cells(lign, 1)
                For col = 1 To 9
                    If col = 8 Then
                        P3Listbox.List(P3Listbox.ListCount - 1, col) = .Cells(lign, 36)
                    Else
                        P3Listbox.List(P3Listbox.ListCount - 1, col) = .Cells(lign, col + 1)
                    End If
                Next col
            End If
        Next lign
    End If
 
 
End With
 
End Function

Merci beaucoup

[unparia]

Bonjour
Déjà, pour éviter de comparer des carottes avec des navets :
1)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If lefiltre = P3Textbox.Value Then

est à remplacer par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If lefiltre = cdate(P3Textbox.Value) Then

et 2)
la variable lefiltre est à typer en date

[Mél3790]

D'accord, et ensuite svp ?

[Mél3790]

J'ai résolu mon problème, merci.
En modifiant simplement comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If .Cells(lign, 6) = P3Cbformation And .Cells(lign, 33) = CDate(P3Textbox.Value) Then

Merci quand même.