lenteur sur boucle pour masquer ligne

[SOM58]

Bonjour le forum
Dans cet extrait de code la boucle me ralentit l'execution de la procédure ,comme c'est moi qui l'a ecrit et n'etant pas un pro du code
je souhaiterais savoir si on peut faire une modif pour l'améliorer
merci de votre aide




Private Sub CommandButton11_Click() 'imprime Dim r As Integer


Dim ActivationEvents As Long
ActivationEvents = Application.EnableEvents
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.Calculation = xlManual
For r = 3 To Range("a242").End(xlUp).Row

If (Cells(r, "a")) = "0" Or IsEmpty(Cells(r, "a")) And IsEmpty(Cells(r, "c")) And IsEmpty(Cells(r, "d")) And IsEmpty(Cells(r, "b")) Then Rows(r).Hidden = True
Next r


Application.Calculation = xlAutomatic

 

[JNP]

Re : lenteur sur boucle pour masquer ligne

Bonjour Som58 🙂,
A tout hasard, essaie

[COLOR=#0000ff]If Cells(r, 1) = "0" Or Cells(r, 1) & Cells(r, 2) & Cells(r, 3) & Cells(r, 4) = "" Then Rows(r).Hidden = True[/COLOR]

Sans garantie 😛...
Bon dimanche 😎

 

[SOM58]

Re : lenteur sur boucle pour masquer ligne

Bonjour JNP et Merci pour ta réponse,pour l'instant sur mon poste je ne vois pas de différence je vais tester demain
Je viens de remarquer une chose, à l'ouverture du fichier la macro s'execute trés bien ,la lenteur s'amplifie à chaque fois que je lance cette macro par la suite
bon dimanche à tous,

 

[JNP]

Re : lenteur sur boucle pour masquer ligne

Re 🙂,
C'est peut-être le fait de revérifier les lignes masquées... il faudrait peut-être les sauter :

[COLOR=black]If Rows(r).Hidden = False Then[/COLOR]
[COLOR=black]If Cells(r, 1) = "0" Or Cells(r, 1) & Cells(r, 2) & Cells(r, 3) & Cells(r, 4) = "" Then Rows(r).Hidden = True[/COLOR]
[COLOR=black]End If

Bon dimanche 😎[/COLOR]

 

[SOM58]

Re : lenteur sur boucle pour masquer ligne

ok je vais regarder merci pour votre aide ,SOM