probleme de filtre dans une macro

[pat 59150]

Bonjour, j'ai un problème dans une macro que je fait :

je recupere un fichier complexe que je copie dans un nouveau classeur, puis je supprime les colonnes dont je n'ai pas besoin et là comme j'ai encore plus de 2000 lignes, j' aimerai ne laisser apparaitre sur la Rows("1:1") celle de la date, uniquement les date anterieur a =AUJOURDHUI() + 7 jours.

Et là je colle,😡 j'ai beau essayer, je n'y arrive pas.😕

Merci de bien vouloire me venir en aide.🙂

 

[skoobi]

Re : probleme de filtre dans une macro

Bonjour,

pour que l'on te viennes en aide, envoie un bout de fichier (<48,8ko) qui illustre ce que tu dis.

 

[pat 59150]

Re : probleme de filtre dans une macro

Ok, je joint un condensé du classeur avec sa macro

 

[pat 59150]

Re : probleme de filtre dans une macro

je voudrai pouvoir faire un filtre élaboré pour ne garder que les information avant une date qui change chaque jours

voici où j'en suis arrivé et là je bloque car cela ne fonctionne toujours pas :

' EXTRACTION JUSQU'A DATE + 7 (N2)


Dim nFiltre As String
nFiltre = Worksheets("feuil1").Range("N2").Value
Range("I2:I3000").Select
Selection.AutoFilter Field:=1, Criteria1:="<=" & nFiltre
Range("A1").Select
Range("A1:L3001").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("2009").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Feuil1").Select
Columns("I:I").Select
Range("A1").Select
Selection.NumberFormat = "m/d/yyyy"

Range("N2:N22").Select
Selection.Copy
Range("I2:I3000").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.AutoFilter
Range("I1").Select
Selection.AutoFilter
Range("A2:O3000").Sort Key1:=Range("I1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Selection.AutoFilter
Columns("I:I").Select
Selection.NumberFormat = "m/d/yyyy"
Application.CutCopyMode = False

Selection.AutoFilter Field:=9, Criteria1:="<09/04/2009", Operator:=xlAnd


Sheets("Feuil1").Select
Range("A3001").Select
Selection.AutoFilter
Range("A1").Select
Sheets("Feuil2").Select
Cells.Select
Selection.AutoFilter
Range("A1:L1").Sort Key1:=Range("I1"), Order1:=xlAscending, Header:=xlYes _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1").Select

quelqu'un pourrait il m'aider ???