Macro après filtre auto

[MANU]

Bonjour,

J'ai des tableaux sur plusieurs onglets.
J'ai fait une macro pour trier les cellules non vides et pour faire un copier de ces tableaux avant de faire des copier coller dans Word avec l'aide du presse papier.
Pb = Quand j'active la macro le copier des tableaux est toujours du même nbre de ligne et ne tient pas compte du nouveau tri des cellules non vide qui change régulièrement.

MERCI BEAUCOUP

MANU DE MONTPELLIER

 

[ljoue]

Salut,

Si tu fais un trie avec des filtre automatique, le code pour copier la zone de trie est :

Selection.CurrentRegion.Copy


@+
Laurent

 

[ljoue]

Si tu fais un trie simple avec la fonction trie, le code pour avoir une sélection dynamique est :


Range('D3').Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy


D3 ici correspond à la première cellule de ton tableau, c'est à dire à la cellule situé en haut et à gauche de ton tableau.
Donc adapte la cellule à ton cas...


@+

 

[ljoue]

encore plus simple :


Range('D3').Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy