Macro trop lente !! [Résolu]

patbl 83 Messages postés mardi 25 septembre 2007Date d'inscription 19 mai 2010 Dernière intervention - 12 févr. 2009 à 00:54 - Dernière réponse : patbl 83 Messages postés mardi 25 septembre 2007Date d'inscription 19 mai 2010 Dernière intervention
- 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
Afficher la suite 

2 réponses

Répondre au sujet
cs_Orohena 578 Messages postés vendredi 26 septembre 2008Date d'inscription 20 novembre 2010 Dernière intervention - 12 févr. 2009 à 01:18
+3
Utile
Bonjour

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

Cordialement
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de cs_Orohena
patbl 83 Messages postés mardi 25 septembre 2007Date d'inscription 19 mai 2010 Dernière intervention - 12 févr. 2009 à 17:14
0
Utile
lol !
j'avais pas vu merci

 pat
Commenter la réponse de patbl

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.