D
Domi
Guest
Bonsoir à tous,
Je souhaiterai copier les données d'un filtre automatique sans la ligne de titre. J'ai essayé avec une formule que j'ai trouvé sur un site, mais ça ne marche pas. A titre indicatif, je l'ai laissé ds la macro en commentaire.
merci d'avance.
Domi
Sub filtre()
'
Sheets("feuil2").Select
Range("A1").AutoFilter Field:=5, Criteria1:=">=12/31/" & CStr(Year(Now()) - 1), Operator:=xlAnd _
, Criteria2:="<01/31/" & CStr(Year(Now()))
Range("A1").CurrentRegion.Copy
Sheets("Feuil3").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.AutoFilter
'With Selection.CurrentRegion
'Intersect(.Cells, .Offset(1)).Select
'End With
End Sub
Je souhaiterai copier les données d'un filtre automatique sans la ligne de titre. J'ai essayé avec une formule que j'ai trouvé sur un site, mais ça ne marche pas. A titre indicatif, je l'ai laissé ds la macro en commentaire.
merci d'avance.
Domi
Sub filtre()
'
Sheets("feuil2").Select
Range("A1").AutoFilter Field:=5, Criteria1:=">=12/31/" & CStr(Year(Now()) - 1), Operator:=xlAnd _
, Criteria2:="<01/31/" & CStr(Year(Now()))
Range("A1").CurrentRegion.Copy
Sheets("Feuil3").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.AutoFilter
'With Selection.CurrentRegion
'Intersect(.Cells, .Offset(1)).Select
'End With
End Sub