Discussion :

[Phil_de_Paris]

Bonjour,

Je cherche à réaliser une macro pour dupliquer une feuille (c'est à dire avec mise en page à l'identique) en ne conservant que les lignes filtrées (filtrage automatique).

Ma macro marche pour le filtrage mais ne conserve pas la mise en page.
Pouvez vous m'aider ? !
merci d'avance,
Phil.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Rows.Copy
Sheets.Add
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False 
        Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False

[Philippe Tulliez]

Bonjour,
Pour conserver le format, il suffit de refaire un collage spécial-Format
Les Select, Selection peuvent être avantageusement remplacés par les objets Range concerné.
Alternative : L'utilisation des filtres avancés d'excel conservent le format et permettent l'exportation des données filtrées

Bonjour,
Je viens de réaliser que ce n'est pas le format que tu voulais conserver mais la mise en page.
Qu'entends-tu par la mise en page ?
Est-ce seulement la largeur de colonne ? dans ce cas, il faut faire un Collage Special-Largeur de colonne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

PasteSpecial Paste:=xlPasteColumnWidths

Soit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub CopyFilter()
 Dim rng As Range
 Set rng = ThisWorkbook.Worksheets("db").Range("A1")
 rng.CurrentRegion.SpecialCells(xlCellTypeVisible).Rows.Copy
 Sheets.Add
 With Range("A1")
 .PasteSpecial Paste:=xlPasteColumnWidths
 .PasteSpecial Paste:=xlPasteFormulas
 .PasteSpecial Paste:=xlPasteFormats
 End With
End Sub

S'il s'agit de la mise en page de toute la feuille (réglée par l'onglet [Mise En Page]), deux solutions possibles soit utiliser une feuille modèle soit faire une copie de la feuille filtrée qui gardera la mise en page ensuite un clear des cellules de cette nouvelle feuille et un Copier/Collage special des valeurs

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub CopyFilter()
 Dim sht As Worksheet: Set sht = ThisWorkbook.Worksheets("db")
 sht.Copy Before:=Sheets(1)
 With Range("A1")
 .AutoFilter
 .CurrentRegion.ClearContents
 sht.Range("A1").SpecialCells(xlCellTypeVisible).Rows.Copy Sheets(1).Range("A1")
 End With
End Sub

Ces codes travaillant sur une plage déjà filtrée

[Phil_de_Paris]

Merci !

Y a t-il la possibilité d'adapter ces lignes pour copier les formules de calcul lorsqu'il y en a (et pas uniquement la valeur) ?

merci d'avance,

Phil.