Classement.

phlaurent55

Nous a quittés en 2020

Repose en paix

• 19 Juillet 2012

• #2

Re : Classement.

Bonjour JJ1,

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

Code:

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

 

Vote positif 0 Vote négatif

piga25

XLDnaute Barbatruc

• 19 Juillet 2012

• #3

Re : Classement.

Bonjour JJ1, Phlaurent55,

Une autre solution par formule
A mettre en G1 :

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

Cliquez pour agrandir...

Puis à recopier.

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

 

Dernière édition: 19 Juillet 2012

Vote positif 0 Vote négatif

J

JJ1

Guest

• 19 Juillet 2012

• #4

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)

 

Pièces jointes

• tri.xlsm

  31 KB · Affichages: 49
• tri.xlsm

  31 KB · Affichages: 53
• tri.xlsm

  31 KB · Affichages: 53

Dernière modification par un modérateur: 19 Juillet 2012

Vote positif 0 Vote négatif

piga25

XLDnaute Barbatruc

• 19 Juillet 2012

• #5

Re : Classement.

Re

Si toutes les séries existent

 

Pièces jointes

• tri piga.xlsm

  30.7 KB · Affichages: 50

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 19 Juillet 2012

• #6

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/

Cliquez pour agrandir...

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

Cliquez pour agrandir...

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/

Cliquez pour agrandir...

A+

 

Vote positif 0 Vote négatif

J

JJ1

Guest

• 20 Juillet 2012

• #7

Re : Classement.

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

 

Vote positif 0 Vote négatif