Accélérer une maccro de recopie d'infos

[redy13]

Bonjour,
J'avais créé un fichier de compilation avec de nombreuses recherche V : le fichier sur lequel pointait mes recherche V fait 12.000 lignes à la moidre modif, le système bloquait quelques secondes pour recalculer.
Pour éviter cette lourdeur, j'ai donc créer une macro excel pour aller chercher mes infos : la macro est toute bête, pour chaque ligne de ma feuille 1 (1100 lignes), il va chercher les infos de 6 colonnes dans la page 2 (12000 lignes). Mon problème est que cette macro met 10 min à tourner.
Voici ma macro :
Sub Recherche_MADSTOCK()
'
i = 2
Do While Feuil1.Cells(i, 2) <> ""
Feuil1.Cells(i, 16) = ""
Feuil1.Cells(i, 19) = ""
Feuil1.Cells(i, 22) = ""
Feuil1.Cells(i, 23) = ""
Feuil1.Cells(i, 28) = ""
Feuil1.Cells(i, 29) = ""
Feuil1.Cells(i, 34) = ""
Feuil1.Cells(i, 35) = ""
j = 2
Do While Feuil2.Cells(j, 2) <> ""
If Feuil1.Cells(i, 2) = Feuil2.Cells(j, 2) Then
Feuil1.Cells(i, 16) = Feuil2.Cells(j, 4)
Feuil1.Cells(i, 19) = Feuil2.Cells(j, 6)
Feuil1.Cells(i, 22) = Feuil2.Cells(j, 7)
If Feuil1.Cells(i, 22) = 0 Then
Feuil1.Cells(i, 23) = ""
Else: Feuil1.Cells(i, 23) = Feuil2.Cells(j, 8) + Feuil1.Cells(i, 15)
End If
Feuil1.Cells(i, 28) = Feuil2.Cells(j, 11)
If Feuil1.Cells(i, 28) = "" Then
Feuil1.Cells(i, 29) = ""
Else: Feuil1.Cells(i, 29) = Feuil2.Cells(j, 12) + Feuil1.Cells(i, 15)
End If
Feuil1.Cells(i, 34) = Feuil2.Cells(j, 13)
If Feuil1.Cells(i, 34) = "" Then
Feuil1.Cells(i, 35) = ""
Else: Feuil1.Cells(i, 35) = Feuil2.Cells(j, 14) + Feuil1.Cells(i, 15)
End If
Exit Do
End If
j = j + 1
Loop
i = i + 1
Loop

End Sub

Sauriez vous m'aider à accélérer cette macro?
Merci,
Caroline

 

[fhoest]

Re : Accélérer une maccro de recopie d'infos

Bonjour,
pour accelerer la macro tu peux commencer par remplacer le code par celui ci

Sub Recherche_MADSTOCK()
'
application.screenupdating=false
i = 2
Do While Feuil1.Cells(i, 2) <> ""
Feuil1.Cells(i, 16) = ""
Feuil1.Cells(i, 19) = ""
Feuil1.Cells(i, 22) = ""
Feuil1.Cells(i, 23) = ""
Feuil1.Cells(i, 28) = ""
Feuil1.Cells(i, 29) = ""
Feuil1.Cells(i, 34) = ""
Feuil1.Cells(i, 35) = ""
j = 2
Do While Feuil2.Cells(j, 2) <> ""
If Feuil1.Cells(i, 2) = Feuil2.Cells(j, 2) Then
Feuil1.Cells(i, 16) = Feuil2.Cells(j, 4)
Feuil1.Cells(i, 19) = Feuil2.Cells(j, 6)
Feuil1.Cells(i, 22) = Feuil2.Cells(j, 7)
If Feuil1.Cells(i, 22) = 0 Then
Feuil1.Cells(i, 23) = ""
Else: Feuil1.Cells(i, 23) = Feuil2.Cells(j, 8) + Feuil1.Cells(i, 15)
End If
Feuil1.Cells(i, 28) = Feuil2.Cells(j, 11)
If Feuil1.Cells(i, 28) = "" Then
Feuil1.Cells(i, 29) = ""
Else: Feuil1.Cells(i, 29) = Feuil2.Cells(j, 12) + Feuil1.Cells(i, 15)
End If
Feuil1.Cells(i, 34) = Feuil2.Cells(j, 13)
If Feuil1.Cells(i, 34) = "" Then
Feuil1.Cells(i, 35) = ""
Else: Feuil1.Cells(i, 35) = Feuil2.Cells(j, 14) + Feuil1.Cells(i, 15)
End If
Exit Do
End If
j = j + 1
Loop
i = i + 1
Loop
application.screenupdating=true
End Sub

A+
si pas assez rapide revenir pour retravailler le code
edit: bonjour Carcharodon.C (oups je mai trompé de code d'ou la modif)