Impression sous conditions

[varouk]

Bonjour,

Je cherche à imprimer certaines feuilles de mon document excel.

Plus précisement, je ne souhaiterai imprimer que les feuilles avec des quantités supérieures à 0, j'ai fais un total des quantités pour chaque feuille en colone AT (exemple feuille 1 AT66 et feuille 2 AT129...).

Merci de votre aide

 

[fanfan38]

Re : Impression sous conditions

Bonjour
Dans thisworkbook tu peux ouvrir une macro:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Mais comment savoir si feuille x quelle cellule de la colonne AT?
Est ce que AT66 et AT129 sont les dernieres cellules remplies de la feuille dans cette colonne?
A+ François

 

[SergiO]

Re : Impression sous conditions

Bonjour varouk et bienvenue sur XLD,

Je ne sais pas si tu connais le VBA mais je te propose un code ci-dessous.
Il permet de balayer toutes les feuilles de ton classeur et d'imprimer celles qui ont une valeur supérieure à zéro en colonne AT.
Si tu veux plus d'explications, reviens.

Sub Impression()
For S = 1 To Sheets.Count
X = Application.WorksheetFunction.Max(Sheets(S).Range("AT1:AT65536"))
If X > 0 Then Sheets(S).PrintOut Copies:=1, Collate:=True
Next S
End Sub

@+