Bonjour,

Voila j'ai écrit une macro pour faire un calcul de moyenne. Celle fonctionne avec un test à 100 ligne ou 1000 au delà elle tourne sans s'arreter.

Meme avec XLcalutionmanual et Screenupdating=false je ne gagne pas mieux en execution

Quelqu'un pourrait m'aider à la transformer pour gagner en temps d'execution?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
 
     For i = .Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
 
.Cells(i, 149).FormulaArray = "=AVERAGE(IF((R2C72:R37030C72=RC[-77])*(R2C74:R37030C74=RC[-75])>0,R2C86:R37030C86))"
 .Cells(i, 147).FormulaArray = "=IF(RC[-65]<>"""",AVERAGE(IF((R2C72:R37030C72=RC[-75])*(R2C74:R37030C74=RC[-73])>0,R2C82:R37030C82)),"""")"
 .Cells(i, 148).FormulaArray = "=AVERAGE(IF((R2C72:R37030C72=RC[-76])*(R2C74:R37030C74=RC[-74])>0,R2C84:R37030C84))"
     Next i
Merci