Racourcir/optimiser une macro

[lioneldu47]

Bonjour le forum,​

J'aimerais avoir une solution afin de racourcir et d'optimiser cette partie de macro :

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

Je dois continuer suivant ce modèle jusqu'à C452.

Est ce que quelqu'un aurait une solution pour un code beaucoup plus court?

Merci pour votre aide.

 

[DoubleZero]

Re : Racourcir/optimiser une macro

Bonjour, lioneldu47, le Forum,

Peut-être ainsi :

Option Explicit
Sub Masquer()
Application.ScreenUpdating = False
Dim C As Range, Derligne As Long
Derligne = Range("C452").End(xlUp).Row
For Each C In Range("C23:C" & Derligne)
    If C = "" Then C.EntireRow.Hidden = True
Next C
Application.ScreenUpdating = True
End Sub

A bientôt 🙂.

 

[Etienne2323]

Re : Racourcir/optimiser une macro

Bonjour le fil,
@ DoubleZero : juste pour être tanant 😉 Si tu pars de C452 et qu'aucune cellule n'est vide, tu remontes jusuqu'à C23 😉

Option Explicit
Sub Masquer()
Application.ScreenUpdating = False
Dim C As Range
For Each C In Range("C23:C" & Range("C65536").End(xlUp).Row)
    If C = "" Then C.EntireRow.Hidden = True
Next C
End Sub

Cordialement,

Étienne

 

[lioneldu47]

Re : Racourcir/optimiser une macro

Merci à vous deux, avec quelques petites adaptations ça devrait me convenir.

 

[DoubleZero]

Re : Racourcir/optimiser une macro

Re-bonjour,

@ Étienne,

Je ne comprends pas 😱 !.. Si lioneldu47 ne souhaite pas masquer les lignes au-delà de la 452ème 😕 ?

A bientôt 🙂.

 

[Etienne2323]

Re : Racourcir/optimiser une macro

Re le fil, DoubleZero 🙂

Très bon contre-argument 😉 Il y a peu être des lignes au-delà de 452 qui ne doivent pas être masquées.

Pointage : 1 à 1 😎😛

Par contre, à la vue de ton point, il serait peut-être préférable de ne pas chercher la dernière ligne, mais plutôt de la préciser. Ainsi, la dernière ligne devrait être 452.

J'imagine que l'écriture la plus sécuritaire serait celle-là

Option Explicit
Sub Masquer()
Application.ScreenUpdating = False
Dim C As Range
For Each C In Range("C23:C452")
    If C = "" Then C.EntireRow.Hidden = True
Next C
End Sub

Cordialement,

Étienne

 

[DoubleZero]

Re : Racourcir/optimiser une macro

Re-bonjour,

... Par contre, à la vue de ton point, il serait peut-être préférable de ne pas chercher la dernière ligne, mais plutôt de la préciser. Ainsi, la dernière ligne devrait être 452...

Merci, Étienne 😀.

 

[lioneldu47]

Re : Racourcir/optimiser une macro

Merci à vous DoubleZéro et Etienne2323... Très bon travail effectivement je ne voulais pas masquer les lignes après 452 même si vide. Avec la dernière macro j'arrive au résultat attendu. Encore merci

 

[Si...]

Re : Racourcir/optimiser une macro

salut

sans If (Si... pas bouteille 😉)

Sub Masquer()
  Application.ScreenUpdating = False
  Dim C As Range
  For Each C In Range("C23:C452").SpecialCells(xlCellTypeBlanks)
    C.EntireRow.Hidden = True
  Next
End Sub

 

[Pierrot93]

Re : Racourcir/optimiser une macro

Bonjour à tous,

peut être sans boucle alors...

On Error Resume Next
Range("C23:C452").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True

bonne journée
@+

 

[Etienne2323]

Re : Racourcir/optimiser une macro

Bonjour à tous,
Pierrot, c'est exactement pour ça que j'adore ce forum 🙂

Magique ce code !!!

Bonne journée à toi,

Étienne