Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

eastwick

XLDnaute Accro
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: 9

eastwick

XLDnaute Accro
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: 4

eastwick

XLDnaute Accro
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: 3

Discussions similaires

  • Question
Microsoft 365 TEXTSPLIT
Réponses
4
Affichages
554
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…