pied de page

[schimi]

Salut

j'ai vu sur ce site qu'il y avait moyen de personnaliser ses pied de page dans excel au moyen de macro.:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftFooter = Range('A1').Value

End Sub

Mais, je suis un peu lent et je voudrais savoir si qqn peut m'expliquer pratiquement comment on fait.

NB En réalité, je souhaite insérer dans le pied de page une référence de cellule.

Merci beaucoup Schimi

jp.schimizzi@province.luxembourg.be

 

[anuky]

Bonjour schimi,

Tu lance l'éditeur VBA avec Alt + F11 (ou outil/Macro->Visual Basic Editor)

Dans l'explorateur de projet de l'éditeur VBA tu double clic sur ThsiWorkbook et tu insert le code.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftFooter = Range('A1').Value

End Sub

Ce code permet de mettre en pied de page en bas à gauche le contenu de la cellule A1 de la feuille imprimé. Donc il faut mettre la référence de cellule dans la cellule A1. Ou si ton texte est toujours le même, tu remplace Range('A1').Value par ta référence de cellule entre guillemet (' '):

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftFooter = 'ton texte'

End Sub