Problème eviter doublons

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
M
MojitoDu75
Membre habitué
Membre habitué
Messages : 70
Inscrit le : 3 mai 2016
Version d'Excel : 2016

Message par MojitoDu75 » 30 juin 2016, 10:34

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...
p
patrick1957
Passionné d'Excel
Passionné d'Excel
Messages : 3'121
Appréciations reçues : 33
Inscrit le : 24 août 2015
Version d'Excel : 2007-2010-2016 PC

Message par patrick1957 » 30 juin 2016, 11:05

Bonjour,


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

P.
Je fais du géocaching et vous ?
Indentez vos codes VBA, ---> http://www.oaltd.co.uk/Indenter/Default.htm
A lire pour les débutants: http://www.xlerateur.com/divers/2010/05 ... nnees-612/
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message