Discussion :

[lombriiik]

Bonjour à tous,

je cherche à trier un tableau d'après une colonne contenant des dates. J'ai créé un UserForm avec 2 DT Picker. J'ai bien réussi à activer le filtre auto et à lui passer en argument les dates de mes DT Picker au bon format mais il ne me trouve aucun enregistrement correspondant (alors qu'il devrait !!).

Si quelqu'un a une idée là dessu ou a déjà été confronté au problème ...

Mon code:

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub CommandButton1_Click()
Dim debut, fin As Date
 
    debut = Format(DTPicker1.Value, "mm/dd/yyyy")
    fin = Format(DTPicker2.Value, "mm/dd/yyyy")
    Sheets("Feuil1").Range("A1:CZ1000").AutoFilter Field:=69, Criteria1:="OUI"
    Sheets("Feuil1").Range("A1:CZ1000").AutoFilter Field:=78, Criteria1:=">=" & debut, Operator:=xlAnd, Criteria2:="<=" & fin
End Sub

D'avance merci
Bonne journée

[Godzestla]

Salut,

peux-tu essayer en inversant le format de tes dates (yyyy/mm/dd au lieu de dd/mm/yyyy) ?

[lombriiik]

Bonjour Godzestla,

merci de t'être penché sur mon problème malheureusement ta manipulation ne change rien mais je me suis rendu compte que mon code configurait correctement le filtre auto; c'est à dire que, si je retourne sur mon tableau le filtre est bien activé sur personnalisé avec les paramètres que je lui ai donné mais le tri ne donne rien sauf si je valide les paramètres avec le bouton OK ...

Peut être existe t'il une façon de rafraichir le filtre ou de forcer son application ...

[lombriiik]

Bonjour à tous,

j'ai trouvé une solution sur un autre forum avec ce code si ça peut servir à quelqu'un ...

Code :

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

1
2
3
4
5
6
7
 
Dim debut As Date
Dim fin As Date
    debut = DTPicker1.Value
    fin = DTPicker2.Value
    Sheets("Feuil1").Range("A1:CZ1000").AutoFilter field:=3, Criteria1:=">=" & Format(debut, "mm/dd/yyyy"), _
        Operator:=xlAnd, Criteria2:="<=" & Format(fin, "mm/dd/yyyy")

Merci en tout cas à ceux qui se sont penchés sur mon problème.

@ +