Discussion :

[PaapSamba]

Bonjour,

Apres avoir appliqué le code suivant :

Code :

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

 Workbooks(NOM_CLASSEUR_EXTRACT).Worksheets(NOM_FEUILLE_EXTRACT).Range("A$1:Q$10000").AutoFilter Field:=12, Criteria1:="<" & (CDate(Date) - 5)

, je n'obtiens aucun résultat et pourtant je devrais obtenir 160 lignes.
Comment faire pour rendre visible mes lignes résultats ? J'ai beau cherché mais je n'arrive pas à trouver et cela retarde beaucoup mon travail.

Merci d'avance.

[Menhir]

Es-tu sûr que tes dates soient des entiers ?
Si elles ont été obtenues avec des calcul ou des fonctions MAINTENANT(), par exemple, il est possible qu'elle contiennent heures, minutes, secondes, etc. et ne soient donc pas EXACTEMENT égales à la valeur de ton filtre.

[casefayere]

et si tu essayes ton critère comme ça

Code :

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

.....Criteria1:="<" & CDate(Date - 5)

[zenpbb]

ou peut-être comme ça :

Code :

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

... Criteria1:="<" & (CDate(Date) - 5) * 1

[PaapSamba]

Bonjour,

Le *1 a résolu mon probléme.
Je vous remercie tous cordialement pour votre aide.