Accélérer l'execution d'une macro

[Mantix]

Bonjour à tous,

J'ai un problème concernant une macro;
Cette dernière compare 2 colonnes sur 2 feuilles différentes et ajoute les données à la suite de la 1ere colonne si différentes.
Le problème est que la quantité de données à comparer est importante ( environ 800 sur la 1ere feuille et 400 sur la 2eme)
L'execution de la macro est donc interminable ( 5 min)

Sub CopierOrdres()
Application.ScreenUpdating = False
Dim dlc As Long, nli As Long
Dim cel As Range
dlc = Sheets(1).Cells(Columns(1).Cells.Count, 1).End(xlUp).Row + 1
nli = Sheets("Export réel actuel").Cells(Columns(1).Cells.Count, 1).End(xlUp).Row
For Each cel In Sheets("Export réel actuel").Range("a2:a" & nli)
Set resu = Sheets(1).Range("A:A").Find(What:=cel.Value, lookat:=xlWhole)
    If resu Is Nothing Then
        Sheets("Export réel actuel").Range("A" & cel.Row).Copy Destination:=Sheets(1).Cells(dlc, 1)
        dlc = dlc + 1
    End If
Next cel
Application.ScreenUpdating = True
End Sub

Voici le code.
Merci d'avance

Mantix

 

[Pierrot93]

Re : Accélérer l'execution d'une macro

Bonjour,

si tu as des formules ou bien des procédures événementielles tu peux également rajouter ces instructions pour les bloquer :

Application.EnableEvents = False
Application.Calculation = xlCalculationManual
'ton code
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True

bonne journée
@+

 

[Mantix]

Re : Accélérer l'execution d'une macro

Bonjour Pierrot,

Terriblement efficace ta solution merci beaucoup!

A+