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

eastwick

XLDnaute Impliqué
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.
 

Pièces jointes

  • entête dans cellule.xlsx
    11.1 KB · Affichages: 3

eastwick

XLDnaute Impliqué
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

XLDnaute Barbatruc
Bonjour eastwick, sylvanu, le forum,

Je ne comprends pas trop car c'est vraiment évident :
VB:
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+
 

Pièces jointes

  • entête dans cellule(1).xlsm
    17.5 KB · Affichages: 3

eastwick

XLDnaute Impliqué
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
 
Dernière édition:

job75

XLDnaute Barbatruc
Fichier (2) :
VB:
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
 

Pièces jointes

  • entête dans cellule(2).xlsm
    17.6 KB · Affichages: 2

Discussions similaires

Réponses
19
Affichages
509
Réponses
4
Affichages
62

Statistiques des forums

Discussions
286 624
Messages
1 877 554
Membres
160 771
dernier inscrit
Tekuni
Haut Bas