Bonjour all,
Voici un bout de code que j'ai fait !
J'ai dans ma colonnes A des nombres à 12 chiffres et des nombres à 13 ciffres dans ma colonnes B (des EAN en faites).
Ma Macro surligne en Jaune dans les colonnes A & B les doublons et laisse en Blanc les Orphelins. De plus dans les colonnes D & E, les doublons sont réécris en face l'un de l'autre
----- CODE -----
'
' Macro enregistrée le 29/07/03 par Christophe Prevost
' Cette macro compare des EAN IRI à 12 chiffres Vs EAN Secodip 13 Chiffres
'
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
------
++
Creepy
