[XL-2010] Manipuler un filtre automatique date? [Résolu]

[EmmanuelleC]

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?

[Ormonth]

Bonjour,

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

[EmmanuelleC]

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

je voudrais décocher une année

[Ormonth]

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

[EmmanuelleC]

Ca fonctionne

Merci beaucoup