en tete et pied de page systematiques sur toutes les feuilles ?

Le
jeanmarc
comment procéder afin qu'en tête et pied de page de la première feuille de
calcul soient systématiquement répétés sur toutes les autres feuilles du
fichier ? Merci
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
LSteph
Le #20242301
Bonjour,

Groupe de travail

--
lSteph

On 28 sep, 11:02, jeanmarc
comment procéder afin qu'en tête et pied de page de la première feu ille de
calcul soient systématiquement répétés sur toutes les autres feui lles du
fichier ? Merci


eneric
Le #20243491
dans une mes appli j'ai ceci
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet
For Each Sh In ActiveWindow.SelectedSheets
If Sh.Name = "Feuil1" Or Sh.Name = "Feuil2" Or Sh.Name = "Feuil3"
Then
With Sh.PageSetup
.LeftFooter = "toto"
.RightFooter = "tata"
.CenterFooter = "titi"

End With
End If
Next
End Sub

bien sur on peut ameliorer suivant le nom et le nombre de tes feuilles
comment procéder afin qu'en tête et pied de page de la première feuille de
calcul soient systématiquement répétés sur toutes les autres feuilles du
fichier ? Merci



--
eneric
eneric
Le #20243721
a mettre dans "thisworkbook"

--
eneric
eneric
Le #20243691
sinon j'ai trouvé pour toutes les "sheets"
Sub toutes_feuilles()
Dim x As Byte
For x = 1 To Sheets.Count
With Sheets(x).PageSetup
'en-tête de page
.LeftHeader = "xx"
.CenterHeader = "zz"
.RightHeader = "yy"
'pied de page
.LeftFooter = "aa"
.CenterFooter = "bb"
.RightFooter = "cc"
End With
Next x
End Sub

--
eneric
eneric
Le #20244611
pour l'en tete et aussi le nbre de sheets
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim x As Byte
For x = 1 To Sheets.Count
With Sheets(x).PageSetup
'en-tête de page
.LeftHeader = "aa"
.CenterHeader = "bb"
.RightHeader = "cc"
'pied de page
.LeftFooter = "xx"
.CenterFooter = "yy"
.RightFooter = "zz"
End With
Next x
End Sub

--
eneric
Publicité
Poster une réponse
Anonyme