Mettre en Pied de page le résultat d'une Cellule

JCGL

XLDnaute Barbatruc

• 28 Décembre 2011

• #2

Re : Mettre en Pied de page le résultat d'une Cellule

Bonjour à tous,

Dans le ThisWorkBook :

Option Explicit

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.CenterFooter = Feuil1.Cells(3, 3)
End Sub

Cliquez pour agrandir...

A + à tous

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 28 Décembre 2011

• #3

Re : Mettre en Pied de page le résultat d'une Cellule

Bonsoir à tous


Peut aussi s'écrire ainsi

Code:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.CenterFooter = [site]
End Sub

PS: Tu peux ajouter cette ligne en début de code au cas où le nom aurait été effacé.

Code:

Feuil1.[C3].Name = "site"

 

Dernière édition: 28 Décembre 2011

Vote positif 0 Vote négatif

I

Isatessa

Guest

• 29 Décembre 2011

• #4

Re : Mettre en Pied de page le résultat d'une Cellule

Bojour à tous les deux, je viens de tester votre solution mais cela ne fonctionne pas sur mon fichier.
Cela parait pourtant super simple.
Pour info, mon fichier est protégé mais j'ai fais le test en version déprotégé. je ne pesne donc pas que ce soit la raison.

A très bientôt et merci à tous les deux pour votre rapidité de réponse.

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 29 Décembre 2011

• #5

Re : Mettre en Pied de page le résultat d'une Cellule

Bonjour à tous,

Cela fonctionne chez moi et avec ce que j'ai compris de la demande

A+ à tous

 

Pièces jointes

• Test PP Centré.xls

  29.5 KB · Affichages: 140

Vote positif 0 Vote négatif

I

Isatessa

Guest

• 2 Janvier 2012

• #6

Re : Mettre en Pied de page le résultat d'une Cellule

Merci Beaucoup effectivement cela fonctionne correctement car je n'avais pas mis la macro sur le Workbook mais sur chaque onglet et du coup cela fonctionne beaucoup mieux.
Sais-tu par hasard comment on impose la police de caractère (Calibri Normal 8 point).
Meilleurs voeux quoiqu'il en soit et merci encore

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 2 Janvier 2012

• #7

Re : Mettre en Pied de page le résultat d'une Cellule

Bonjour à tous,

Peux-tu essayer avec :

Option Explicit


Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.CenterFooter = "&""Calibri,Normal""&8" & Feuil1.Cells(3, 3)
End Sub

Cliquez pour agrandir...

Meilleurs Voeux itou

A+ à tous

 

Vote positif 0 Vote négatif