Définir SIMULTANEMENT SUR PLUSIEURS FEUILLES une zone d'impression

bonjour ,

voici un exemple pour définir la plage A1:D10 comme Zone d'impression.

Sub ZoneImpression()
For Each f In Worksheets
f.Activate
ActiveSheet.PageSetup.PrintArea = "$A$1:$D$10"
Next
End Sub

isabelle

Bonjour,

Si vous sélectionnez PLUSIEURS feuilles dans un fichier,
vous ne pouvez pas aller sur Fichier / Zone d'impression /
Définir
Avez vous une solution??
Nous n'avons pas réussi non plus par le biai de VBA

Merci d'avance!

Bonjour
Avec VBA :
Sub FaisLaZone()
Dim f As Worksheet
For Each f In ThisWorkbook.Worksheets
With f.PageSetup
.PrintArea = "$A$1:$C$5"
End With
Next f
End Sub

Cordialement
Pascal

"Christophe et Julian" <anonymous@discussions.microsoft.com> a écrit dans le
message de news:8b7c01c4966b$355e5c20$a601280a@phx.gbl...
Bonjour,

Si vous sélectionnez PLUSIEURS feuilles dans un fichier,
vous ne pouvez pas aller sur Fichier / Zone d'impression /
Définir
Avez vous une solution??
Nous n'avons pas réussi non plus par le biai de VBA

Merci d'avance!

Bonjour Christophe et Julian,


Essaie ceci :

Pour lancer l'impression après avoir testé :
Modifie cette ligne de code :
ActiveWindow.SelectedSheets.PrintPreview
Par
ActiveWindow.SelectedSheets.Print
voir l'aide pour les paramètres de la méthode Print ...

'---------------------------------------------
Sub ImprimerPlusieursFeuille()

Dim Arr(), Arr1(), Elt As Variant, A As Integer
Dim NomFeuille, Sh as Worksheet
'Liste des feuilles à imprimer
Arr = Array("Feuil1", "Feuil2", "Feuil3")
'Les plages à imprimer pour chacune des feuilles
'dans le même ordre que les feuilles respectivement.
Arr1 = Array("A1:A5", "G25:H50", "K4:L10")

Application.ScreenUpdating = False
NomFeuille = ActiveSheet.Name
For Each Elt In Arr
A = A + 1
With Worksheets(Elt)
.PageSetup.PrintArea = .Range(Arr1(A - 1)).Address
.Select Replace:úlse
End With
Next
ActiveWindow.SelectedSheets.PrintPreview
For Each sh In ActiveWindow.SelectedSheets
sh.PageSetup.PrintArea = ""
Next
Worksheets(NomFeuille).Select
End Sub
'---------------------------------------------


Salutations!


"Christophe et Julian" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:8b7c01c4966b$355e5c20$a601280a@phx.gbl...
Bonjour,

Si vous sélectionnez PLUSIEURS feuilles dans un fichier,
vous ne pouvez pas aller sur Fichier / Zone d'impression /
Définir
Avez vous une solution??
Nous n'avons pas réussi non plus par le biai de VBA

Merci d'avance!