Impression de toutes les pages d'un classeur dont une cellule a une valeur diffe

[Alex]

Bonjour,

J'ai un classeur excel avec de nombreuses feuilles triant des donnees.
Toutes ces pages sont identiques mais ne contiennent pas toujours des donnees utiles (chiffes) et donc je n'ai besoin d'imprimer tous les mois que les pages qui contiennent des informations.

J'aurais besoin d'une macro qui imprime chaque feuille si la cellule J11 de chacune d'entre elles a une valeur differente de zero (la valeur peut etre positive ou negative).

Y a t'il un pro des macros qui a une idee ?

Merci d'avance


Alex

 

[Arnaud]

salut,

je c pas si j'ai bien compris ton truc mais bon...🙂

Private Sub Workbook_BeforePrint(Cancel As Boolean)
For i = 1 To ActiveWorkbook.Sheets.Count
ActiveWorkbook.Sheets(i).Activate
If Range("j11") <> 0 Then ActiveWorkbook.Sheets(i).PrintOut
Next i
End Sub

 

[Alex]

Salut,

Merci pour cela.
La macro tourne et passe en revue toutes les feuilles mais n'imprime aucunes des pages.

Da'pres ce que je comprends du VBA (pas grand chose pour etre honnete), la macro a l'air d'etre bien programmee ???