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 28 29 30 31
| Sub Indice()
Sheets("loyer").Select
Dim A, N, P, M, Indice
For L = 2 To Sheets("suivi").Range("A1").CurrentRegion.Rows.Count
For c = 15 To 70
N = Sheets("suivi").Cells(L, 11)
P = Sheets("suivi").Cells(1, c)
M = Sheets("suivi").Cells(L, 12)
A = Sheets("indice").Range("a4:a2872").Resize(, 3)
For i = 1 To UBound(A, 1)
If A(i, 1) = N And A(i, 2) = P And A(i, 3) = M Then
Indice = Sheets("indice").Range("d4:d2872")(i).Value
Sheets("loyer").Cells(L, c).FormulaLocal = Indice
End If
Next i
Next c
Next L
End Sub |
Partager