variable et autofilter VBA

[modus57]

Bonjour à tous.

Malgré mes recherches je n'ai pas trouvez de solution.

Je souhaiterai dans la feuille active filtrer les dates en colonne 3 en fonction de 2 variables , les adhérents en colonne 10 et les inscrits en colonne 12.

Voici le :

Dim Année As String, AnnéeN_1 As String
Année = Year(Date)
AnnéeN_1 = Year(Date) - 1

    ActiveSheet.Range("$A$1:$Q$288").AutoFilter Field:=3, Operator:= _
        xlFilterValues, Criteria2:=Array(0, AnnéeN_1, 0, Année)
        
    ActiveSheet.Range("$A$1:$Q$288").AutoFilter Field:=10, Criteria1:="=~?~?~?" _
        , Operator:=xlOr, Criteria2:="=Adhérent"
        
    ActiveSheet.Range("$A$1:$Q$288").AutoFilter Field:=12, Criteria1:="Inscrit"

Çà bug sur :

"ActiveSheet.Range("$A$1:$Q$288").AutoFilter Field:=3, Operator:= _
        xlFilterValues, Criteria2:=Array(0, AnnéeN_1, 0, Année)

Avez-vous peut-être la réponse.

Merci d'avance.

 

[BOISGONTIER]

Re : variable et autofilter VBA

Bonjour,

Le filtre automatique sur dates

JB

 

[modus57]

Re : variable et autofilter VBA

Bonjour BOISGONTIER

Si j'utilise l'enregisteur de macro voilà le:

ActiveSheet.Range("$A$1:$Q$288").AutoFilter Field:=3, Operator:= _
    xlFilterValues, Criteria2:=Array(0, "1/10/2013", 0, "11/23/2012")

J'ai essayer le :

    ActiveSheet.Range("$A$1:$Q$288").AutoFilter Field:=3, _
     Criteria1:=">=" & CDbl(DateSerial(AnnéeN_1, 1, 1)), Operator:=xlAnd, _
        Criteria2:="<=" & CDbl(DateSerial(Année, 12, 31))

Le filtre masque toutes les lignes.

Petite précision j'utilise EXCEL 2010.

 

[BOISGONTIER]

Re : variable et autofilter VBA

A chaque version d'Excel , les règles pour les dates changent.

Sur mon fichier, avec Excel 2010, c'est ok (mais c'est un fichier au format .xls)

ActiveSheet.Range("$A$1:$Q$288").AutoFilter Field:=3, _
Criteria1:=">=" & CDbl(DateSerial(AnnéeN_1, 1, 1)), Operator:=xlAnd, _
Criteria2:="<=" & CDbl(DateSerial(Année, 12, 31))

Voir PJ

JB

 

[modus57]

Effectivement ton code fonctionne avec l'année N & N-1 en dure :

AnnéeN_1 = 1970
Année = 1971
     [A5].AutoFilter field:=5, _
     Criteria1:=">=" & CDbl(DateSerial(AnnéeN_1, 1, 1)), Operator:=xlAnd, _
        Criteria2:="<=" & CDbl(DateSerial(Année, 12, 31))

Année doit être égale à l'année en cours

AnnéeN_1 doit être égale à l'année en cours-1

 

[modus57]

Re : variable et autofilter VBA

Re bonjour BOISGONTIER

J’ai adapté ton code “Suppression des dates < an-2”:

[A1].AutoFilter Field:=3, Criteria1:=">=" & _
     CDbl(DateSerial(Year(Date) - 1, Month(Date), Day(Date)))

Ça marche.

Merci pour ton aide.

Bonne journée.