prob de tri sur date

[marcello06]

bonjour à tous,

J'ai un soucis sur un tri sur la date voici le code

Sheets("Accueil").Select
DateTraitement = Range("M20").Value
Sheets("AC").Select

Rows("1:1").Select
Selection.AutoFilter
Range("A1:R1").Select
Selection.AutoFilter
Range("A1").Select

ActiveSheet.Range("$A$1:$R$25000").AutoFilter Field:=15, Criteria1:="<>", Operator:=xlAnd

ActiveSheet.Range("$A$1:$R$25000").AutoFilter Field:=9, Criteria1:="=PIV*"

ActiveSheet.Range("$A$1:$R$25000").AutoFilter Field:=12, Criteria1:="=M.E.S*"

ActiveSheet.Range("$A$1:$R$25000").AutoFilter Field:=15, Criteria1:= _
xlFilterToday, Operator:=xlFilterDynamic

cette derniere ligne marche mais je souhaite faire le tri en fonction d'une variable issue de la cellule M20 et j'ai donc modifie mon code avec cette ligne

ActiveSheet.Range("$A$1:$R$25000").AutoFilter Field:=15, Criteria1:="=" & DateTraitement

Mais là cela ne fonctionne plus !!!!

Pouvez vous m' aidez merci par avance

 

[job75]

Re : prob de tri sur date

Bonjour marcello06,

Si l'on cherche bien à filtrer des dates (valeurs numériques au format Date) :

1) Si en M20 on a aussi une date :

ActiveSheet.Range("$A$1:$R$25000").AutoFilter Field:=15, Criteria1:=DateTraitement

2) Si en M20 on a un texte, utiliser CDate :

ActiveSheet.Range("$A$1:$R$25000").AutoFilter Field:=15, Criteria1:=[COLOR="Red"]CDate[/COLOR](DateTraitement)

Jamais "=" & devant...

A+

 

[marcello06]

Re : prob de tri sur date

merci JOB75

et ça marche ainsi

thank et bon WE a tous