Macro boucle for next trop lente

6tm

XLDnaute Nouveau
Salut!
Quelqu'un pourrait il m'aider a ameliorer cette macro qui utilise une boucle for next et qui tourne de facon trop lente.
Merci d'avance


Sub calcul()
For i = 22 To 73
Sheets("Control").Range("O" & i).FormulaLocal = "=INDIRECT(RC[-1]&""BudgetP1"")"
Sheets("Control").Range("S" & i).FormulaLocal = "=INDIRECT(RC[-5]&""BudgetP2"")"
Sheets("Control").Range("W" & i).FormulaLocal = "=INDIRECT(RC[-9]&""BudgetP3"")"
Sheets("Control").Range("AA" & i).FormulaLocal = "=INDIRECT(RC[-13]&""BudgetP4"")"
Next i
For j = 78 To 129
Sheets("Control").Range("O" & j).FormulaLocal = "=INDIRECT(RC[-1]&""BudgetP5"")"
Sheets("Control").Range("S" & j).FormulaLocal = "=INDIRECT(RC[-5]&""BudgetP6"")"
Sheets("Control").Range("W" & j).FormulaLocal = "=INDIRECT(RC[-9]&""BudgetP7"")"
Sheets("Control").Range("AA" & j).FormulaLocal = "=INDIRECT(RC[-13]&""BudgetP8"")"
Next j
End Sub
 

flyonets44

XLDnaute Occasionnel
Re : Macro boucle for next trop lente

Bonjour
un bout de solution
sub Faster
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
call sub calcul
Application.Calculation = xlCalculationAutomatic
end sub
Cordialement
Flyonets
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas