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
Partager