Impression des feuilles remplies

[prisme3]

Ce forum est vraiment génial. Merci à tous.

Je cherche maintenant un code pour imprimer, à partir d'un bouton de la feuille1, toutes les feuilles du classeur dont la cellule C4 (par exemple) est non-vide, et ignorer les autres.

Merci.

 

[job75]

Re : Impression des feuilles remplies

Bonsoir prisme3,

Essayez :

Sub Imprimer()
Dim w As Worksheet
For Each w In Worksheets
If w.Range("C4") <> "" Then w.PrintOut
Next
End Sub

A+

 

[prisme3]

Re : Impression des feuilles remplies

Merci!
Je l'ai un peu bidouillé, et voici ce qui fonctionne pour moi:

Sub imprimerlespages()

Dim sht As Worksheet

For Each sht In ThisWorkbook.Worksheets
   If sht.Range("K92").Value <> "0" Then
        sht.PrintOut
    End If
Next sht

End Sub