XL 2016 Macro, ne pas imprimer les lignes suivant une valeur

[cardi]

Bonjour,

J'ai trouvé une macro pour ne pas imprimer les lignes vide :

Sub ImprimeSansVide()

Dim Plage As Range
On Error Resume Next
Application.ScreenUpdating = False
  With ActiveSheet
    Set Plage = .Range("B1:B1002").Cells.SpecialCells(xlCellTypeBlanks)
      If Not Plage Is Nothing Then Plage.Rows.Hidden = True
    .PrintPreview 'pour voir sans imprimer
    '.PrintOut ' pour imprimer directement
    .Rows.Hidden = False
  End With
End Sub

J'aimerai modifier ce code pour que si dans la colonne B, on a la valeur 1, on imprime la ligne, si la valeur est = 0, on n'imprime pas la ligne.

Que faudrait-il modifier pour cela?

Merci d'avance,

Cardi

 

[Robert]

Bonjour Cardi, bonjour le forum,

Essaie comme ça :

Sub ImprimeSansVide()
Dim Plage As Range
Dim CEL As Range

Application.ScreenUpdating = False
With ActiveSheet
    Set Plage = .Range("B1:B1002")
    For Each CEL In Plage
        If CEL.Value = 0 Then Rows(CEL.Row).Hidden = True
     Next CEL
     .PrintPreview 'pour voir sans imprimer
        '.PrintOut ' pour imprimer directement
    .Rows.Hidden = False
End With
End Sub

 

[cardi]

Cela n'a pas l'air de fonctionner malheuresement, ce code bloque mon fichier

 

[Robert]

Re,

À mon avis il bloque pas mais il est très long à s'exécuter car il travaille cellule après cellule sur 1002 lignes... Laisse le tourner un jour ou deux puis tu vois... Je t'avoue que je n'ai pas testé, j'ai juste retravaillé ton code.

[Édition]
Testé. Ça marche chez moi en quelques secondes (<3)

 

[cardi]

Effectivement, cela fonctionne bien, merci beaucoup.