imprimer que si cellule non vide

[lionel exel]

petit nouveau donc 1er question : dans un classeur je possede plusieurs page dans une feuille ,mais je voudrai uniquement que s'imprime les page dont la cellule ex: b2 est non vide ,merçi pour votre aide apres avoir lu plusieurs sujet je suis sur que quelqu'un a la solution merci lionel

 

[Excel-lent]

Re : imprimer que si cellule non vide

Slt Lionel exel

Voici ci-joint une macro qui imprime ta feuille uniquement lorsque la cellule B2 est non vide.

Sub ImpressionNonVide()

  If Range("B2") <> "" Then
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
  End If
End Sub

A tester, mais normalement ça fonctionne.

 

[Catrice]

Re : imprimer que si cellule non vide

Bonsoir,

Le code ci-dessous boucle sur les feuilles du classeur et imprime seulement celles dont la cellule B2 est non vide

Sub Test()
For Each X In Sheets
If X.Range("B2") <> "" Then X.PrintOut
Next
End Sub