Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Mise en page

Mise en page

4 réponses
Avatar
eric
Bonjour,
Mon classeur contient une quarantaine de feuilles
Comment ajouter l'entete de page =E0 l'interieur du For each sans faire
40 fois :
Sheets("200").Select
Sheets("200").PageSetup.CenterHeader =3D "&""Arial,Gras""&14LISTE DES
FORMATIONS DU GROUPE 200 : Technologies industrielles fondamentales"
Sheets("201").Select
etc...

For Each sht In ActiveWorkbook.Sheets
sht.PageSetup.PrintGridlines =3D True
sht.PageSetup.Orientation =3D xlLandscape
sht.PageSetup.Zoom =3D False
sht.PageSetup.FitToPagesWide =3D 1
sht.PageSetup.FitToPagesTall =3D 1
sht.PageSetup.CenterFooter =3D "&""Arial,Gras""DOCUMENT DE TRAVAIL" &
Chr(10) & "26 avril 2006"
Next sht

Merci d'avance
Eric
Signaler un problème avec ce contenu

4 réponses

Supprimer
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
Avatar
Gros Minet
Bonjour !

Je ne connais pas les macros, mais pourquoi une macro ? Si tu veux faire la
même mise en page sur tes 40 feuilles en même temps, il suffit de les
sélectionner toutes (groupe de travail) puis tu fais Fichier / Mise en page
(ça ne marche pas à partir de l'aperçu) et tu demandes tout ce que tu veux.

Voilà. A moins que tu veuilles inclure la mise en page dans un autre code,
la macro est inutile. Sinon, je laisse la parole aux experts :-)

Cordialement.

Gros Minet.

"eric" a écrit dans le message de news:

Bonjour,
Mon classeur contient une quarantaine de feuilles
Comment ajouter l'entete de page à l'interieur du For each sans faire
40 fois :
Sheets("200").Select
Sheets("200").PageSetup.CenterHeader = "&""Arial,Gras""&14LISTE DES
FORMATIONS DU GROUPE 200 : Technologies industrielles fondamentales"
Sheets("201").Select
etc...

For Each sht In ActiveWorkbook.Sheets
sht.PageSetup.PrintGridlines = True
sht.PageSetup.Orientation = xlLandscape
sht.PageSetup.Zoom = False
sht.PageSetup.FitToPagesWide = 1
sht.PageSetup.FitToPagesTall = 1
sht.PageSetup.CenterFooter = "&""Arial,Gras""DOCUMENT DE TRAVAIL" &
Chr(10) & "26 avril 2006"
Next sht

Merci d'avance
Eric
Avatar
eric
Le pied de page est le même pour toutes les feuilles, mais pas
l'entete...
Avatar
Ardus Petus
Bonsoir Eric,

For Each sht In ActiveWorkbook.Sheets
sht.PageSetup.PrintGridlines = True
sht.PageSetup.Orientation = xlLandscape
sht.PageSetup.Zoom = False
sht.PageSetup.FitToPagesWide = 1
sht.PageSetup.FitToPagesTall = 1
sht.PageSetup.CenterHeader = "&""Arial,Gras""&14" & _
"LISTE DES FORMATIONS DU GROUPE 200 : " & _
"Technologies industrielles fondamentales"
sht.PageSetup.CenterFooter = "&""Arial,Gras""DOCUMENT DE TRAVAIL" & _
Chr(10) & "26 avril 2006"
Next sht

Cordialement,
--
AP

"eric" a écrit dans le message de
news:
Bonjour,
Mon classeur contient une quarantaine de feuilles
Comment ajouter l'entete de page à l'interieur du For each sans faire
40 fois :
Sheets("200").Select
Sheets("200").PageSetup.CenterHeader = "&""Arial,Gras""&14LISTE DES
FORMATIONS DU GROUPE 200 : Technologies industrielles fondamentales"
Sheets("201").Select
etc...

For Each sht In ActiveWorkbook.Sheets
sht.PageSetup.PrintGridlines = True
sht.PageSetup.Orientation = xlLandscape
sht.PageSetup.Zoom = False
sht.PageSetup.FitToPagesWide = 1
sht.PageSetup.FitToPagesTall = 1
sht.PageSetup.CenterFooter = "&""Arial,Gras""DOCUMENT DE TRAVAIL" &
Chr(10) & "26 avril 2006"
Next sht

Merci d'avance
Eric
Avatar
eric
Merci, mais c'est pas ça que je voulais...
Je ne sais pas comment qu'onappelle cela, une variable ou un tableau.
De telle sorte que j'aurais à l'intérieur du For Each :
Sheets("200").PageSetup.CenterHeader = "&""Arial,Gras""&14LISTE DES
FORMATIONS DU GROUPE & tab(i)
En ayant fait auparavant :
tab(1) = activité1
tab(2) = activité2
etc...
Je sais que c'est quelque chose de ce genre...