Problème eviter doublons

Bonjour ,

J'ai le code suivant :

 Dim j As Long

    For j = 1 To Range("A" & Rows.Count).End(xlUp).Row

         If Cells(j, "A").Value = Cells(j + 1, "A").Value Then
          j = j + 1
        End If

         If Application.CountIf(Range("C:C"), Cells(j, "A")) = 0 Then
            Range("D" & Rows.Count).End(xlUp)(2) = Cells(j, "A")

        End If

    Next j
        Range("D1") = "Ajout"

Il me permet de comparer deux classeurs entre eux mais je n'arrive pas a faire en sorte d'eviter les doublons, je m'explique

Je compare la colonne A avec la C, et je copie les valeurs de la colonne A ne se trouvant pas dans C .

le seul soucis c'est que je n'arrive pas a faire en sorte que les valeurs ne se repetent pas, j'aimerai eviter les doublons dans ma colonne D

quelqu'un a une idée de comment faire ? j'ai tenté le premier if mais il ne me fait rien...

Bonjour,

il serait bien d'avoir une copie anonymisée des fichiers

P.

Rechercher des sujets similaires à "probleme eviter doublons"