Tri de données
GuillaumeL-76
Messages postés
2
Statut
Membre
-
Raymond PENTIER Messages postés 58213 Date d'inscription Statut Contributeur Dernière intervention -
Raymond PENTIER Messages postés 58213 Date d'inscription Statut Contributeur Dernière intervention -
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 -
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 ...
-
-
Et si mes données son organisé comme ceci avez vous une solution ?
Crdmt -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
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
