imprimer pages avec condition

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:

---

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

Citation:

---

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 ?

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

Bon alors vite fait, je dois y aller :

Code:

---

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

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

Code:

---

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+

:ccool: ok super ca fonctione