Problème pour maquer lignes

[jo]

Bonjour,

je sollicite votre aide pour comprendre pourquoi la macro suivante, qui marche très bien ( environ 5 secondes pour un test de 2500 lignes ),
devient extrêmement lente (plusieurs minutes) lorsque je viens par exemple de redefinir la zone d'impression.

Merci de me donner votre avis si vous savez d'où cela pourrait venir.




Dim j As Integer

j = 6

Application.ScreenUpdating = False

For j = 6 To 2500

If (Cells(j, 2).Value = "") Then


Rows(j).Select
Selection.EntireRow.Hidden = True


End If

Next

End Sub

 

[wilfried]

Salut jo

cela vient peut être du fait que tu ne remet pas le rafraichissement d'ecran à true...

C'est la seul explication que je vois

Désolè

Wilfried ;-)

 

[jo]

Bonjour wilfried,

je te remercie pour ta réponse.

J'ai essayé la macro en question en rétablissant le refraichissement d'écran, mais rien n'y fait.

Merci à ceux qui peuvent avoir une idée de la raison pour laquelle la même macro peut devenir environ cent fois plus lente, sans aucune raison apparente.....