Macro trop lente !!

Résolu
Signaler
Messages postés
83
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
19 mai 2010
-
Messages postés
83
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
19 mai 2010
-
Bonjour,
je trouve ma macro trop lente cela bloque mon ordi avez-vous une autre plus rapide
Sub afficherLesLignesVides()
Range("w4:w123").EntireRow.Hidden = False
For Each sel In Range("w4:w123")
Columns("p:p").Hidden = False
Columns("d:d").Hidden = False
Columns("g:g").Hidden = False
Columns("j:j").Hidden = False
Columns("m:m").Hidden = False
Columns("q:q").Hidden = False
Columns("s:s").Hidden = False
Columns("v:v").Hidden = False
Columns("w:w").Hidden = False
Columns("y:y").Hidden = False
Columns("z:z").Hidden = False
Columns("a:a").Hidden = False
Columns("q:q").Hidden = False
Columns("bn:bn").Hidden = True
Columns("bo:bo").Hidden = True
Columns("bp:br").Hidden = TrueIf sel 0 Then sel.EntireRow.Hidden False
Next


End Sub
merci
 pat

2 réponses

Messages postés
577
Date d'inscription
vendredi 26 septembre 2008
Statut
Membre
Dernière intervention
20 novembre 2010
4
Bonjour

Tu fais 120 fois Columns("p:p").Hidden ... Columns("bp:br").Hidden = True
Une fois serait suffisant.

Cordialement
Messages postés
83
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
19 mai 2010

lol !
j'avais pas vu merci

 pat