Detecter doublons

[kaki31]

Bonsoir tous le monde;

Ya t'il un moyen de détecter les doublons ( les colorer ) comme dans l'exemple joint ?

je les ai trié pour simplifier.

Merci

 

[job75]

Re : Detecter doublons

Bonsoir kaki31,

Si j'ai bien compris :

- sélectionner les colonnes B:C

- effacer les couleurs des cellules

- mise en forme conditionnelle (MFC) avec cette formule :

=SI(NB.SI($C:$C;$C1)>1;EQUIV($C1;$C:$C;0)=LIGNE())

A+

 

[kaki31]

Re : Detecter doublons

Bonsoir job75;

Pour moi çà marche pas, y'a que les lignes 5,10,11,12 et 20 qui sont pris en compte

Merci.

 

[job75]

Re : Detecter doublons

y'a que les lignes 5,10,11,12 et 20 qui sont pris en compte

Chez moi aussi, c'est pour ça que j'ai dit "Si j'ai bien compris".

Donc rien compris, à vous de voir...

A+

 

[kaki31]

Re : Detecter doublons

je m'explique ;

Si en colonne B j'ai par exemple 11 fois Lucas et en colonne C j'ai 10 fois Lucas, j'aurais donc 10 Lucas colorés en B et 10 Lucas colorés en C, ça va de paire 2,4,6,8....

 

[job75]

Re : Detecter doublons

Bonjour,

Fichier joint.

A+

 

[DoubleZero]

Re : Detecter doublons

Bonjour, kaki31, job75 , le Forum,

Si j'ai compris le besoin , peut-être ainsi :

Option Explicit
Sub Doublons_colorer()
Dim i As Long
For i = 2 To Range("b65536").End(xlUp).Row
    If Range("b" & i).Value = Range("b" & i).Offset(, 1).Value Then Range("b" & i).Resize(, 2).Interior.ColorIndex = 36
Next
End Sub

A bientôt

 

[job75]

Re : Detecter doublons

Re, bonjour chère ânesse

On peut bien sûr faire l'inverse, fichier (2).

A+

 

[gosselien]

Re : Detecter doublons

en format conditionnel de B2:
=NB.SI(B2;$C$2:$C$25)>0
ça te convient ?