marcello06
XLDnaute Occasionnel
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
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