1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| Sub test()
Dim Plage As Range, C As Range, Teste
Dim Offset As Long
With Sheets("New")
For i = 0 To Sheets("Resultat").UsedRange.Columns.Count - 1 Step 3
With Sheets("Resultat")
Set Plage = .Range(.[A1].Offset(, i), .Cells(.Rows.Count, 1 + i).End(xlUp))
End With
For Each C In Plage
Teste = Application.VLookup(C.Value, .Range(.[A1].Offset(, Offset), .Cells(.Rows.Count, 1 + Offset).End(xlUp)), 1, 0)
If IsError(Teste) Then
C.Offset(, 1) = "Non présent"
Else
C.Offset(, 1) = Application.VLookup(C.Value, .Range(.[A1].Offset(, Offset), .Cells(.Rows.Count, 1 + Offset).End(xlUp)), 1, 0)
End If
Next C
Offset = Offset + 1
Next
End With
MsgBox "recherche terminée"
End Sub |
Partager