Bonjour,

J'ai fais la macro ci-joint qui est une formule à recopier sur plusieurs colonne mais elle met pas mal de temps à charger.

Pouvez vous m'ader ?

Ci-joint la macro

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
 
'Faire formule simple
 
Dim revivion
 
revision = "=sommeprod(indice!$d$2:$d$2994*(indice!$b$2:$b$29 94=loyer!o$1)*(indice!$a$2:$a$2994=loyer!$k2)*(ind ice!$c$2:$c$2994=loyer!$L2))"
 
Range("o2:dl2000").FormulaLocal = revision
Range("o2:dl2000").Copy
Range("o2:dl2000").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
 
End Sub