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...