Bonjour,
Mon problème est le suivant, je fait un tri automatique de mes données ensuite je fais une recherche des doublons. Une fois les doublons repérés je cherche si les propriétés sont les mêmes.
Exemple:
Colonne A Colonne B
a b
a
a
a
a
a
a
a
a d
a
En faite c'est le background des colonne qui est coloré.
Le code suivant colorie bien la colonne A mais la colonne B n'est coloré
Sub Recherche_Différence()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim L As Integer 'Ligne
Dim i As Integer 'parcoureur des colonne
For i = 1 To 20 Step 1 'on va s'arreter à la colonne 20
For L = 2 To [A65000].End(xlUp).Row 'sue deux colonne
If Cells(L, 1) = Cells(L + 1, 1) And Cells(L + 1, 1).Value <> "" Then
Range(Cells(L, 1), Cells(L + 1, 1)).Select
With Selection.Interior
.ColorIndex = 4
.Pattern = xlSolid
End With
If Cells(L, 1 + i) <> Cells(L + 1, 1 + i) Then
'Range(Cells(L, 1 + i), Cells(L + 1, 1 + i)).Select
Range(Cells(L, 1), Cells(L + 1, 1 + i)).Select
With Selection.Interior
.ColorIndex = 4
.Pattern = xlSolid
End With
End If
End If
Next L
Next i
End Sub
Mon problème est le suivant, je fait un tri automatique de mes données ensuite je fais une recherche des doublons. Une fois les doublons repérés je cherche si les propriétés sont les mêmes.
Exemple:
Colonne A Colonne B
a b
a
a
a
a
a
a
a
a d
a
En faite c'est le background des colonne qui est coloré.
Le code suivant colorie bien la colonne A mais la colonne B n'est coloré
Sub Recherche_Différence()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim L As Integer 'Ligne
Dim i As Integer 'parcoureur des colonne
For i = 1 To 20 Step 1 'on va s'arreter à la colonne 20
For L = 2 To [A65000].End(xlUp).Row 'sue deux colonne
If Cells(L, 1) = Cells(L + 1, 1) And Cells(L + 1, 1).Value <> "" Then
Range(Cells(L, 1), Cells(L + 1, 1)).Select
With Selection.Interior
.ColorIndex = 4
.Pattern = xlSolid
End With
If Cells(L, 1 + i) <> Cells(L + 1, 1 + i) Then
'Range(Cells(L, 1 + i), Cells(L + 1, 1 + i)).Select
Range(Cells(L, 1), Cells(L + 1, 1 + i)).Select
With Selection.Interior
.ColorIndex = 4
.Pattern = xlSolid
End With
End If
End If
Next L
Next i
End Sub