copier coller

[David]

Bonjour le forum

Je voudrais imprimer des données filtré

J’ai 3 pages avec des données filtrées
Je veux les copier après le filtrage sur une 4 ème page

Mais comme les 3 listes augmente tout le temps
Je ne peut définir le bas de la liste

J’ai donc voulu copier chaque liste de la ligne 2 à la ligne 65536

Mais quand je le coller, la 1er liste pas de problème mes le 2 eme message erreur

Comment je peux faire

Merci d'avance
David @+
:woohoo:

 

[David]

 

[David]

David écrit:

Bonjour le forum

Je voudrais imprimer des données filtré

J’ai 3 pages avec des données filtrées
Je veux les copier après le filtrage sur une 4 ème page

Mais comme les 3 listes augmente tout le temps
Je ne peut définir le bas de la liste

J’ai donc voulu copier chaque liste de la ligne 2 à la ligne 65536

Mais quand je le coller, la 1er liste pas de problème mes le 2 eme message erreur

Comment je peux faire

Merci d'avance
David @+
:woohoo:

[file name=copier_coller.zip size=15831]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/copier_coller.zip[/file]

 

[Marc_du_78]

Bonsoir David,
Essaie ceci :
ActiveSheet.Range('A1').CurrentRegion.Select
Selection.Copy
Bonne soirée

 

[david]

bonsoir Marc

merci

@+david

 

[Marc_du_78]

re,
Est-ce que ceci te convient ?
A placer dans un module

Sub Trier()
Application.ScreenUpdating = False
Sheets('Feuil1').Select
ActiveSheet.UsedRange.Rows('8:' & ActiveSheet.UsedRange.Rows.Count).Select
Selection.Sort Key1:=Range('A9'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range('A9').Select
Sheets('Feuil2').Select
ActiveSheet.UsedRange.Rows('8:' & ActiveSheet.UsedRange.Rows.Count).Select
Selection.Sort Key1:=Range('A9'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range('A9').Select
Sheets('Feuil3').Select
ActiveSheet.UsedRange.Rows('8:' & ActiveSheet.UsedRange.Rows.Count).Select
Selection.Sort Key1:=Range('A9'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Sheets('Feuil1').Select
Range('A9').Select
Application.ScreenUpdating = True
End Sub

Bonne soirée et bon Week end [file name=TrierRetour.zip size=13168]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TrierRetour.zip[/file]