Encore une question en VBA / Filtre auto

starius · 17 Juillet 2007

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.

Code:

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 · 17 Juillet 2007

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 · 18 Juillet 2007

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 !

Encore une question en VBA / Filtre auto

starius

Guest

ballmaster

XLDnaute Occasionnel

starius

Guest

Discussions similaires

Encore une question en VBA / Filtre auto

starius

Guest

ballmaster

XLDnaute Occasionnel

starius

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency