Encore une question en VBA / Filtre auto

[starius]

Re-bonjour,

Une nouvelle question sur le VBA et les filtres auto...
Alors, j'ai réussi à appliquer mon filtre automatique selon mon critère.

Worksheets("Données").Range("A1").AutoFilter Field:=3, Criteria1:="Création"
    i = ActiveSheet.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count

Je voudrais maintenant copier ces cellules (sans la ligne d'entête) afin de la coller dans un autre fichier...

Merci d'avance pour votre aide.

 

[ballmaster]

Re : Encore une question en VBA / Filtre auto

Essaye ce bout de code :
en gras = a adapter


Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Feuil2").Select
Range("A1").Select
ActiveSheet.Paste
Rows("1:1").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp

 

[starius]

Re : Encore une question en VBA / Filtre auto

Génial ! Merci beaucoup !

La prochaine étape consiste à ne sélectionner que certaines colonnes... Il faut que je joue avec le range...

Merci encore !