XL 2010 Résolu par DoubleZero : Souci de tri

[Usine à gaz]

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,

 

[DoubleZero]

Bonjour, arthour973 🙂, le Forum,

Sans certitude de comprendre le réel besoin, voici quatre possibilités :

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]

Bonjour DoubleZero,

Merci de m'avoir répondu.
les deux codes :

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,