Entête et pied de pages

[ortense90]

Est il possible de retrouver l'entête de page dans une cellule de ma feuille de calcul ?

 

[jeanpierre]

Re : Entête et pied de pages

Bonjour ortense 90

En-tête = BONJOUR

en A1 = En-tête

A voir...

Bon après-midi...

Jean-Pierre

 

[Tibo]

Re : Entête et pied de pages

Bonjour ortense, salut Jean-Pierre,

Une solution similaire :

=SI(A1<>"Bonjour"; Lien supprimé ;"Bienvenue")

@+

 

[ortense90]

Re : Entête et pied de pages

Bonjour Jean-Pierre
Je ne sais pas si je suis vraiment ou archi NUL mais j'ai recherché ta solution et je n'ai pas de formule qui reprenne le terme "en-tête". Peux tu m'éclairer ?
Merci et bonne journée.
Ortense

 

[ortense90]

Re : Entête et pied de pages

envoyé 2X.....

 

[jeanpierre]

Re : Entête et pied de pages

Bonjour Ortense, Tibo, le forum,

Désolé, mais c'était une boutade eu égard à ton premier post...(sans Bonjour, ni merci)

Sont comme cela ici....

Vois le fichier joint.

A mettre dans ThisWorkbook (pour accéder : Alt F11, et dans Projet - VBA Project, tu ouvres par la petite croix ton classeur et tu colles ce code dans la fenêtre à droite.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With Sheets(&quot;Feuil1&quot😉 ( "Feuil1" ) sans les espaces
.Range(&quot;A1&quot😉 = .PageSetup.CenterHeader ( "A1" )
End With
End Sub

'LeftHeader pour gauche
'RightHeader pour droite

Bonne journée.

Jean-Pierre

Mise à jour de la cellule après un aperçu.