Macro pour trié qui ne prend pas en compte les nouvelles lignes créées après

[Joëlle]

La macro prend des données dans la feuille destination pour les placer dans la feuille Graph.
Après en avoir trié la colonne F en décroissant ( sans la ligne de titre).

Mais des que je rajoute des lignes dans le fichier destination, celle-ci ne sont pas prise en compte lors du trie par la macro.
Il me faut refaire la macro a chaque fois !

Y a t’il possibilité que ces new ligne soient prise en compte lors du trie ?

Sub Exp_donné_graf()
'
Sheets("Fichier destination").Select
Rows("2:2").Select
Selection.Sort Key1:=Range("F2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("B3:G12").Select
Selection.Copy
Sheets("Graph").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A13").Select
End Sub

Par avance merci

Joëlle

 

[Jean-Marie]

Bonjour

Essaye ceci, remplace Range("B3:G12").Select, par
Range("B3:G"&Range("B65536").end(xlUp).row).Select

@+Jean-Marie

 

[Joëlle]

Salut J-Marie

Cela ne fonctionne pas! Je ne me suis pas bien exprimée.

Ce que tu me demande de faire est d'exporter l'ensemble de ma base fichier destination vers graph.

Je ne récupère que 10 lignes de la base; mais avant je veux trier les données. C'est pas que la macro ne fonctione pas pour trier.

la macro ne me trie pas la collone F juste avant de copier les dix lignes que j'ai besoin.

Joëlle

 

[Joëlle]

Bonsoir à tous

Oki J-Marie

Avec ton coup de pouce, j'ai trouvé la solution en transposant ta proposition pour ma plage à sélectionné ( soit selection de toutes les lignes 6553 )
Ce qui me donne:

Sheets("Fichier destination").Select
Rows("2:65536").Select
ActiveWindow.ScrollRow = 1
Selection.Sort Key1:=Range("F2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Voila cela fonctionne tip top
G Merci à toi
Joëlle