Microsoft 365 Contenu d'une cellule dans l'en tête & pied de page

Emile63 · 8 Janvier 2020

Bonjour à tous et bonne année.
Savez-vous s'il y a une possibilité d'afficher en entête ou pied de page le contenu d'une cellule?
Sans VBA serait l'idéale, si pas possible alors avec!
Merci d'avance pour vos propositions et bonne journée à tous.
Emile

Lolote83 · 8 Janvier 2020

Salut à tous
Oups Shuars est déjà passé par là.
Du coup je pposte quand même

VB:

Sub Entete()
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = [C9]        'Cellule C9
        .RightHeader = ""
    End With
End Sub

VB:

Sub PiedDePage()
    With ActiveSheet.PageSetup
        .LeftFooter = ""
        .CenterFooter = [C10]       'Cellule C10
        .RightFooter = ""
    End With
End Sub

@+ Lolote83

ShuarS · 8 Janvier 2020

Salut et bonne année également,
J'ai retrouvé ça comme exemple :
Pas directement, mais avec VBA :

VB:

Sub PiedDePage()
     With ActiveSheet.PageSetup
     .LeftHeader = Int(Range("A1"))
     .CenterHeader = Format(Range("A2"), "# ##0")
     End With
 End Sub

Shu

Lolote83 · 8 Janvier 2020

Salut à tous
Oups Shuars est déjà passé par là.
Du coup je pposte quand même

VB:

Sub Entete()
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = [C9]        'Cellule C9
        .RightHeader = ""
    End With
End Sub

VB:

Sub PiedDePage()
    With ActiveSheet.PageSetup
        .LeftFooter = ""
        .CenterFooter = [C10]       'Cellule C10
        .RightFooter = ""
    End With
End Sub

@+ Lolote83

Emile63 · 8 Janvier 2020

Merci à tous pour votre aide. 🙂

Microsoft 365 Contenu d'une cellule dans l'en tête & pied de page

Emile63

XLDnaute Junior

Lolote83

ShuarS

XLDnaute Occasionnel

Lolote83

XLDnaute Barbatruc

Emile63

XLDnaute Junior

Discussions similaires

Microsoft 365 Contenu d'une cellule dans l'en tête & pied de page

Emile63

XLDnaute Junior

ShuarS

XLDnaute Occasionnel

Lolote83

XLDnaute Barbatruc

Emile63

XLDnaute Junior

Discussions similaires

Privacy & Transparency

Privacy & Transparency