Discussion :

[romain8544]

Bonjour,

j'ai une macro qui fonctionne mais qui prend du temps. Je voudrais savoir si je pouvais la simplifier pour aller plus vite.
La macro a pour but de vérifier si en colonne on a 0, on supprime la ligne.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub efface_zero()
Dim n&, i&
 
n = Cells(420, 2).End(3).Row
For i = n To 1 Step -1
        If Cells(i, 2) = 0 Then Rows(i).Delete
Next i
 
End Sub

Merci de votre aide.

[Michel_M]

Bonjour,

déjà, en début de macro ,écris

application.screenupdating=false

qui fige le défilement de l'écran: confort et rapidité
à installer sur pratiquement toutes les macros

edit 09:29h
bien que sur 420 lignes la différence est peanuts
cette macro ne boucle que sur le nombre de 0 dans la colonne A ("A" pour l'exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
'-----------------------
Sub supprimer_zéro()
Dim Nbre As Integer, Cptr As Integer, Lig As Integer
    Application.ScreenUpdating = False
    Nbre = Application.CountIf(Columns("A"), 0)
    For Cptr = 1 To Nbre
        Lig = Columns("A").Find(0, Range("A1"), xlValues).Row
        Rows(Lig).Delete
    Next
End Sub

[romain8544]

merci