Discussion :

[sixtm]

Salut
Nouveau sur le forum pourriez vous m'aider a ameliorer mon code vba ci apres ki est trop lent:

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 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

[mercatog]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub calcul()
 
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
With Sheets("Control")
    .Range("O22:O73").FormulaLocal = "=TaFormule"
    'idem pour les autres
    .Range("O78:O129").FormulaLocal = "=TonAutreFormule"
    'idem
End With
Application.Calculation = xlCalculationAutomatic
End Sub

[sixtm]

Merci mercatog ca marche super bien