Bonjour,

Je cherche à identifier les doublons de valeurs dans un fichier de 300 000 lignes.
Les valeurs à analyser sont sur la colonne AA, exemple :

N AA
Ligne 1 : - 90 000
Ligne 32 : TEST 90 000
Ligne 402 : 90 000

L'analyse doit pouvoir afficher les cellules (coloration de cellule) uniquement si l'une des lignes en doublon comporte le texte "TEST" en colonne N.

J'étais parti sur la macro ci-dessous, mais j'obtiens un message d'erreur à l’exécution...
Erreur d'exécution '13'
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub MarqueLesDoublonsPositifNegatif()
Dim plg()
ReDim Preserve plg(1)
plg(1) = Cells(1, 1)
x = 1
For i = 2 To Range("A65536").End(xlUp).Row
If IsError(Application.Match(Cells(i, 1), plg, 0)) Then
x = x + 1
ReDim Preserve plg(x)
plg(x) = Cells(i, 1)
End If
Next
 
For i = LBound(plg) + 1 To UBound(plg)
x1 = Application.CountIf(Range("A1:A10"), plg(i))
y2 = Application.CountIf(Range("A1:A10"), plg(i) * -1)
w = Application.Min(x1, y2)
For y = 1 To Range("A65536").End(xlUp).Row
If Cells(y, 1) = plg(i) And t < w Then
t = t + 1
Cells(y, 1).Interior.ColorIndex = 43
Else
Exit For
End If
Next
t = 0
Next
Si vous avez une idée du problème et comment je peux améliorer cela, merci.