Tri croissant d'une ligne excel

franck075 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -  
Gyrus Messages postés 3334 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

4 réponses

Réponse 1 / 4
Gyrus Messages postés 3334 Date d'inscription   Statut Membre Dernière intervention   526
 
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+
1
Réponse 2 / 4
Vaucluse Messages postés 26496 Date d'inscription   Statut Contributeur Dernière intervention   6 438
 
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
0
franck075 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
Merci pour la réponse.

Par contre si je veux le faire automatiquement je dois absoluement utiliser VBA alors...

Connais tu le code à utiliser ?

Merci d'avance.

Franck
0
Réponse 3 / 4
franck075 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
Merci pour vos réponses mais si je veux le faire automatiquement ?

Cdt
0
Réponse 4 / 4
Gyrus Messages postés 3334 Date d'inscription   Statut Membre Dernière intervention   526
 
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 With
End Sub


A+
0