Discussion :

[maymou27]

Bonjour tout le monde;

SVP j'ai créé un macros qui marche mais il est trops lent, comment je peux l'accélerer?

Merci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim i As Integer
i = 0
For k = 11 To 51
 
For J = 1 To 100000
If Sheets("DATA").Cells(J, 52).Value = "ASSY" And Sheets("ANALYSIS").Cells(2, 5).Value = Sheets("DATA").Cells(J, 53) And Sheets("ANALYSIS").Cells(5, 5).Value = Sheets("DATA").Cells(J, 54) And Sheets("ANALYSIS").Cells(6, 5).Value = Sheets("DATA").Cells(J, 51) And Sheets("ANALYSIS").Cells(k, 2).Value = Sheets("DATA").Cells(J, 34) Then
i = i + 1
End If
Next
Sheets("ANALYSIS").Cells(k, 9).Value = i
i = 0
Next

[Didine1801]

Je sais pas si c'est ça qui ralentit (je sais pas si tu utilises des formules ou non) mais moi j'ai pour habitute d'utiliser cela au début des programmes :

Code :

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

1
2
3
4
5
'enlever le calcul automatique d'Excel
Application.Calculation = xlCalculationManual
 
' désactication du rafraichissement de l'écran pendant la macro
Application.ScreenUpdating = False

et ça à la fin

Code :

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

1
2
3
4
5
'remettre le calcul automatique
Application.Calculation = xlCalculationAutomatic
 
'rafraichissement de l'écran pendant la macro
Application.ScreenUpdating = True

cela évite à Excel si jamais tu utilises des formules de recalculées tous à chaque boucle. Là il fait tous le programme et calcul tout à la fin.