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 

Votre réponse

2 réponses

Meilleure réponse
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
Merci
Bonjour

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

Cordialement

Merci cs_Orohena 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 96 internautes ce mois-ci

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
Merci
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.