Trier des cellules

Bonjour à tous,

j'aurai besoin de votre aide pour faire des tris dans un tableau.

Dans mon tableau, j'ai plusieurs colonnes et je souhaite que les 3 dernières colonnes soient triées par ordre alphabétique.

Par exemple, en I5 j'ai "F", en J5 j'ai "Z" et en K5 j'ai "U".

Je voudrais avoir au final en I5 "F", en J5 "U" et en K5 "Z"

Je vous ai joint un fichier exemple avec en jaune ce que j'ai et en vert ce que je souhaite.

Je vous remercie d'avance pour votre aide

Jérôme

Bonjour,

Bien que le tri soit possible horizontalement, il faudrait le faire ligne par ligne

Ou via macro (totalement faisable)

Sinon, une petite formule matricielle (validée par l'appui simultané sur Ctrl + Alt + Entrée, les { et } apparaissent alors (ne pas les mettre manuellement)) :

{=SIERREUR(CAR(GRANDE.VALEUR(CODE($I2:$K2);20-COLONNE()));SIERREUR(CAR(GRANDE.VALEUR(CODE($I2:$J2);19-COLONNE()));SI(I2<>"";I2;"")))}

Le fichier :

Bon courage

Bonjour,

Il est possible également de trier par ligne nativement comme un tri sur colonne :

Par contre si c'est pour chaque ligne ça sera plus long.

Cdlt,

Rebonjour,

Merci pour ta réponse. Comme tu m'as dit que cela était possible par VBA.

Comment on fait via VBA car au final ce n'est pas moi qui vais utiliser ce fichier et je souhaite simplifier au maximum.

Jérôme

Re-,

Par le biais d'une macro, regarde le fichier

Le code :

Sub Tri_Hz()
Dim Cel As Range
Dim DerLig As Long
Application.ScreenUpdating = False
With ActiveSheet
    DerLig = .Cells(Rows.Count, "G").End(xlUp).Row
    For Each Cel In .Range("I2:I" & DerLig)
        With .Sort
            .SortFields.Clear
            .SortFields.Add2 Key:=Cel.Resize(1, 3) _
                , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            .SetRange Cel.Resize(1, 3)
            .Orientation = xlLeftToRight
            .Apply
        End With
    Next Cel
End With
End Sub

Tu appuies sur le bouton....

Re,

je dois faire une mauvaise manip car cela ne fonctionne pas :

Re-,

Cela ne fonctionne pas sur mon fichier, ou sur ton fichier originel?

Bonsoir

test comme ça en enlevant le 2 à côté de Add

.SortFields.Add Key:=Cel.Resize(1, 3) _
                , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

Slts

Bonjour,

Une proposition Power Query.

Nécessite l'installation du complément gratuit de Microsoft pour Excel 2010 et 2013.

Cdlt.