1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
| Sub doublon()
Dim dl1 As Long, dl2 As Long
Dim cel1 As Range, cel2 As Range
Dim plage1 As Range, plage2 As Range
Dim verif1, verif2, x As Integer, y As Integer
'tes colonnes A et B
With Sheets("feuil1") 'ta feuille
dl1 = .Range("A" & .Rows.Count).End(xlUp).Row
dl2 = .Range("B" & .Rows.Count).End(xlUp).Row
Set plage1 = .Range("A2:a" & dl1)
Set plage2 = .Range("B2:B" & dl2)
For Each cel1 In plage1
verif1 = Split(cel1)
For Each cel2 In plage2
verif2 = Split(cel2)
For x = 0 To UBound(verif1)
For y = 0 To UBound(verif2)
If UCase(verif1(x)) = UCase(verif2(y)) Then
MsgBox "2 similitudes " & verif1(x) & "=>" & verif2(y)
End If
Next y
Next x
Next cel2
Next cel1
End With
End Sub |
Partager