XL 2010 Résolu par DoubleZero : Souci de tri

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous,

Voilà longtemps que j'ai une "grande" lacune en tri (là aussi LOL).

Je tente d'expliquer :
Vous le verrez dans le classeur joint, j'ai des valeurs de la ligne 12 à la ligne 36.

Je souhaite en triant mais de la ligne 1 à la ligne 36 que les valeurs "remontent" à la ligne 1 dans l'ordre choisi.
je n'y arrive pas et "ça reste" à partir de la ligne 12.

Voilà également longtemps que je cherche (de temps en temps quand même) et je n'arrive pas à trouver la solution.
Auriez-vous une idée ?
Avec mes remerciements, je vous souhaite une bonne fin de dimanche.
Amicalement,
Lionel,
 

Pièces jointes

  • Test tri.xlsm
    18.9 KB · Affichages: 22

DoubleZero

XLDnaute Barbatruc
Bonjour, arthour973 :), le Forum,

Sans certitude de comprendre le réel besoin, voici quatre possibilités :
VB:
Option Explicit
Sub a_b_1()
    Range("h12", Range("h" & Rows.Count).End(xlUp)).Sort Range("h12"), xlAscending, Header:=xlNo
End Sub
Sub b_a_1()
    Range("h12", Range("h" & Rows.Count).End(xlUp)).Sort Range("h12"), xlDescending, Header:=xlNo
End Sub
Sub a_b_2()
    Range("h1", Range("h" & Rows.Count).End(xlUp)).Sort Range("h1"), xlAscending, Header:=xlNo
End Sub
Sub b_a_2()
    Range("h1", Range("h" & Rows.Count).End(xlUp)).Sort Range("h1"), xlDescending, Header:=xlNo
End Sub
A bientôt :)
 

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour DoubleZero,

Merci de m'avoir répondu.
les deux codes :
Code:
Sub a_b_2()
    Range("h1", Range("h" & Rows.Count).End(xlUp)).Sort Range("h1"), xlAscending, Header:=xlNo
End Sub
Sub b_a_2()
    Range("h1", Range("h" & Rows.Count).End(xlUp)).Sort Range("h1"), xlDescending, Header:=xlNo
End Sub

Correspondent bien à ma demande.

Encore merci :)
Bonne fin de dimanche,
Amicalement,
Lionel,
 

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 011
Membres
101 866
dernier inscrit
XFPRO