filtrer avec une date variable en vba excel

Bonjour, j'ai un petit soucis concernant l'automatisation d'un filtrage.

En fait je voudrais que mon 2ème critère de filtrage sur ma base de donnée dans ma 2ème feuille soit la date (aujourdhui - 1) qui est dans la cellule E1 de ma première feuille. J'ai bien tenté quelque chose mais ça ne marche pas

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub taités171() ' ' '   ' Dim i As String i = Sheets("Feuil1").Cells(5, 1) Sheets("171").Select   'filtre sur le premier critère   ActiveSheet.Range("$A$1:$AJ$16259").AutoFilter Field:=3, Criteria1:=Array( _ "1", "2", "3", "4", "5", "6"), Operator:=xlFilterValues   'filtre sur le 2ème critère   ActiveSheet.Range("$A$1:$AJ$16259").AutoFilter Field:=3, Operator:= _ xlFilterValues, Criteria2:=Array(2, i)   end sub

---

quelqu'un peut-il m'aider ???

Merci d'avance pour vos réponses

Bonsoir jords,

Quelques remarques :

REM1 : .AutoFilter Field:=3 indique un tri avec la troisième colonne de ta sélection... Hors ton premier tri et ton deuxième tri partage un filtre sur la même colonne...

REM2 : Si tu veux que i soit une date, je ne pense pas qu'il soit opportun de la déclarer comme

Code:

---

Dim i As String

---

Mais plutôt comme

Code:

---

Dim i As Date

---

Enfin je le suppose.

REM 3 : un tableau avec des variables avec différents formats, ça me parait trop beau pour fonctionner (à confirmer) :

Code:

---

Criteria2:=Array(2, i)

---

2 est un INTEGER ou un LONG alors que i est un STRING ou une DATE

Bertrand