Discussion :

[Scrabblouille]

Bonjour,

Dans un tableau j'ai 2 colonnes contenant des numéros de série. Je souhaite comparer toutes les valeurs des 2 colonnes afin d'identifier les correspondances et différences. Les 2 colonnes n'ont pas obligatoirement le même nombre de lignes.
Ci-dessous le code que j'ai écrit pour recopier les valeurs communes dans une 3ème colonne sur la même ligne que le numéro de le 1ère colonne avant de supprimer la valeur de la 2ème colonne si elle a été trouvée dans la 1ère.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim c As Range
Dim d As Range
 
For Each c In Range("b2:b2000")
    With Range("a2:a2000")
        Set d = Cells.Find(c.Value, LookIn:=xlValues)
        If Not d Is Nothing Then d.Offset(0, 2).Value = c.Value
    End With
Next

Malheureusement cela ne fonctionne qu'à partir du moment où le 1er numéro de la 1ère colonne a été trouvé et lorsque la valeur n'existe pas au lieu que rien ne se passe c'est la 2ème colonne qui est recopiée avec un offset.

Quelqu'un aurait-il une solution ?

Merci.

[pgz]

Bonsoir,

Tu pourrais déjà ajouter le point qu'il manque devant Cells

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim c As Range
Dim d As Range
 
For Each c In Range("b2:b2000")
    With Range("a2:a2000")
        Set d = .Cells.Find(c.Value, LookIn:=xlValues)
        If Not d Is Nothing Then d.Offset(0, 2).Value = c.Value
    End With
Next

Après, si tu pouvais éviter d'utiliser Range sans préciser le classeur et la feuille, ce serait plus sûr.

Cordialement,

PGZ

[Scrabblouille]

Bonjour,

Impeccable.
Je note également le point concernant le classeur et la feuille pour l'intégration dans mon vrai fichier.

Merci.