Macro après filtre auto

MANU · 27 Octobre 2005

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 · 27 Octobre 2005

Salut,

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

Selection.CurrentRegion.Copy

@+
Laurent

ljoue · 27 Octobre 2005

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 · 27 Octobre 2005

encore plus simple :

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

Macro après filtre auto

MANU

Guest

ljoue

XLDnaute Junior

ljoue

XLDnaute Junior

ljoue

XLDnaute Junior

Discussions similaires