XL 2016 en-tête référencée dans une cellule

[eastwick]

Bonjour à toutes et tous,
Est-il possible de générer une en-tête (MMMMM) depuis une cellule ici A1 ?
Donc plus grossièrement on tape MMMMM en A1 onglet 01 et ça génère MMMMM en en-tête onglet 02...
Merci bien.

 

[sylvanu]

Bonjour eastwick,
Question stupide : Qu'appelez vous "en-tête onglet 02" ?
"onglet 2" je comprends c'est la seconde feuille, mais en-tête de la feuille ?

 

[eastwick]

Bonjour sylvanu, allez voir dans la mise en page de l'onglet 02. L'en-tête MMMMM qui s'y trouve, et bien, j'aimerais qu'elle soit le fruit de la saisie dans la cellule A1 onglet 01.
Ai-je été assez clair ? Je pense que ça relève du VBA. J'ai bien trouvé un truc là-dessus en 2009 mais pas applicable à mon cas.

 

[job75]

Bonjour eastwick, sylvanu, le forum,

Je ne comprends pas trop car c'est vraiment évident :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing Then _
    With Sheets("02"): .PageSetup.RightHeader = [A1].Text: .Activate: End With
End Sub

A+

 

[eastwick]

Bonjour job75, nice job (75) !!!
Et pour 2 en-têtes SVP ? une centrée, une à droite (onglet 02) qui seraient référencée en A1 et A2 de l'onglet 01 ? D'autre part, puis-je renommer 02 par son nom d'origine Feuil2 mais la syntaxe change...
Encore merci.
P.S. : évident pur celui qui rédige le VBA et hélas, ce n'est pas mon cas

 

[job75]

Fichier (2) :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1:A2]) Is Nothing Then Exit Sub
With Feuil2
    .PageSetup.RightHeader = [A1].Text
    .PageSetup.CenterHeader = [A2].Text
    .Activate
End With
End Sub

 

[eastwick]

Merci beaucoup