Trier une liste de données par rapport à une colonne

Salut à tous !

Je travail actuellement avec un automate qui me fourni des fichiers txt de différentes variables par rapport au temps.

J'aimerai trier ces données de manière à les séparer en différentes parties suivant la valeur d'une variable:

170828041544552579

C'est un peu compliqué à expliquer alors excusez moi d'avance !

Je vous joint mon fichier excel avec mes macros pour importer et les fichiers txt que je traite.

En gros je souhaiterai avoir un moyen de separer mes données en deux, ou alors de les repérer (couleurs, remplissage ect...) de manière à ce qu'on puisse identifier directement chaque partie !

Merci d'avance, j'ai beau avoir avoir bien cherché sur google je ne trouve pas de moyen, c'est pourquoi je fais appel à vous.

Bonne journée.

Salut elChibros,

quelque chose comme ça?

Clique sur TCK2... j'ai en peu trafiqué les données de bas de colonne [G]... Pour la bonne cause, hein!!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
Dim iLig1 As Integer, iLig2 As Integer
Dim sColor As String
'
Application.ScreenUpdating = False
'
If Not Intersect(Target, Range("G1")) Is Nothing Then
    iRow = Range("G" & Rows.Count).End(xlUp).Row
    iCol = Cells(2, Columns.Count).End(xlToLeft).Column
    sCol = Split(Columns(iCol).Address(ColumnAbsolute:=False), ":")(1)
    Range("E2:" & sCol & iRow).Sort key1:=Range("G2"), order1:=xlAscending
    iLig1 = 2
    iLig2 = 2
    For x = 3 To iRow
        If Cells(x, 7) <> Cells(x - 1, 7) Or x = iRow Then
            sColor = IIf(Cells(iLig2, 7).Interior.Color = RGB(255, 255, 255), RGB(215, 215, 215), RGB(255, 255, 255))
            iLig2 = IIf(x = iRow, x, x - 1)
            Range("E" & iLig1 & ":" & sCol & iLig2).Interior.Color = sColor
            iLig1 = x
        End If
    Next
End If
'
Application.ScreenUpdating = True
'
End Sub

A+

Rechercher des sujets similaires à "trier liste donnees rapport colonne"