Discussion :

[ccobaye]

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 :

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

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

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

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

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.

[AlainTech]

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

Code :

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

Application.Calculation = xlCalculationManual

en début de routine et remettre

Code :

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

Application.Calculation = xlCalculationAutomatic

une fois la routine terminée.