XL 2019 Classer des chiffres dans des cellules horizontales.

[album40]

Bonjour,
Je souhaite classer par ordre croissant des chiffres dans des cellules horizontales.
J'ai tenté de le faire par la fonction trier par ordre croissant je n'obtient pas le résultat voulu
c'est la première ligne seule qui me donne le bon résultat. je n'arrive pas a faire tout le tableau simultanément.
Merci de me donner l'astuce

 

[patricktoulon]

bonsoir
dans ton tableau a droite

 

[Staple1600]

Bonsoir le fil

NB: Le confinement, c'est bien pour faire du tri dans ses archives
Ici un macro paramétrable
(j'ai mis deux exemples: croissant et décroissant)
Dans le test, les données commencent en A1
(sans ligne vide et sans trou)

Sub tTest_D()
Application.ScreenUpdating = False
Tri_Horizontal Range("A1"), xlDescending
End Sub
Sub tTest_C()
Application.ScreenUpdating = False
Tri_Horizontal Range("A1"), xlAscending
End Sub
Private Sub Tri_Horizontal(Plage As Range, Sens As XlSortOrder)
Dim Rng As Range
Set Rng = Plage.CurrentRegion
For Each c In Rng.Rows
c.Sort Key1:=c.Cells(1, 1), Order1:=Sens, Header:=xlNo, Orientation:=xlSortRows
Next c
End Sub

EDITION:
Bonsoir patricktoulon
Bonsoir sousou

NB:Version corrigée après observation de patricktoulon

 

[sousou]

Une solution manuelle qui pourrait être transformée en macro
copier le tableau
coller en tranposant
trier le tableau résultant
copier et coller en transposant

 

[patricktoulon]

en J7 TU MET
=SIERREUR(PETITE.VALEUR($C7:$G7;COLONNE()-9);"")
et tu etends ta formule vers la droite puis vers le bas autant de ligne que le tableau de gauche
tu peux étendre sur plus de colonnes et de ligne l'erreur est gérée

 

[Staple1600]

Re

Et le message#3?
Il est hors-sujet ou pas?

 

[patricktoulon]

re
Staple1600 ben oui il veut un tri horizontal ligne par ligne

 

[Staple1600]

Re

C'est ce que fait mon code.
Et j'ai précisé comment je l'ai testé.
Etonnant que tu n'es pas adapté le code avant de tester
Ci-dessous la version corrigée.

Sub Tri_Horizontal(Plage As Range, Sens As XlSortOrder)
Dim Rng As Range
Set Rng = Plage.CurrentRegion
For Each c In Rng.Rows
c.Sort Key1:=c.Cells(1, 1), Order1:=Sens, Header:=xlNo, Orientation:=xlSortRows
Next c
End Sub

 

[Staple1600]

Re

Je dois manquer de sucre...
J'aurai du écrire ceci dés le départ

Sub Tri_Horizontal(Plage As Range, Sens As XlSortOrder)
Dim c As Range
For Each c In Plage.CurrentRegion.Rows
c.Sort Key1:=c.Cells(1, 1), Order1:=Sens, Header:=xlNo, Orientation:=xlSortRows
Next c
End Sub

 

[patricktoulon]

re
mon adaptation
a mon avis c'est plutôt ca

Sub tTest_C()
Application.ScreenUpdating = False
Tri_Horizontal Range("c7:g32"), xlAscending
End Sub
Private Sub Tri_Horizontal(Plage As Range, Sens As XlSortOrder)
For Each c In Plage.Rows
'MsgBox c.Address
c.Sort Key1:=c.Cells(1), Order1:=Sens, Header:=xlNo, Orientation:=xlLeftToRight
Next c
End Sub

ca peut pas être xlSortRows mais xlsortcolumns peut être non ?

 

[Staple1600]

Re

Tu lis mes messages vraiment ? (en diagonale alors )
(cf le message#9 :rolleyes)
Et c'est bien xlSortRows
(j'ai testé avant de posté)

Et j'utilise CurrentRegion donc il faut seulement utiliser Range("G7")

 

[Staple1600]

Re

Relis mes message, tout est dedans
(je suis aussi sur 2013 et cela fonctionne)

PS: Ton adaptation ?
C'est ce qu'on lit dans le message#9 !

 

[patricktoulon]

ok testé
je l'ai un peu simplifier et j'ai accessoiriser le currentregion
version Staple1600

Sub tTest_Staple1600()
Application.ScreenUpdating = False
Tri_Horizontal_Staple1600 Range("c7:g32"), xlAscending
End Sub

Sub Tri_Horizontal_Staple1600(Plage As Range, Sens As XlSortOrder)
If Plage.Cells.Count = 1 Then Set Plage = Plage.CurrentRegion
For Each c In Plage.Rows
c.Sort Key1:=c.Cells(1, 1), Order1:=Sens, Header:=xlNo, Orientation:=xlSortRows
Next c
End Sub

mais c'est pas très logique le " Orientation:=xlSortRows" pour trier une seule ligne

version patricktoulon

Sub tTest_patricktoulon()
Application.ScreenUpdating = False
Tri_Horizontal_patricktoulon Range("c7:g32"), xlAscending
End Sub

Private Sub Tri_Horizontal_patricktoulon(Plage As Range, Sens As XlSortOrder)
If Plage.Cells.Count = 1 Then Set Plage = Plage.CurrentRegion
For Each c In Plage.Rows
c.Sort Key1:=c.Cells(1), Order1:=Sens, Header:=xlNo, Orientation:=xlLeftToRight
Next c
End Sub

 

[Staple1600]

Re

Je t'avais préparé ce petit test
(alors je livre)

Sub Pour_patricktoulon()
Randomize
[G7:P32] = "=1600-(COLUMN()+ROW())": [G7:P32] = [G7:P32].Value
End Sub
Sub tTest_D()
Application.ScreenUpdating = False
Tri_Horizontal Range("G7"), xlDescending
End Sub
Sub tTest_C()
Application.ScreenUpdating = False
Tri_Horizontal Range("G7"), xlAscending
End Sub
Private Sub Tri_Horizontal(Plage As Range, Sens As XlSortOrder)
Dim c As Range
For Each c In Plage.CurrentRegion.Rows
c.Sort Key1:=c.Cells(1, 1), Order1:=Sens, Header:=xlNo, Orientation:=xlSortRows
Next c
End Sub

PS: Tu peux donc supprimer le message#12 qui n'a pas lieu d'être

 

[Staple1600]

Re

Et dernier test, qui explique pourquoi j'ai pris xlSortRows

Sub tTest_AA()
Application.ScreenUpdating = False
Tri_Horizontal Range("G7:P32"), xlAscending
End Sub
Sub tTest_BB()
Application.ScreenUpdating = False
Tri_Horizontal Range("G7:P32"), xlDescending
End Sub
Sub tTest_CC_KO()
Application.ScreenUpdating = False
Tri_Horizontal Range("G7:P32"), xlDescending, 1
End Sub
Sub tTest_DD_KO()
Application.ScreenUpdating = False
Tri_Horizontal Range("G7:P32"), xlAscending, 1
End Sub

Private Sub Tri_Horizontal(Plage As Range, Sens As XlSortOrder, Optional Ori As XlSortOrientation = 2)
Dim c As Range
For Each c In Plage.Rows
c.Sort c.Cells(1, 1), Order1:=Sens, Header:=xlNo, Orientation:=Ori
Next c
End Sub