optimisation code

[perdinch]

bonjour,

je souhaite optimiser ce code dont l'objectif est de masquer des lignes selon un critère.
Ce code fonctionne mais je le trouve relativement long(10 secondes) pour une cinquantaine de ligne à balayer.

For i = 3 To 50
On Error Resume Next
If Cells(i, 9) + Cells(i, 14) + Cells(i, 18) = 0 Then Rows(i).EntireRow.Hidden = True
Next i

Merci de vos suggestions

 

[Efgé]

Re : optimisation code

Bonjour perdinch

Plus de ligne, lmais moins de temps

Sub test()
Dim i&, R As Range
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
On Error Resume Next 'inutile de le mettre dans la boucle. Une fois suffit
For i = 3 To 50
    If Cells(i, 9) + Cells(i, 14) + Cells(i, 18) = 0 Then
        If Not R Is Nothing Then
            Set R = Union(R, Rows(i))
        Else
            Set R = Rows(i)
        End If
    End If
Next i
If Not R Is Nothing Then R.EntireRow.Hidden = True
Application.Calculation = xlCalculationAutomatic
End Sub

Cordialement

 

[perdinch]

Re : optimisation code

merci . J'ai effectivement divisé le temps par 3!

 

[Efgé]

Re : optimisation code

Re

Trois secondes pour ça, me parait très long....
Il faudrai voir le reste.
Cordialement

 

[perdinch]

Re : optimisation code

Merci encore !
Est-il possible de remplacer ***If Cells(i, 9) + Cells(i, 14) + Cells(i, 18) = 0 Then****
par une formule qui ferait la somme des 3 cellules

cordialement,

 

[Efgé]

Re : optimisation code

Re
Comprends pas :

Sub Test()
Dim i&, R As Range, Test&
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
On Error Resume Next 'inutile de le mettre dans la boucle. Une fois suffit
For i = 3 To 50
    Test = Cells(i, 9) + Cells(i, 14) + Cells(i, 18)
    If Test = 0 Then
        If Not R Is Nothing Then
            Set R = Union(R, Rows(i))
        Else
            Set R = Rows(i)
        End If
    End If
Next i
If Not R Is Nothing Then R.EntireRow.Hidden = True
Application.Calculation = xlCalculationAutomatic
End Sub

Cordialement