Bonjour
J`espère que tout le monde va bien.
J`ai une macro pour identifier les doublons…et elle marche bien.
Sub doublonTR2()
Dim a As Integer
Dim i As Integer
With Worksheets("TR2")
x = Range("A65536").End(xlUp).Row
End With
Range("A1:N" & x & "").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
For i = 2 To x
If Cells(i, 2) = Cells(i + 1, 2) And Cells(i, 9) = Cells(i + 1, 9) And Cells(i, 14) = Cells(i + 1, 14) Then
‘Va chercher doublon ds col B,I et N
Cells(i, 1).EntireRow.Select
With Selection.Interior
.ColorIndex = 15
End With
Cells(i + 1, 1).EntireRow.Select
With Selection.Interior
.ColorIndex = 15
End With
End If
Next i
End Sub
Je ne peux pas coller le fichier il est trop gros!
Mais elle ne marche pas si j`ai 55000 lignes ce qui est mon cas.
Je cherche les doublons mais au dela d`un certain nombre d eligne elle marche plus.
Quelqu`nu comprend pourquoi ?
Quelqu`un aurait il une autre solution du type si doublon ca met un « D » ds la col de droite (charge a moi de filtrer) ou autre
Merci
Sinon bonne journee quand meme
VBA_DEAD
J`espère que tout le monde va bien.
J`ai une macro pour identifier les doublons…et elle marche bien.
Sub doublonTR2()
Dim a As Integer
Dim i As Integer
With Worksheets("TR2")
x = Range("A65536").End(xlUp).Row
End With
Range("A1:N" & x & "").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
For i = 2 To x
If Cells(i, 2) = Cells(i + 1, 2) And Cells(i, 9) = Cells(i + 1, 9) And Cells(i, 14) = Cells(i + 1, 14) Then
‘Va chercher doublon ds col B,I et N
Cells(i, 1).EntireRow.Select
With Selection.Interior
.ColorIndex = 15
End With
Cells(i + 1, 1).EntireRow.Select
With Selection.Interior
.ColorIndex = 15
End With
End If
Next i
End Sub
Je ne peux pas coller le fichier il est trop gros!
Mais elle ne marche pas si j`ai 55000 lignes ce qui est mon cas.
Je cherche les doublons mais au dela d`un certain nombre d eligne elle marche plus.
Quelqu`nu comprend pourquoi ?
Quelqu`un aurait il une autre solution du type si doublon ca met un « D » ds la col de droite (charge a moi de filtrer) ou autre
Merci
Sinon bonne journee quand meme
VBA_DEAD