pied de page perso suivant contenu d'une cellule

[vincent50]

bonjour, j'aimerais retrouver le contenu d'une cellule precise (ex feuil1 A1) dans le pied de page personalisé de toutes mes feuilles (onglet mise en page).
merci de votre aide
vincent

 

[libellule85]

Re : pied de page perso suivant contenu d'une cellule

Bonjour Vincent50,

Fait une rechercher sur le site, il y a plein de fil qui ont déjà traité du sujet...
pour le pied de page :

 .PageSetup.CenterFooter = blablabla

Bonne journée

 

[vincent50]

Re : pied de page perso suivant contenu d'une cellule

merci de ta reponse, mais je souhaite que le contenu de ma cellule s'affiche dans tous mes pied de page automatiquement par l'intermediaire d'une macro.
quelque chose du style "PageSetup.CenterFooter =feuil1 cellule a1"

 

[Dull]

Re : pied de page perso suivant contenu d'une cellule

Salut vincent 50, Libellule85, le Forum

Peut être quelque chose comme ça

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
ActiveSheet.PageSetup.CenterFooter = Sheets("Feuil1").Range("A1")
End Sub

dans le Module ThisWorkbook

Bonne Journée

 

[vincent50]

Re : pied de page perso suivant contenu d'une cellule

merci, c'est presque ca sauf que je souhaite que la mise en page soit faite en même temps sur toutes les pages du classeur

 

[DoubleZero]

Re : pied de page perso suivant contenu d'une cellule

Bonjour, le Fil, le Forum,

A tester :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet
For Each Sh In Worksheets
Sh.PageSetup.CenterFooter = Sheets("Feuil1").[A1]
Next
End Sub

comme le précise Dull 🙂, dans le Module ThisWorkbook.

A bientôt.

 

[vincent50]

Re : pied de page perso suivant contenu d'une cellule

merci, c'est juste ce que je cherché.