Code VBA pour doublon ne fonctionne pas correctement

Bonjour

Toujours ce soucis de code de détecteur de doublon qui ne fonctionne pas correctement. Ennuyeux dirais je !

Je glisse mon fichier explicatif au cas où une solution pourrait être trouvé.

Merci et bon dimanche

Cdlt

Ta

Salut Tacentaure,

essaye ceci...

Sub Doublons()
'
Dim tData, tColor
'
Application.ScreenUpdating = False
'
tData = Range("C13:R74").Value
tColor = Range("C13:R74").Value
For x = 1 To UBound(tColor, 1)
    For y = 1 To UBound(tColor, 2) Step 3
        tColor(x, y) = 0
    Next
Next
For x = 1 To UBound(tData, 1)
    For y = 1 To UBound(tData, 2) Step 3
        If tData(x, y) <> "" Then
            For Z = 1 To UBound(tData, 1)
                For k = 1 To UBound(tData, 2) Step 3
                    If tData(x, y) = tData(Z, k) And (x <> Z Or y <> k) And tColor(Z, k) = 0 Then
                        tColor(x, y) = 1
                        tColor(Z, k) = 1
                    End If
                Next
            Next
        End If
    Next
Next
'
Range("B13:P13,B19:D19,C23,F20:P20,C23,C27,F25:P25,B31:D31,B35:D35,B39:D39,F32:P32,C39:P39").Interior.Color = RGB(217, 217, 217)
'
For x = 1 To UBound(tColor, 1)
    For y = 1 To UBound(tColor, 2) Step 3
        Cells(x + 12, y + 2).Interior.Color = IIf(tColor(x, y) = 0, xlNone, Range("U3").Interior.Color)
    Next
Next
'
Application.ScreenUpdating = True
'
End Sub

A+

Bonjour Curulis 57

Merci infiniment pour le retour.

J'ai intégré le code. Le doublon est détecté correctement quand je rentre deux noms identiques...super

Par contre si j'efface le nom en double les deux cellules restent en couleur. Si je supprime le dernier nom restant, la couleur reste également.

Enfin, si je rentre un nouveau nom dans une autre cellule, les deux couleurs des cellules précédentes s'effacent....

Il y a donc encore un petit dysfonctionnement...

Encore merci

Ta

Bonsoir,

j'avoue ne pas avoir eu le temps ni l'envie de décortiquer ton code en 'Sub Worksheet_Change' et avoir appelé 'Doublons' en première ligne où il fonctionne parfaitement avec un Exit Sub après.

Mets des commentaires, indente ton code et je regarde ça dès que je peux.

A+