copier données filtre sans ligne titre

[Domi]

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

 

[wape]

Bonsoir Domi et le forum,

Dans l'aide Microsoft relative à la propriété CurrentRegion figure le petit exemple ci-dessous, lequel semble correspondre assez bien à ce que tu souhaites faire :

Aide Microsoft
--------------
Cet exemple suppose que la feuille « Sheet1 » contient un tableau avec une ligne d'en-tête. Il montre comment sélectionner le tableau sans sélectionner la ligne d'en-tête. La cellule active doit se trouver quelque part dans le tableau avant d'exécuter l'exemple.

Set tbl = ActiveCell.CurrentRegion
tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, tbl.Columns.Count).Select

@+
wape

 

[Domi]

Bonsoir Wape et le forum,

Merci Wape, c'est exactement ce que je recherchais.

@+

 

[Moa]

Salut Domi et Wape !

Tu avais aussi une autre solution qui était de partir en A2 et de faire un endxltoright + endxldown pour sélectionner tout ton tableau sans la première ligne :

Si tu as un nombre de colonne fixes :

Range("A2:N2").Select
Range(Selection, Selection.End(xlDown)).Select

Si ton nombre de colonne est variable :

Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy


@ +

Moa

 

[Domi]

Bonjour Wape et Moa,

Que de solutions!!!!!!

un grand merci à tous les deux.

Domi