Optimisation d'une boucle

Version imprimable

Bonjour

Mon code mettrai plus de 3 heures à s'executer tel quel. Est-ce que quelqu'un pourrait m'aider pour l'optimiser.
Ci dessous le code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Dim i, j As Integer
 
For i = 2 To 8075
    For j = 2 To 10877
 
        If ActiveSheet.Cells(i, 1) = Worksheets("PV").Cells(j, 1) And ActiveSheet.Cells(i, 3) = Worksheets("PV").Cells(j, 3) And ActiveSheet.Cells(i, 2) = Worksheets("PV").Cells(j, 2) Then
                ActiveSheet.Cells(i, 5) = Worksheets("PV").Cells(j, 4)
 
        End If
 
     Next j
Next i

Merci d'avance

27/08/2008, 18h09
ProgElecT
Une possibilité d’amélioration de rapidité consiste à imbriquer les conditions If …. Then.
Commencer par la condition qui n’est pas la plus probable, suivit de l’imbriquement de la condition de rend supérieur ……
Code:

1 2 3 4 5 6 7 If Condition1 = "TresRarement" Then If Condition2 = "ArriveParfois" then If condition3 = "ArriveSouvant" then 'Traiter puisque l’ensemble des conditions est Ok End if End If End if
Le temps passé a l’analyse des conditions internes ne serat effectif que si la condition précédente = True.
28/08/2008, 08h28
AlainTech

A vérifier aussi:
S'il y a des cellules calculées dans le classeur, mettre

Code:

Application.Calculation = xlCalculationManual

en début de routine et remettre

Code:

Application.Calculation = xlCalculationAutomatic

une fois la routine terminée.