1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
|
If WorksheetFunction.IsNA(WorksheetFunction.VLookup(Cells(i, 2), Workbooks(CStr(SuiviGF)).Worksheets("Pool DATA").Range("D8:EJ2000"), 91 + j, False)) = True Then
X = 1000 'Valeur abhérante
Else: X = WorksheetFunction.VLookup(Cells(i, 2), Workbooks(CStr(SuiviGF)).Worksheets("Pool DATA").Range("D8:EJ2000"), 91 + j, False)
End If
If WorksheetFunction.IsNA(WorksheetFunction.VLookup(Cells(i, 2), Workbooks(CStr(RapprochementFIM)).Worksheets("REPORT").Range("C17:EJ2000"), j + 1, False)) = True Then
Y = 100 'Valeur abhérante
Else: Y = WorksheetFunction.VLookup(Cells(i, 2), Workbooks(CStr(RapprochementFIM)).Worksheets("REPORT").Range("C17:EJ2000"), j + 1, False)
End If
If (Abs(X - Y) < 0.0001) Then
Cells(i, j + 2) = "OK"
Else: Cells(i, j + 2) = Abs(X - Y)
End If |
Partager