Macro imprimer plusieurs feuilles

CBernardT

XLDnaute Barbatruc

• 30 Juillet 2015

• #2

Re : Macro imprimer plusieurs feuilles

Bonjour good57 et le Forum,

Teste cette syntaxe :

Sub IMPRIM()
With Sheets("Feuil1")
If .Range("A20") <> 0 Then .PageSetup.PrintArea = "$A$1:$G$40" Else .PageSetup.PrintArea = "$A$1:$G$19"
End With

With Sheets("Feuil2")
If .Range("A20") <> 0 Then .PageSetup.PrintArea = "$A$1:$G$40" Else .PageSetup.PrintArea = "$A$1:$G$19"
End With

With Sheets("Feuil3")
If .Range("A20") <> 0 Then .PageSetup.PrintArea = "$A$1:$G$40" Else .PageSetup.PrintArea = "$A$1:$G$19"
End With

Sheets(Array("Feuil1", "Feuil2", "Feuil3")).PrintPreview

End Sub

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 30 Juillet 2015

• #3

Re : Macro imprimer plusieurs feuilles

Bonjour à tous,

avec ce code:

Code:

Sub IMPRIM()
Sheets(1).PageSetup.PrintArea = "$A$1:$G$" & IIf(Sheets(1).[A20] = "", 19, 40)
Sheets(2).PageSetup.PrintArea = "$A$1:$G$" & IIf(Sheets(2).[A20] = "", 19, 40)
Sheets(3).PageSetup.PrintArea = "$A$1:$G$" & IIf(Sheets(3).[A20] = "", 19, 40)
Sheets(Array(1, 2, 3)).PrintPreview
End Sub

à+
Philippe

 

Vote positif 0 Vote négatif

good57

XLDnaute Occasionnel

• 31 Juillet 2015

• #4

Re : Macro imprimer plusieurs feuilles

Merci, tous les 2 🙂
Ca fonctionne ...
Mais je ne comprends toujours pas ce qui ne collait pas dans ma macro :/

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 31 Juillet 2015

• #5

Re : Macro imprimer plusieurs feuilles

Re,

good57 à dit:

Merci, tous les 2 🙂
Ca fonctionne ...
Mais je ne comprends toujours pas ce qui ne collait pas dans ma macro :/

Cliquez pour agrandir...

c'est parce que tu ne faisais pas référence à la cellule A20 de chaque feuille

à+
Philippe

 

Vote positif 0 Vote négatif

good57

XLDnaute Occasionnel

• 31 Juillet 2015

• #6

Re : Macro imprimer plusieurs feuilles

Bah si .... ?! Moi pas comprendre ...

Sheets("Feuil1").PageSetup.PrintArea = "$A$1:$G$" & IIf(Range("A20").Value = "", 19, 40)
Sheets("Feuil2").PageSetup.PrintArea = "$A$1:$G$" & IIf(Range("A20").Value = "", 19, 40)
Sheets("Feuil3").PageSetup.PrintArea = "$A$1:$G$" & IIf(Range("A20").Value = "", 19, 40)


Sheets(Array("Feuil1", "Feuil2", "Feuil3")).PrintPreview

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 31 Juillet 2015

• #7

Re : Macro imprimer plusieurs feuilles

Re,

Mais non, il tu ne tenais pas compte des différentes feuilles,

Sheets("Feuil1").PageSetup.PrintArea = "$A$1:$G$" & IIf(Range("A20").Value = "", 19, 40)
Sheets("Feuil2").PageSetup.PrintArea = "$A$1:$G$" & IIf(Range("A20").Value = "", 19, 40)
Sheets("Feuil3").PageSetup.PrintArea = "$A$1:$G$" & IIf(Range("A20").Value = "", 19, 40)


Sheets("Feuil1").PageSetup.PrintArea = "$A$1:$G$" & IIf(Sheets("Feuil1").Range("A20").Value = "", 19, 40)
Sheets("Feuil2").PageSetup.PrintArea = "$A$1:$G$" & IIf(Sheets("Feuil2").Range("A20").Value = "", 19, 40)
Sheets("Feuil3").PageSetup.PrintArea = "$A$1:$G$" & IIf(Sheets("Feuil3").Range("A20").Value = "", 19, 40)

à+
Philippe

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 31 Juillet 2015

• #8

Re : Macro imprimer plusieurs feuilles

Re,

dans la réponse que je t'ai apportée;

Sheets(1).PageSetup.PrintArea = "$A$1:$G$" & IIf(Sheets(1).[A20] = "", 19, 40)
Sheets(2).PageSetup.PrintArea = "$A$1:$G$" & IIf(Sheets(2).[A20] = "", 19, 40)
Sheets(3).PageSetup.PrintArea = "$A$1:$G$" & IIf(Sheets(3).[A20] = "", 19, 40)

à+
Philippe

 

Vote positif 0 Vote négatif

good57

XLDnaute Occasionnel

• 31 Juillet 2015

• #9

Re : Macro imprimer plusieurs feuilles

ZUT alors !
Merci pour ces infos !

 

Vote positif 0 Vote négatif