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:
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]...
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+