Tri ordonné

pierrejean

XLDnaute Barbatruc

• 30 Octobre 2017

• #2

Bonjour jeanjacques
Peux-tu nous donner la logique de ce classement ???

 

Vote positif 0 Vote négatif

J

jeanjacques

XLDnaute Junior

• 30 Octobre 2017

• #3

Bonjour PierreJean

Merci de ta réponse.
Je joins un fichier (tri en ordre croissant).

Bonne soirée

 

Pièces jointes

• macrotri2.xlsx

  11.5 KB · Affichages: 21

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 30 Octobre 2017

• #4

Re
un essai

 

Pièces jointes

• macrotri2.xlsm

  25.6 KB · Affichages: 18

Vote positif 0 Vote négatif

J

jeanjacques

XLDnaute Junior

• 31 Octobre 2017

• #5

Bonjour PierreJean
Ta macro est rapide mais......le résultat ne correspond plus à la base?

MERCI

 

Pièces jointes

• macrotri3.xlsm

  22.3 KB · Affichages: 17

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 31 Octobre 2017

• #6

Re
La macro réalise un tri croissant colonne par colonne
C'est ce que je croyais avoir compris
Je réitère donc ma question:Quelle est la logique du classement que tu souhaites

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 31 Octobre 2017

• #7

Bonsour®

jeanjacques à dit:

Bonjour,
Je souhaiterais classer en ordre croissant les cellules A:T de mon classeur (environ 500 lignes), résultat à partir de U

Avez-vous une solution?
merci à vous.
(exemple avec 3 lignes fourni)

Cliquez pour agrandir...

Le tri personnalisé n'acceptant pas plus de 6 colonnes de tri simultanées.
il faut effectuer des tris successifs en commençant par les dernières colonnes
soit par groupe de 6

soit colonne par colonne ( boucle macro)

 

Vote positif 0 Vote négatif

J

jeanjacques

XLDnaute Junior

• 1 Novembre 2017

• #8

Bonjour,

Bon! j'y suis arrivé en 'bidouillant' une macro trouvée sur le net, en modifiant (comme j'ai pu......!!) le nombre de clés de tri de 8 à 20.

Très rapide, plus de 500 lignes en 2 secondes.

Merci à vous, je joins un bout de résultat.

a+

 

Pièces jointes

• Classeur2.xlsx

  13.4 KB · Affichages: 15

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 1 Novembre 2017

• #9

Bonsour®

jeanjacques à dit:

Bonjour,

Bon! j'y suis arrivé en 'bidouillant' une macro trouvée sur le net, en modifiant (comme j'ai pu......!!) le nombre de clés de tri de 8 à 20.

Très rapide, plus de 500 lignes en 2 secondes.

Cliquez pour agrandir...

Heu.... très rapide, un fichier .xlsx ne contient pas de macro !!!!

VB:

Sub Macro1()
'
' Macro1 Macro
Dim col As Integer, lig As Integer, i As Integer
  Range("A1").CurrentRegion.Select
  col = Selection.Columns.Count
  lig = Selection.Rows.Count
  ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
  For i = 1 To col
  ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range(Cells(1, i), Cells(lig, i)) _
  , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
  Next
  With ActiveWorkbook.Worksheets("Feuil1").Sort
  .SetRange Range("A1").CurrentRegion
  .Header = xlNo
  .MatchCase = False
  .Orientation = xlTopToBottom
  .SortMethod = xlPinYin
  .Apply
  End With
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
End Sub

 

Dernière édition: 1 Novembre 2017

Vote positif 0 Vote négatif