Définir SIMULTANEMENT SUR PLUSIEURS FEUILLES une zone d'impression
3 réponses
Christophe et Julian
Bonjour,
Si vous s=E9lectionnez PLUSIEURS feuilles dans un fichier,=20
vous ne pouvez pas aller sur Fichier / Zone d'impression /=20
D=E9finir
Avez vous une solution??
Nous n'avons pas r=E9ussi non plus par le biai de VBA
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
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 ,
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
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!
papou
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" a écrit dans le message de news:8b7c01c4966b$355e5c20$ 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
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" a écrit dans le message de news:8b7c01c4966b$355e5c20$ 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!
michdenis
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" a écrit dans le message de news:8b7c01c4966b$355e5c20$ 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
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" a écrit dans le message de news:8b7c01c4966b$355e5c20$ 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