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

[aalex_38]

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

Peux-tu préciser, tu as un plantage, un numéro d'erreur ?

[vbanovice]

merci mais il n'y a pas de plantage, seuleument si la cellule a5=1 et a48=1 pas de probleme les 2 pages ( 2 tableaux) s'impriment
si a5=0 et a48=1 la 2eme page s'imprime 2 fois

merci de ton aide

[aalex_38]

Bon alors vite fait, je dois y aller :

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
end if
 
 If Range("A48") <> "0" Then 
ActiveSheet.PageSetup.PrintArea = "$A$50:$E$" & [E84].End(xlUp).Row
End if
 
 ActiveSheet.PrintOut Copies:=1
 
End Sub

Après, c'est de l'algo et des questions de choix

[LeForestier]

Bonjour, bonjour Alex,
Je croix qu'il faut un chouilla de rectification...

Code :

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

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

Sinon il n'y aura qu'une page imprimée !
Et attention au format des cellules, il est possible que tu devras mettre 0 au lieu de "0" ou encore ""
A+

[vbanovice]

ok super ca fonctione