Macro trop lente !!

Résolu
patbl Messages postés 83 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 19 mai 2010 - 12 févr. 2009 à 00:54
patbl Messages postés 83 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 19 mai 2010 - 12 févr. 2009 à 17:14
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

cs_Orohena Messages postés 577 Date d'inscription vendredi 26 septembre 2008 Statut Membre Dernière intervention 20 novembre 2010 4
12 févr. 2009 à 01:18
Bonjour

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

Cordialement
3
patbl Messages postés 83 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 19 mai 2010
12 févr. 2009 à 17:14
lol !
j'avais pas vu merci

 pat
0
Rejoignez-nous