Temps d'execution Macro

[emmanuelavril]

Bonjour à tous,

Voilà, j'ai développé une petite macro qui sur une certaine base de données me permet de supprimer les lignes qui ne m'interessent pas:

Dim y As Long
Dim Var
Var = Sheets("GENERAL").Range("B20")
For y = Sheets("NAVISION").Range("C65536").End(xlUp).Row To 2 Step -1
If (Sheets("NAVISION").Cells(y, 3).Value > Var And Sheets("NAVISION").Cells(y, 21).Value = "Yes") Then Rows(y).Delete
If (Sheets("NAVISION").Cells(y, 3).Value <= Var And Sheets("NAVISION").Cells(y, 21).Value = "No") Then Rows(y).Delete
Next

Cependant le temps d'execution peut prendre pas mal de temps si il y beaucoup de lignes. (parfois 8 ou 9 minutes)

Connaitriez-vous un moyen de diminuer ce temps d'execution?

Merci beaucoup

++

 

[mromain]

Re : Temps d'execution Macro

bonjour emmanuelavril,


Essaye avec ce code :

Option Explicit


Public Sub Macro()
Dim mem1 As Long, mem2 As Long, mem3 As Long
    
    'mémoriser les options d'excel et les désactiver
    mem1 = Application.ScreenUpdating: Application.ScreenUpdating = False           'raffraichissement de l'affichage
    mem2 = Application.EnableEvents: Application.EnableEvents = False               'gestion des évènements
    mem3 = Application.Calculation: Application.Calculation = xlCalculationManual   'mode de calcul
    
    'Exécuter la macro
    On Error Resume Next
     MacroInt
    On Error GoTo 0
    
    'rétablir les options d'excel
    Application.ScreenUpdating = mem1
    Application.EnableEvents = mem2
    Application.Calculation = mem3
    
End Sub


Private Sub MacroInt()
Dim y As Long, Var As Excel.Range

    Var = Sheets("GENERAL").Range("B20")
    For y = Sheets("NAVISION").Range("C65536").End(xlUp).Row To 2 Step -1
        If (Sheets("NAVISION").Cells(y, 3).Value > Var And Sheets("NAVISION").Cells(y, 21).Value = "Yes") Then Rows(y).Delete
        If (Sheets("NAVISION").Cells(y, 3).Value <= Var And Sheets("NAVISION").Cells(y, 21).Value = "No") Then Rows(y).Delete
    Next
    
End Sub

a+

 

[emmanuelavril]

Re : Temps d'execution Macro

Merci beaucoup!

Bonne journée

++

 

[MJ13]

Re : Temps d'execution Macro

Bonjour emmanuelavril, Mromain

Cela aurait été bien que Emmanuel nous donne la différence de temps entre les 2 codes, histoire de participer un peu à la communauté .

 

[mromain]

Re : Temps d'execution Macro

Bonjour emmanuelavril, Mromain

Cela aurait été bien que Emmanuel nous donne la différence de temps entre les 2 codes, histoire de participer un peu à la communauté .

Bonjour MJ13,

C'est ce que je me suis dit également...

emmanuelavril, si jamais tu repasse par là, peux-tu nous donner cette différence de temps d'exécution stp ?
Merci

a+

 

[emmanuelavril]

Re : Temps d'execution Macro

Oui bien sûr excusez-moi

Pour une certaine feuille de données, je passe de 3 min 12 s à 01 min 07 s.

voilà

++

 

[mromain]

Re : Temps d'execution Macro

Oui bien sûr excusez-moi

Pour une certaine feuille de données, je passe de 3 min 12 s à 01 min 07 s.

voilà

++

merci

a+