impression sélective

[lamot.w]

Salut à tous

Je voudrais créer une macro me permettant de n'imprimer que les feuilles dont certaines cellules sont remplies.
Mon classeur se compose donc de plusieurs feuilles, et je ne veux les imprimer que si par exemple "A1" et/ou "C57" sont remplies.

Merci pour votre aide.

 

[lamot.w]

plus précisément:

j'ai oublier de faire la distinction entre feuille et page!
en effet, cette macro devrait pouvoir n'imprimer (par exemple) que la page 2 de la feuille si les cellules cibles de la page 1 ne sont pas remplies et que seul les cellules cible de la page 2 le sont.

merci!

 

[XanorK]

Re : impression sélective

Bonsoir Lamot.w, le forum

si je comprends bien, cela pourrait ressembler à ca :

Sub GoPrint()
Dim LaFeuille As Integer
    For LaFeuille = 1 To Worksheets.Count
        If Worksheets(LaFeuille).[A1].Value <> "" Or _
                        Worksheets(LaFeuille).[C57].Value <> "" Then
            ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
        End If
    Next LaFeuille
End Sub

XanorK