Bonjour,

J'aimerais optimiser la macro suivantes qui marche trés bien mais qui prend un peu de temps.

Est-ce qu'il est possible d'optimiser la macro pour qu'elle aille plus vite

Cdt,

Code VBA : Sélectionner tout - Visualiser dans une fenêtre à part
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