Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

lioneldu47

XLDnaute Occasionnel
bonjour le forum,

Je voudrais juste réduire la macro suivante qui prend trop de temps:

Sub ImprimerA()
With Sheets("Facture")
If Range("C23") = "" Then Range("C23").EntireRow.Hidden = True
If Range("C24") = "" Then Range("C24").EntireRow.Hidden = True
If Range("C25") = "" Then Range("C25").EntireRow.Hidden = True
If Range("C26") = "" Then Range("C26").EntireRow.Hidden = True
If Range("C27") = "" Then Range("C27").EntireRow.Hidden = True
If Range("C28") = "" Then Range("C28").EntireRow.Hidden = True
If Range("C29") = "" Then Range("C29").EntireRow.Hidden = True
If Range("C30") = "" Then Range("C30").EntireRow.Hidden = True
If Range("C31") = "" Then Range("C31").EntireRow.Hidden = True
If Range("C32") = "" Then Range("C32").EntireRow.Hidden = True
If Range("C33") = "" Then Range("C33").EntireRow.Hidden = True
If Range("C34") = "" Then Range("C34").EntireRow.Hidden = True
If Range("C35") = "" Then Range("C35").EntireRow.Hidden = True
If Range("C36") = "" Then Range("C36").EntireRow.Hidden = True
If Range("C37") = "" Then Range("C37").EntireRow.Hidden = True
If Range("C38") = "" Then Range("C38").EntireRow.Hidden = True
If Range("C39") = "" Then Range("C39").EntireRow.Hidden = True
If Range("C40") = "" Then Range("C40").EntireRow.Hidden = True
If Range("C41") = "" Then Range("C41").EntireRow.Hidden = True
If Range("C42") = "" Then Range("C42").EntireRow.Hidden = True
If Range("C43") = "" Then Range("C43").EntireRow.Hidden = True
If Range("C44") = "" Then Range("C44").EntireRow.Hidden = True
If Range("C46") = "" Then Range("C46").EntireRow.Hidden = True

End With
End Sub


MERCI BEAUCOUP
 
Re : Réduire une macro

Bonsoir,
Je ne sais pas si c'est ça qui ralentie ta macro mais bon
Code:
Sub ImprimerA()
With Sheets("Facture")
   Set C = .Range("C23:C46").SpecialCells(xlBlanks)
   C.EntireRow.Hidden = True
End With
End Sub
Edit : Pas rafraichi à temps Gilbert 🙂
A+
kjin
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
17
Affichages
2 K
Retour