code macro pour filtrer par le mois

[Katoch]

Bonjour forum ,

Besoin de votre aide...
Quel pourrait être le code dans une macro pour qu'une feuille de données soit filtrée par le mois affiché un combbox ?
Actuellement j'utilise , pour le mois en-cours ce code :

ActiveSheet.Range("$A$5:$R$1048576").AutoFilter Field:=12, Criteria1:= _
xlFilterThisMonth, Operator:=xlFilterDynamic

[Pour plus de détails éventuellement , j'ai ce fichier (pour lequel ROBERT m'a répondu qu'il ne pouvait le prendre en charge du fait de sa version excel)==> http://cjoint.com/?3AosWJ6nvpy]

merci

 

[flyonets44]

Re : code macro pour filtrer par le mois

Bonsoir
à tester ces lignes de code

Sub extractdate
Dim Previous_Date, Current_Date 
Current_Date = Date 
Previous_Date = Current_Date - 5 
Range("A1").Select ' les dates sont supposées être situées colonne A
Selection.AutoFilter 
Selection.AutoFilter Field:=1, Criteria1:=">=" & Previous_Date, 
Operator:=xlAnd _ 
, Criteria2:="<=" & Current_Date 
end sub
Cordialement
flyonets

 

[Katoch]

Re : code macro pour filtrer par le mois

Merci pour avoir apporté une réponse,mais elle ne

ne répond pas à mon attente..."soit filtrée par le mois affiché un combbox ?"

Salutations