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..
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..