Impression si valeur >0

[granphilou]

Bonjour,

Dans un fichier, j'ai une série de 70 feuilles. Je souhaiterai imprimer que les feuilles qui ont une valeur >0 dans une certaine cellule de la feuille. Quelle est la macro la mieux adaptée ?

Merci

 

[DoubleZero]

Re : Impression si valeur >0

Bonjour à toutes et à tous,

Bienvenue sur XLD, granphilou !

Peut-être ainsi :

Option Explicit
Sub Imprimer_si_supérieur_à_zéro()
Dim f As Worksheet
For Each f In Worksheets
    If f.Range("A1") > 0 Then f.PrintOut 'cellule à adapter
Next f
End Sub

A bientôt 🙂

P. S. : Bonjour, Hulk 😀

 

[Hulk]

Re : Impression si valeur >0

Hello et bienvenue,

À tester...

Sub imprime()
    
    Dim f As Worksheet
    
    For Each f In ThisWorkbook.Sheets
        If f.Range("A5") > 0 Then
            f.PrintOut Copies:=1
        End If
    Next

End Sub

EDIT: Oups slt petit âne... ben voilà tu as choisis A1, moi A5 😛