Tri de données

Fermé
GuillaumeL-76 Messages postés 2 Date d'inscription lundi 2 mai 2016 Statut Membre Dernière intervention 3 mai 2016 - 2 mai 2016 à 17:22
Raymond PENTIER Messages postés 58719 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 7 novembre 2024 - 4 mai 2016 à 01:17
Bonjour souhaiterais trier ce type de données en une seule colonne et dans un ordre croissant mais je ne sais pas comment faire ....


Merci d'avance pour votre aide.

5 réponses

DjiDji59430 Messages postés 4139 Date d'inscription samedi 19 avril 2008 Statut Membre Dernière intervention 8 novembre 2024 678
2 mai 2016 à 18:55
Bonjour,

Et ça donnerait quoi, si tu fais un "ordre croissant" sur les 5 premieres lignes, par exemple ??

Crdmt
0
Raymond PENTIER Messages postés 58719 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 7 novembre 2024 17 233
2 mai 2016 à 18:58
Bonjour.

Vraiment bizarre, comme question !
Il faudrait, à mon avis, déplacer les données en colonne de droite et les positionner en dessous de la première série de données et ensuite lancer le tri sur cette colonne unique ...
0
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 338
2 mai 2016 à 20:59
Bonsoir
Une proposition
https://www.cjoint.com/c/FEcs6NmC6vw
Cdlt
0
GuillaumeL-76 Messages postés 2 Date d'inscription lundi 2 mai 2016 Statut Membre Dernière intervention 3 mai 2016
3 mai 2016 à 09:55


Et si mes données son organisé comme ceci avez vous une solution ?

Crdmt
0
Raymond PENTIER Messages postés 58719 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 7 novembre 2024 17 233
4 mai 2016 à 01:17
Non !
Je t'ai bien expliqué, mais tu n'as peut-être pas bien lu, que pour faire un tri il faut que les données soient dans une colonne unique ...
Et au contraire, maintenant tu passes de 2 à 9 colonnes !
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 338
Modifié par Frenchie83 le 3/05/2016 à 10:14
Bonjour
Voilà, mais vous ne dites pas si la précédente réponse vous convenez ou pas.
Sub Tri_2()
    Application.ScreenUpdating = False
    DerLig = Range("A1").SpecialCells(xlCellTypeLastCell).Row
    Set d = CreateObject("Scripting.Dictionary")
    Set x = CreateObject("Scripting.Dictionary")

    For Each C In Range(Cells(1, 1), Cells(DerLig, 2))
        If C = "" Then m = "ZZZ" Else m = C
        d(m) = ""
    Next C
    If d.Count > 0 Then
        Columns("K:L").Clear
        [K1].Resize(d.Count, 1) = Application.Transpose(d.keys)
        Columns("K:K").Replace What:="ZZZ", Replacement:="", LookAt:=xlPart
        Range("K1:K" & d.Count).Select
        Selection.Sort key1:=[K1], Order1:=xlAscending, Header:=xlNo
    End If
End Sub

Cdlt
0