Tri de données
GuillaumeL-76
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
Raymond PENTIER Messages postés 58993 Date d'inscription Statut Contributeur Dernière intervention -
Raymond PENTIER Messages postés 58993 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.
A voir également:
- Tri de données
- Fuite données maif - Guide
- Trier des données excel - Guide
- Logiciel tri photo - Guide
- Supprimer les données de navigation - Guide
- Reinstaller windows sans perte de données - Guide
5 réponses
Bonjour,
Et ça donnerait quoi, si tu fais un "ordre croissant" sur les 5 premieres lignes, par exemple ??
Crdmt
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 ...
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.
Cdlt
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