problème autofilter avec date

[Blafi]

Bonjour à tous,

J'ai une base de donnée sous excel (Cavaliers) et je cherche à faire un filtre de certaines fiches sur un critère de date de validité.

J'ai la macro suivante que j'avais enregistrée et que j'ai modifiée pour pouvoir sélectionner les fiches dont la date de validité est supérieure ou égale au 31 décembre de l'année en cours (Datevalid = Dateserial(year(date),12,31)

Malheureusement ça ne marche pas, bien que, sur les conseils trouvés sur ce forum, j'ai fait figuré le critère de filtre en utilisant Format(Datevalid,"dd/mm/yy")....

Voici ma macro :

Dim Datevalid As Date

Sub NumLicValid()
'
Datevalid = DateSerial(Year(Date), 12, 31)

Sheets("Cavaliers").Unprotect
Sheets("Cavaliers").Select
Range("A4").Select 'c'est la première cellule de ma base
Selection.AutoFilter

Selection.AutoFilter Field:=21, Criteria1:=">=" & Format(Datevalid, "dd/mm/yy") 'qui est sensé me donner >=31/12/08


End Sub

lorsque j'éxécute ma macro, rien n'est selectionné..
Quelqu'un peut-il m'aider à résoudre ce pb ?
Merci d'avance..

 

[skoobi]

Re : problème autofilter avec date

Bonsoir,

essaye ceci, sans garantie:

Selection.AutoFilter Field:=21, Criteria1:=">=" & Cdbl(Datevalid)

 

[Blafi]

Re : problème autofilter avec date

OK merci Skoobi, je viens d'essayer ta formulation et ça marche !

A ++