VBA Définir zone d'impression de plusieurs onglets

Re : VBA Définir zone d'impression de plusieurs onglets

Bonjour,

Sur 1 ligne
Peut-être comme cela

Dim i As Byte
For i = 11 To 13: Sheets(i).PageSetup.PrintArea = "$B$9:$AO$170": Next i

Cliquez pour agrandir...

Bonne journée

Re : VBA Définir zone d'impression de plusieurs onglets

Merci pour ta réponse.
Entre temps, j'ai aussi trouvé une autre manière :

For Each m In Array("11", "12", "13")
Sheets(m).PageSetup.PrintArea = "$B$9:$AO$170"
Next m


En fait, quand je disais "en une seule ligne" c'était un peu exagéré. Mais j'ai 27 feuilles et je ne voulais pas que mon code fasse 27 lignes.

Question subsidiaire : voici mon code avec mes 27 feuilles à imprimer.

'''''Définition de la zone d'impression

For Each m In Array("11", "12", "13", "14", "15", _
"16", "17", "18", "21", "22", "23", "24", "25", _
"26", "27", "28", "29", "30", "31", "32", "33", _
"34", "35", "36", "37", "38", "89")
Sheets(m).PageSetup.PrintArea = "$B$9:$AO$170"
Next m


'''''Sélectionne les feuilles visibles

Dim ws As Worksheet
For Each ws In Worksheets
If ws.Visible = xlSheetVisible Then ws.Select False
Next ws


'''''Aperçu avant impression des feuilles sélectionnées
ActiveWindow.SelectedSheets.PrintPreview



Que dois-je ajouter pour avoir l'aperçu impression seulement pour les feuilles dont la valeur contenue dans R14<>0 ?

Re : VBA Définir zone d'impression de plusieurs onglets

Bonjour à tous

essaye cela

If Sheets(m).Range("R14") <> "" Then Sheets(m).PageSetup.PrintArea = "$B$9:$AO$170"

Cliquez pour agrandir...

Bonne journée

Re : VBA Définir zone d'impression de plusieurs onglets

Merci beaucoup,

Mais je n'arrive quand même pas à me dépatouiller

good57 à dit:

Bonjour à tous,

Comment puis-je faire pour réduire ce code VBA à une seule ligne ???

Sheets("11").PageSetup.PrintArea = "$B$9:$AO$170"
Sheets("12").PageSetup.PrintArea = "$B$9:$AO$170"
Sheets("13").PageSetup.PrintArea = "$B$9:$AO$170"


Merci !
A très vite !

Cliquez pour agrandir...

Bonjour Good57,
je suis très intéressé par ta macro qui permet de définir des zones d'impression différentes selon les onglets, est ce que cela te dérange de la poster ici même car moi aussi je dois selectionner des zones différentes mais je n'y arrive pas

bien cordialement

Patrick