utilisation de Autofilter avec des dates en VBA ExcelRésolu

Question

Bonjour,



Je souhaite filtrer une liste sur un p&#233;riode et n'afficher que les
lignes dont la date est comprise entre dDateDebut et dDateFin. Pour
cela, j'ai &#233;crit le code suivant :



Critere_1 = ">=" & Format(dDateDebut, "dd-mmm-yy")

Critere_2 = ">=" & Format(dDateFin, "dd-mmm-yy")



Selection.Autofilter Field:=10, Criteria1:=Critere_1, Operator:=xlAnd, Criteria2:=Critere_2



et cela ne fonctionne que partiellement.



Le filtre ne laisse apparaitre aucune valeur. Cependant, si je
visualise mon filtre personnalis&#233; de la colonne 10, celui est bien
rempli. Si ensuite je valide par Ok sans rien changer, le filtre
s'applique correctement.



O&#249; est l'erreur ? Quelqu'un peut-il m'aider ?

cs_hachebe · Accepted Answer

Bonjour,

J'ai trouv&#233; l'origine de mon probl&#232;me. Pour cela fonctionne, j'ai du utiliser le format UK comme suit :

Critere_1 = ">=" & Format(dDateDebut, "mm/dd/yyyy")
Critere_2 = "<=" & Format(dDateFin, "mm/dd/yyyy")


Bonne Ann&#233;e


hachebe

jpleroisse · Answer

Bonjour, Voici une macro que j'ai enregistré avec l'enregistreur de macro et qui fonctionne très bien.A mon avis tu as fais une erreur dans Criteria2, c'est <= au lieu de >=, comme tu as mis. Sub Macro2() Range("B1").Select Selection.AutoFilter Selection.AutoFilter Field:=1, Criteria1:=">12/08/04", Operator:=xlAnd, _ Criteria2:="<=2/01/05" End Sub jpleroisse Si une réponse vous convient, cliquez Réponse Acceptée.

Utilisation de Autofilter avec des dates en VBA Excel

2 réponses

Discussions similaires