XL 2013 Formule pour en-tete du classeur

sousou

XLDnaute Barbatruc

• 13 Novembre 2019

• #2

bonjour
Si tu parles de l'entête d'impression d'une feuille?, quelque-chose comme ceci devrait aller (feuille active)
Sub entete()
With ActiveSheet.PageSetup
.RightHeader = Format(.Parent.Range("b1"), "dddd mmmm yyyy")
.CenterHeader = .Parent.Range("b2") & " " & .Parent.Range("b3")
End With
ActiveSheet.PrintPreview
End Sub

 

Vote positif 0 Vote négatif

S

Souba

XLDnaute Nouveau

• 13 Novembre 2019

• #3

Bonjour Sousou,

Merci de ton temps à me consacrer

effectivement ce code fonctionne mais je voudrais que cela apparaisse sur l'ensemble de mes pages a imprimer.
de la feuille 1 à la feuille 7 si j'ai 7 onglets.
Une idée car je sèche
Merci d'avance

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 13 Novembre 2019

• #4

RE
Comme ceci : prévisualisation de toutes les pages si elles contiennent quelques choses
Sub entete()
For Each f In Sheets
With f.PageSetup
.RightHeader = Format(.Parent.Range("b1"), "dddd mmmm yyyy")
.CenterHeader = .Parent.Range("b2") & " " & .Parent.Range("b3")

.Parent.PrintPreview
End With
Next

End Sub

 

Vote positif 0 Vote négatif

S

Souba

XLDnaute Nouveau

• 13 Novembre 2019

• #5

Re ,

C'est ce genre de code effectivement mais, dis moi si j'abuse, je voudrais que uniquement les données du premier onglet apparaissent dans les entêtes de toutes les pages du classeur.

Merci a toi et de ton temps

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 13 Novembre 2019

• #6

Effectivement,
corrige comme ceci:
Sub entete()
With Sheets(1)
droite = Format(.Range("b1"), "dddd mmmm yyyy")
centre = .Range("b2") & " " & .Range("b3")
End With
For Each f In Sheets
With f.PageSetup
.RightHeader = droite
.CenterHeader = centre

.Parent.PrintPreview
End With
Next

End Sub

 

Vote positif 0 Vote négatif

S

Souba

XLDnaute Nouveau

• 14 Novembre 2019

• #7

Merci Sousou,

Ca fonctionne nickel je dois maintenant modifier mon texte mais je vais essayer de me debrouiller seul.
Merci encore

 

Vote positif 0 Vote négatif