classement croissant

[JJ1]

Bonjour,
Je voudrais classer dans les colonnes G:L, des nombres de 6 colonnes (A:F) allant de 0 à x par ordre croissant et par colonnes.
ex:
2 0 3 6 15 4
3 4 0 5 0 8
6 1 0 8 0 0
donnerait en G:
0 0 0 1 6 8
0 0 3 4 5 8
0 2 3 4 6 15
etc..
J'ai essayé par concaténation mais ça ne marche pas.
merci et bon vendredi

 

[Jocelyn]

Re : classement croissant

Bonjour le Forum,
Bonjour JJ1

Pas sur d'avoir compris mais un essai en pièce jointe

Jocelyn

 

[JJ1]

Re : classement croissant

Bonjour et merci, ce n'est pas cela car tu as classé par ligne les valeurs (petites valeurs) mais ensuite il faut classer par ordre croissant chaque ligne:
000168 doit se classer en haut de tableau AVANT 0234615 qui est plus grand
en fait de
0 0 0 0 0 0
à
x x x x x x
merci à toi

 

[BOISGONTIER]

Re : classement croissant

Bonjour,

Sub tri()
 For i = 1 To [A65000].End(xlUp).Row
   temp = ""
   For c = 1 To 6
     temp = temp & CStr(Application.Small(Cells(i, 1).Resize(, 6), c))
   Next c
   Cells(i, 7).NumberFormat = "@"
   Cells(i, 7) = temp
  Next i
  [G1:G1000].Sort Key1:=Range("G1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortTextAsNumbers
End Sub

JB
Formation Excel VBA JB

 

[Jocelyn]

Re : classement croissant

re,

Un autre essai avec 2 solutions

une ou les valeurs des colonnes A:F suivent celle de la colonne G et une ou elle ne les suivent pas

Jocelyn

 

[JJ1]

Re : classement croissant

Re bonjour et merci à vous deux, je vais tester la macro demain.
Pour Jocelyn, c'est ok sur le principe mais......j'aurais voulu le format texte 000168 plutot que 168 car je dois faire une stat et les 0 sont très importants.
La macro conserve t -elle les "0" ?
merci et bon AM