Tri de données
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.
Merci d'avance pour votre aide.
5 réponses
-
Bonjour,
Et ça donnerait quoi, si tu fais un "ordre croissant" sur les 5 premieres lignes, par exemple ??
Crdmt -
ContributeurBonjour.
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 ...
-
-
Et si mes données son organisé comme ceci avez vous une solution ?
Crdmt -
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
