[RESOLU] Repère des doublon codification rapport avec une référence Unique (Complexe)

[laurent950]

Bonjour le forum,


Comment faire une boucle avec un compteur.


Je dois avoir le même texte pour deux codes différents :

Exemple : A = 10 ou A = 11

Mais je ne dois jamais avoir pour A de codes différents

Soit c’est 10 ou soit c’est 11 pour le code A (donc 10 et 11 sont en doublon) les N° marche par suite.

Exemple (10 ou 11) / (20 ou 21) est ainsi de suite comme par exemple B pour (20 ou 21)

Colonne 1 Colonne 2
10 A Faux = De code pour A (Repère avec couleur rouge)
11 A Faux = De code pour A (Repère avec couleur rouge)
11 A Faux = De code pour A (Repère avec couleur rouge)
21 B
50 E Faux = De code pour E (Repère avec couleur rouge)
30 C
40 D
80 H
100 J
60 F Faux = De code pour F (Repère avec couleur rouge)
120 K
60 F Faux = De code pour F (Repère avec couleur rouge)
61 F Faux = De code pour F (Repère avec couleur rouge)
61 F Faux = De code pour F (Repère avec couleur rouge)
61 F Faux = De code pour F (Repère avec couleur rouge)
61 F Faux = De code pour F (Repère avec couleur rouge)
131 L
70 G Faux = De code pour G (Repère avec couleur rouge)
71 G Faux = De code pour G (Repère avec couleur rouge)
51 E Faux = De code pour E (Repère avec couleur rouge)
91 I
60 F Faux = De code pour F (Repère avec couleur rouge)
111 I
11 A Faux = De code pour A (Repère avec couleur rouge)


Comment repérer c’est doublon dans se tableaux est les repérer en couleur rouge (Couleur du texte)

Merci a vous si vous avez une solution.

 

[youky(BJ)]

Re : Repère des doublon sur codification en rapport avec une référence Unique (Comple

Bonjour Laurent,
Ce code a l'air de fonctionner
Bruno

Sub test()
bas = [A65536].End(3).Row
For k = 2 To bas
tx = Cells(k, 2): num = Cells(k, 1)
For lig = k + 1 To bas
If Cells(lig, 2) = tx Then
If Cells(lig, 1) <> num Then
Cells(lig, 1).Interior.ColorIndex = 3
Cells(k, 1).Interior.ColorIndex = 3
End If
End If
Next
Next
End Sub

 

[laurent950]

Re : Repère des doublon sur codification en rapport avec une référence Unique (Comple

Bonsoir Bruno,

J’ai bien récupéré cette macro qui correspond toute a fait a mes besoins, je vous remercie du temps passé.

Laurent