Réduire une macro

[lioneldu47]

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

 

[gilbert_RGI]

Re : Réduire une macro

Bonjour

à tester

Sub ImprimerA()
Dim i As Integer
With Sheets("Facture")
For i = 23 To 46
If Cells(i, 3) = "" Then Cells(i, 3).EntireRow.Hidden = True
Next
End With
End Sub

 

[kjin]

Re : Réduire une macro

Bonsoir,
Je ne sais pas si c'est ça qui ralentie ta macro mais bon

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

 

[lioneldu47]

Re : Réduire une macro

Merci mais c'est vrai que c'est toujours aussi long...

Comment cela se fait qu'est ce qui peut ralentir une macro?

MERCI

 

[jeanpierre]

Re : Réduire une macro

Bonsoir lioneldu47, Gilbert, kjin,

Même réflexion que kjin.

"macro qui prend trop de temps", combien de temps ?

Sinon, n'aurais-tu pas une macro événementielle dans ta feuille ?

Bonne soirée.

Jean-Pierre

 

[kjin]

Re : Réduire une macro

Re,
L'imprimante est-elle sous tension ?
Tout ça pour dire qu'il a moulte raison et sans fichier c'est difficile de répondre
A+
kjin

 

[Habitude]

Re : Réduire une macro

Bonjour

à tester

Sub ImprimerA()
Dim i As Integer
With Sheets("Facture")
For i = 23 To 46
If Cells(i, 3) = "" Then Cells(i, 3).EntireRow.Hidden = True
Next
End With
End Sub

Dans la même optique

Sub ImprimerA()

With Sheets("Facture")
For i = 23 To 46
Rows(i).Hidden = IsEmpty(Cells(i, 3))
Next
End With
End Sub