Discussion :

[vbanovice]

bonjour

j'ai essayé de creer une macro qui permet d'imprimer ou pas une page de la feuille selectione mais cela ne marche pas a tous les coups

voici la macro et le fichier en piece jointe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
If Range("A5") <> "0" Then ActiveSheet.PageSetup.PrintArea = "$A$1:$E$" & [E37].End(xlUp).Row
 
    ActiveSheet.PrintOut Copies:=1
 
 
    If Range("A48") <> "0" Then ActiveSheet.PageSetup.PrintArea = "$A$50:$E$" & [E84].End(xlUp).Row
 
 
    ActiveSheet.PrintOut Copies:=1
 
End Sub

merci de votre aide