Hello all,
Voici une macro que j'ai ecrit pour comparer les chiffres de ma colonne A avec ceux de la B.
Mais nombres font 12 chifffres en A et 13 e, B, c'est donc pour ca que je compare ma colonne A au 12 premiers seulement de la B.
S'il y a doublon, les valeurs sont coloriées en Jaune en Colonne A et B et copiées en D & E. A toi d'addapter en fonction de tes besoins !!!
++
Creepy
Dim EAN12 As Range
Dim EAN13 As Range
Dim Cell As Range
Dim i As Integer, x As Integer
Set EAN12 = Sheets(1).Range("A2:A" & Range("A65536").End(xlUp).Row)
Set EAN13 = Sheets(1).Range("B2:A" & Range("B65536").End(xlUp).Row)
x = 2
For Each Cell In EAN12
For i = 1 To EAN13.Count
If CStr(Cell) = CStr(Left(Cells(i, 2), 12)) Then
Cells(x, 4) = Cell: Cells(x, 5) = Cells(i, 2)
Cell.Interior.ColorIndex = 6: Cells(i, 2).Interior.ColorIndex = 6
x = x + 1
End If
Next i
Next Cell
End Sub