Pied de page incluant le contenu d'une cellule

Question

Comment faire pour mettre en pied de page, le contenu d'une cellule d'une feuille de classeur actuellement ouvert ? Est-ce possible ? Merci de votre aide...

Nathalie Charette · Answer

Bonjour, essaie d'adapter ce code pris sur un autre forum.

Sub entete_before_print()
On Error Resume Next
Application.ScreenUpdating = False
Dim Osheet As Object, Startsheet As Object, StartRange As Object
Dim myuser As String
Dim HautGauche As String, Haumtilieu As String, HautDroit As String
Dim BasGauche, Basmilieu, BasDroit, Default
myuser = Application.UserName
nbonglets = ActiveWorkbook.Sheets.Count
Set Startsheet = ActiveSheet
SetStartRange = Selection
messagegauche = "Quel titre en haut à gauche ?"
Titre = "Haut Gauche"
Default = "Ceci est le titre"
HautGauche = InputBox(messagegauche, Titre, Default, 450, 450)
If HautGauche = "" Then Exit Sub
On Error Resume Next
For Each Osheet In ActiveWorkbook.Worksheets
Osheet.Activate
Dim nomcomplet, mystr
nomcomplet = ActiveWorkbook.FullName
ActiveSheet.PageSetup.LeftHeader = nomcomplet
mydate = Date
mydate = Format(mydate, "dddd dd / mmm / yyyy")
'-------------
ActiveSheet.PageSetup.LeftHeader = HautGauche
'-------------
' ou bien en mettant un format à l'entête gauche
'
' ActiveSheet.PageSetup.LeftHeader = "&""Arial,Gras""&14" & UCase(Range("H1").Value) & _
' " : ----> " & UCase(Range("H2").Value) & " / " & UCase(Range("H3").Value)
'
'-----------
ActiveSheet.PageSetup.CenterHeader = nomcomplet
ActiveSheet.PageSetup.RightHeader = Format(Date, "dddd dd / mm / yyyy")
ActiveSheet.PageSetup.CenterFooter = myuser 'Ici le Pied de page Central
Range("A1").Select
Next Osheet
Application.ScreenUpdating = True
Startsheet.Select
End Sub

Sinon, en décortiquant ce sujet, le code de celui qui a posé le problème fonctionne quand il renseigne bien les dossiers (ou cellules) où se trouvent les entetes et pieds. https://forum.excel-pratique.com/excel/macro-pour-ajouter-supprimer-entete-et-pied-de-page-82546