Filtre personaliséRésolu

Question

Bonjour,

je veux créer un filtre personalisé par date sur un tableau excell avec comme formule : > date aujourd'hui + 45 jours.

voici mon filtre.

'filtre qui enleve les dates > aujourd'hui + 45j
Dim today As Date
today = Date
vadate = today + 45
Rows(4).AutoFilter Field:=12, Criteria1:="<=" & vadate

une fois la macro éxecutée, le filtre est bien fait au bon endroit mais cache tout :( il y a pourtant une date qui devrait apparaitre.
et lorsque je clic sur le filtre puis personalisé, la bonne date apparait ...

Merci de m'indiquer que changer :p

cs_MPi · Accepted Answer

Une façon simple serait d'utiliser une colonne vide (visible ou non) et d'y mettre une formule du genre:
=L2
et d'y mettre un format numérique

Ensuite il serait plus facile de faire le tri sur cette colonne en utilisant 
Rows(4).AutoFilter Field:=12, Criteria1:="<=" & CLng(vadate)

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

cs_MPi · Answer

Bon... 
Oublie ce que j'ai dit concernant la colonne vide...
Utilise simplement le genre de formule que j'ai mise, avec le CLng()

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

kikou6969 · Answer

Encore merci bien ;)

Filtre personalisé

3 réponses

Votre réponse

Discussions similaires