Manipuler un filtre automatique date?

Bonjour,

J'ai une liste dont la premiere colonne est une date et sur la quelle il y a des filtre automatiques.
Je cherche a faire une macro qui efface toutes les années sauf une.

Actuellement, j'ai ca.
Ca fonctionne mais ca ne m'a pas l'air terrible

Code:

---

1 2 3 4 5 6 7 8 9 10 11

annee = InputBox("Quelle année isoler?") derlgn = ActiveSheet.UsedRange.Rows.Count For i = derlgn To 2 Step -1 If Cells(i, 1) <> "" Then If Str(Year(Cells(i, 1))) <> Str(annee) Then Rows(i).Delete Shift:=xlUp End If Else Rows(i).Delete Shift:=xlUp End If Next i

---

J'aimerai utiliser le filtre pour aller plus vite, je voudrais filtrer en gardant toutes les années sauf celle choisie, effacer la plage et puis enlever le filtre, mais je ne trouve pas comment automatiser le filtre

Si j'utilise l'enregistreur de macro il me donne ca si je coche all et puis que je décoche 2010

Code:

---

ActiveSheet.Range("$A$1:$E$1890").AutoFilter Field:=1, Criteria1:=Array("=" ), Operator:=xlFilterValues, Criteria2:=Array(0, "9/3/2011")

---

mais je ne trouve pas comme l'adapter.

Il y a une facon de faire ca?

Bonjour,

Citation:

---

Code:

---

ActiveSheet.Range("$A$1:$E$1890").AutoFilter Field:=1, Criteria1:=Array("=" ), Operator:=xlFilterValues, Criteria2:=Array(0, "9/3/2011")

---

---

première chose, il y a des chances pour que la date concernée sur ta feuille soit le 3 sept 2011, oui - non ?

cordialement,

Didier

C'est la derniere date sur laquelle il a un encodage, mais je ne comprends pas ce qu'elle fait la, vu que je ne pensais pas l'utiliser dans le filtre

ce que je fais en manuel et que j'aimerais bien pouvoir faire par macro, c'est ca
Pièce jointe 82302

je voudrais décocher une année

Ben, oui justement la logique des dates est particulière, perso je gère mes base en numéros de série ;) et là tu as de plus l'exemple des interprétations US/FR vba/feuilles...

Teste ainsi en adaptant à ton interface de saisie...

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub FouchetteDate() Dim AnneeCible As String Dim AnDebut As String Dim Anfin As String   AnneeCible = "2006" AnDebut = "01/01/" & AnneeCible Anfin = "01/01/" & AnneeCible + 1   ActiveSheet.Range("$h$3:$I$23").AutoFilter Field:=1, Criteria1:=">=" & AnDebut, Operator:=xlAnd, Criteria2:="<=" & Anfin End Sub

---

cordialement,

Didier

Ca fonctionne :)

Merci beaucoup