VBA macro coloriage doublons

Bonjour,

J'ai un doute sur votre code, recherche première cellule vide en colonne A:A et ensuite les doublon sur colonne C:C ..!

Merci de préciser avec quelques données sur un fichier... !

Bonjour effectivement c'est pas cohérent mais ça ne pose pas de problème car par exemple si C24 est vide A24 le sera aussi invariablement.

Pas propre mais on fait avec les moyens du bord...   

Merci pour votre aide Le Pingou

Salutations     

Bonjour,

Se serait profitable pour vous de mettre un fichier avec quelques données sur Accueil de Cjoint.com et poster le lien!

Cela me permettrait de vous soumettre une proposition!

Essayez ceci:

Sub doublons()
Dim m As Object, i As Long, z
Dim ca As Integer
Set m = CreateObject("Scripting.Dictionary")
ca = ActiveCell.Row
For i = ca To Cells(Rows.Count, 1).End(xlUp).Row
    z = Cells(i, 3)
    If Not m.Exists(z) Then
        m.Add z, z
    Else
        Cells(i, 3).Interior.ColorIndex = 3
    End If
Next i
End Sub

J'ai transmis un fichier "classeur doublons"

Merci 

Bonjour,

C'est bien mais le lien manque (celui que vous avez reçu de Cijoint : 

Voir aussi la proposition poste 3...! 

Cher Le Pingou

Votre macro ci-dessus fonctionne parfaitement.

Je vous remercie du temps consacrer.

Meilleures salutations

neofithe

Merci, pensez de marquer comme résolu si c'est le cas.