Imprimer Résolu/Fermé

Question

Bonjour,

J'ai cherché partout sur le forum, mais je n'ai pas trouvé.

Voilà mon souci, je souhaiterais imprimer un classeur uniquement si une cellule donnée (exemple: A1) est au dessus de zéro et donc, par définition, que cela ne s'imprime pas si elle est égale à zéro (programme de facturation en fin de mois)

D'avance merci de votre aide.

lermite222 · Answer

Bonjour,
Sub Macro()
    If Range("A1")>0 then
        Sheets("Feuil1").Select
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    End If
End Sub

A+

bailey · Answer

Merci je vais essayer cela ce soir.

bailey · Answer

Soit c'est moi (ce doit être cela) mais ca ne fonctionne pas.

Question: faut il que je répète la macro à chaque feuille ?

lermite222 · Answer

Re,
Si tu veux imprimer toutes les feuilles...
Sub ImprimeToutesFeuil()
Dim F As Integer
    'Il faut que les mises en page et la zone à imprimer
    'de chaque feuille soit faite au préalable.
    If Sheets("NomFeuille").Range("A1") > 0 Then 'A adapter
        For F = 1 To Worksheets.Count
            Sheets(F).PrintOut
        Next F
    End If
End Sub
Tu doit mettre la macro dans un module général, par exemple Module1
A+

bailey · Answer

Merci beaucoup

bailey · Answer

Ca me donne une erreur "1004" l'impression ne fonctionne pas.

lermite222 · Answer

Faut bien sûr adapter le nomFeuille et la cellule de test.
Si ça ne va pas met le code de ta macro dans un poste suivant.
A+

lermite222 · Answer

Bon, par acquit de conscience j'ai testé et ça fonctionne.
Le seul truc que je peu voir c'est où tu à mis la macro ?
Elle doit être dans un module général, par ex Module1.
A+

Imprimer

8 réponses

Discussions similaires