[XL-2002] en-tête et pieds de page [Résolu]

[Romain3]

Bonjour

comment peut-on copier le contenu d'un en-tête et ou d'un pieds de page d'une feuille vers une autre au sein d'un même classeur ?
(je viens de faire une recherche sur ce forum, 6 articles sur les en-tête et pieds de page , mais pas de réponse à ma question)

[jfontaine]

Bonjour,

Cette macro copie les en-têtes et pieds de page de la feuille active sur les autres feuilles du classeur

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub CopieEnTetePiedsPage()
Dim shSource As Worksheet
Dim shCible As Worksheet
 
Set shSource = ActiveSheet
 
For Each shCible In ActiveWorkbook.Worksheets
 
    If shCible.Name <> shSource.Name Then
 
        shCible.PageSetup.LeftHeader = shSource.PageSetup.LeftHeader
        shCible.PageSetup.CenterHeader = shSource.PageSetup.CenterHeader
        shCible.PageSetup.RightHeader = shSource.PageSetup.RightHeader
        shCible.PageSetup.LeftFooter = shSource.PageSetup.LeftFooter
        shCible.PageSetup.CenterFooter = shSource.PageSetup.CenterFooter
        shCible.PageSetup.RightFooter = shSource.PageSetup.RightFooter
 
 
    End If
 
Next
 
End Sub

[Romain3]

Bonjour et merci pour la réponse
en fait j'ai trouvé une autre réponse sur un autre forum.

Répéter les en-tête et pied de page sur plusieurs onglets

Sur l'onglet ou la mise en page est bonne,
Menu -> Fichier -> Mise en Page puis validation par OK
Ensuite sur les autres onglets, utilisation de la touche F4
ATTENTION ! Cela récupère toute la mise en page

élégant, non ?

[jfontaine]

Je vais garder cela en mémoire car je ne connaissais pas