Classement.

[JJ1]

Bonsoir à tous,

Je souhaiterais un code qui me permette de ranger mes nombres (A:E) en décroissant sur 5 colonnes sans filtrer.
Si vous avez-un moment.
merci à l'avance.


Bonne soirée

 

[phlaurent55]

Re : Classement.

Bonjour JJ1,

avec ce code ( à adapter car réalisé avec l'enregistreur de macro en version 2007)

Sub Tri()
For i = 1 To 5
    Range(Cells(1, i), Cells(9, i)).Select
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Cells(1, i), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SetRange Range(Cells(1, i), Cells(9, i))
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
Next i
End Sub

à+
Philippe

 

[piga25]

Re : Classement.

Bonjour JJ1, Phlaurent55,

Une autre solution par formule
A mettre en G1 :

=PETITE.VALEUR(A$1:A$9;LIGNE())

Puis à recopier.

Edit : Oups, j'ai mal lu la demande, il faut un code.

 

[JJ1]

Re : Classement.

Bonsoir Philippe et merci.

J'ai un prioblème, le tri me donne des séries qui n'existent pas avant le tri?

Pourras-tu me dire si j'ai fait une erreur.

Merci

Edit: Bonsoir Piga, même résultat avec la formule (1 5 6 8 9 n'existe pas)

 

[piga25]

Re : Classement.

Re

Si toutes les séries existent

 

[david84]

Re : Classement.

Bonsoir,
au sujet des tris multicolonne, tu peux regarder les discussions suivantes :

https://www.excel-downloads.com/threads/tri-multicolonne-sur-tableau-vba.174167/

https://www.excel-downloads.com/threads/tri-dun-tableau-vba-a-2-dimensions-multichamps.187781/

Plus, si cela t'intéresse, la conversation sur les modules de classe qui regroupe celui utilisé par Dranreb dans le 1er lien.

https://www.excel-downloads.com/thr...taire-modules-de-classe-et-indexation.187857/

A+

 

[JJ1]

Re : Classement.

Merci David, j'ai trouvé 3 codes qui fonctionnent parfaitement dans ton premier lien.
Bonne journée