Discussion :

[Nadroj39]

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.

[unparia]

Bonjour
Certaines de tes variables ne sont pas typées. Commence par ce faire, en gardant à l'esprit la limite de chaque type, notamment numérique.

[Patrice740]

Bonjour,

J'ajouterais des Range et des Cells sans préciser ni la feuille ni la propriété !
Voir : https://www.developpez.net/forums/d1...tes-utilisees/

[Menhir]

Si j'ai compris le contenu de ta macro, il s'agit simplement de mettre en vert les cellules qui sont en double dans la colonne A ?

Si c'est simplement ça, pas besoin de VBA.
Une simple mise en forme conditionnelle fera ça plus simplement, plus dynamiquement et plus rapidement.

[patricktoulon]

re
non menhir
les double oui mais ceux qui on "TEST*" en colonne "N" sur une de leur ligne

EN vba je prendrait la chose a l'envers
filtre sur colonne "N" critere"test*"
et control du countif de la valeur en colonne A de chaque valeur du specialcells de la colonne "N"

[Menhir]

les double oui mais ceux qui on "TEST*" en colonne "N" sur une de leur ligne

C'est toujours possible de le faire avec une MFC plus simplement qu'avec une macro.
Il faut juste mettre dans la MFC une formule avec un AND() et un NB.SI().

Au passage, le NB.SI() serait plus efficace dans ce cas qu'un EQUIV() (le MATCH() se trouvant dans le code) en évitant d'avoir à utiliser une gestion d'erreur.