[Résolu] Mise en page "globale"

[Kiriko]

Bonjour à tous !
Comment, sur un classeur complet (presque 100 onglets), appliquer la même mise en page sur l'ensemble des feuilles?
-C'est à dire orientation paysage
-Zone d'impression A1:O89
-Marges de 0,4 haut, bas, droite et gauche
- Saut de page après la ligne 40 ??
(donc 2 pages par onglet)

Besoin de Vba pour cela ?
Merci !!

 

[tototiti2008]

Re : Mise en page "globale"

Bonjour Kiriko,

Si tu sélectionnes tous les onglets de feuilles (clic sur le premier onglet, Maj+clic sur le dernier), la mise en page s'appliquera ensuite sur toutes les feuilles

 

[Kiriko]

Re : Mise en page "globale"

Bonjour et merci tototiti2008 !
Mais cela s'applique pour l'orientation et pour les marges, mais pas pour la zone d'impression et les sauts de pages !!! (grisés)...
D’où mon soucis !!

 

[tototiti2008]

Re : Mise en page "globale"

Re,

Ah, peut-être bien, je n'ai pas testé
Il ne doit rester que VBA pour la zone d'impression et les sauts de pages....

 

[Kiriko]

Re : Mise en page "globale"

VBA, ça me va aussi, mais je n'y arrive pas seul avec l'enregistreur de macro...

 

[david84]

Re : Mise en page "globale"

Bonjour tout le monde,

VBA, ça me va aussi, mais je n'y arrive pas seul avec l'enregistreur de macro...

Enregistre la procédure sur une feuille seulement. Si, comme tu l'as dit, cette procédure est exactement la même pour toutes les feuilles, il ne te restera qu'à inclure ce code dans une boucle For...Next pour traiter tous les onglets.
A+

 

[tototiti2008]

Re : Mise en page "globale"

Re,

essaye ça pour zone d'impression et saut de page

Sub Macro1()
Dim sh As Worksheet
    For Each sh In ThisWorkbook.Worksheets
    sh.PageSetup.PrintArea = "$A$1:$O$89"
    sh.HPageBreaks.Add Before:=sh.Range("A41")
    Next
End Sub

Edit : Bonjour David 🙂

 

[Kiriko]

Re : Mise en page "globale"

Bonjour, et merci david84
Merci aussi, tototiti2008, cela fonctionne parfaitement !!!
Amicalement,