VBA Filtre & Date

Bonjour,

J'aimerai tous simplement en vba mettre un filtre pour trier par date. J'ai trouver pas mal de chose mais je comprend pas pourquoi mon filtre ne fonction qu'a moitié.

tableau simple = date de debut en B /date de fin en C

j'aimerai un filtre qui me trie mes dates de la colonne C < 01/02/2016

la macro que j'ai me prend que les dates < 01/12/2015 je ne comprend pas pourquoi!!!

Sub Bouton1_Clic()

     Worksheets("Feuil1").Range("A1").AutoFilter

     AA = DateValue("01/02/2016")
  ActiveSheet.Range("$A$1:$C$5000").AutoFilter Field:=3, Criteria1:="<" & Format(AA, "dd/mm/yyyy")

End Sub

Merci

Bonjour,

Il semble que VBA soit réfractaire dans ce cas de figure à prendre en compte un format autre que l'américain ! Même en utilisant DateSerial, rien à faire, ce qui me surprend. La date est pourtant bien identifiée si on la teste avant, mais transformée au filtrage ! Et si je remplace 1 par 13, plus aucun enregistrement visible !!

Il n'y a que le format "mm/dd/yyyy" qui se traduise par un filtrage correct... Cela me chiffonne car je préfèrerais une autre solution !

Attends un autre avis. (Je suis pour voir si quelqu'un a une manoeuvre de contournement autre que passer par le format américain.)

Cordialement.

Après quelques essais supplémentaires, il semble qu'une version "numérique" fonctionne :

Sub Bouton1_Clic()
    Dim AA As Long
    Worksheets("Feuil1").Range("A1").AutoFilter
    AA = DateSerial(2016, 2, 1)
    ActiveSheet.Range("$A$1:$C$5000").AutoFilter Field:=3, Criteria1:="<" & AA
End Sub

Cordialement.

Salut

Merci pour ta réponse

Sa fonctionne nickel maintenant

Merci

Salut

Merci pour ta réponse

Sa fonctionne nickel maintenant

Merci