Tri croissant d'une ligne excel Fermé

Question

Bonjour,

Je souhaiterais savoir comment peut-on trier par ordre croissant sur Excel dans une colone les données d'une seule ligne. Certain nombre de la ligne peuvent apparaitre plusieurs fois. Dans ce cas je ne souhaite les avoir qu'une seule fois dans la colonne triée.

Ex de ligne: 300 200 400 200 300 500 

tri souhaité: 200
                    300
                    400
                    500

Merci d'avance pour votre aide.

Franck

Vaucluse · Answer

Bonjour
le plus simple sans passer par VBA est:
copier la ligne
clic droit / collage spécial / option "transposé"  sur une colonne vide
ruban / Données / supprimer les doublons 
trier la colonne
crdlmnt

Gyrus · Answer

Bonjour,

Tu peux :
1) faire un "copier / collage spécial transposé" des tes données afin de disposer les données en colonne.
2) faire une "suppression des doublons"
3) faire un tri croissant

A+

franck075 · Answer

Merci pour vos réponses mais si je veux le faire automatiquement ?

Cdt

Gyrus · Answer

Tu peux utiliser l'enregistreur de macro.

Voici un code généré par l'enregistreur et adapté pour la plage de données initiales en A1:F1. Le collage spécial transposé est effectué en H1. Après suppression des doublons, la plage H1:H4 est triée suivant ordre croissant.

Sub Copier()    Application.ScreenUpdating = False    With ActiveWorkbook.Worksheets("Feuil1")        .Range("A1:F1").Copy        .Range("H1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True        .Application.CutCopyMode = False        .Range("$H$1:$H$6").RemoveDuplicates Columns:=1, Header:=xlNo        .Sort.SortFields.Clear        .Sort.SortFields.Add Key:=.Range("H1:H4"), SortOn:=xlSortOnValues, _            Order:=xlAscending, DataOption:=xlSortNormal        .Sort.SetRange .Range("H1:H4")        .Sort.Header = xlGuess        .Sort.MatchCase = False        .Sort.Orientation = xlTopToBottom        .Sort.SortMethod = xlPinYin        .Sort.Apply        .Activate        .Range("A1").Select    End WithEnd Sub

A+

Tri croissant d'une ligne excel

4 réponses

Discussions similaires