pied de page personnalisé + Chemin

G

Guillaumega

XLDnaute Impliqué

• 29 Décembre 2007

• #2

Re : pied de page personnalisé + Chemin

Bonsoir,

En réduisant la marge en bas au minimum, tu dois pouvoir avoir la place pour simuler un pied de page directement dans ton tableur.

Bonne soirée et bonne fêtes
Guillaumega

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 29 Décembre 2007

• #3

Re : pied de page personnalisé + Chemin

un petit essai

 

Pièces jointes

• essai.zip

  6.9 KB · Affichages: 51
• essai.zip

  6.9 KB · Affichages: 50
• essai.zip

  6.9 KB · Affichages: 50

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 29 Décembre 2007

• #4

Re : pied de page personnalisé + Chemin

il te faudra quand même l'adapter

 

Vote positif 0 Vote négatif

ninbihan

XLDnaute Impliqué

• 29 Décembre 2007

• #5

Re : pied de page personnalisé + Chemin

Bonsoir,

En complément, voici code à placer pour modifier le pied de page
(à placer dans thisworkbook)

Code:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftFooter = Range("a1").Value
End Sub

Ici la valeur de la cellule A1 se retrouve en pied de page gauche.

Bonne soirée,

Ninbihan

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 29 Décembre 2007

• #6

Re : pied de page personnalisé + Chemin

à voir egalement

 

Pièces jointes

• entete pied.zip

  7.6 KB · Affichages: 51

Vote positif 0 Vote négatif

X

Xanthar15

Guest

• 14 Août 2009

• #7

Re : pied de page personnalisé + Chemin

Bonjour

je suis intéressé à propos de la même chose (à savoir mettre dans le pied de page la valeur d'une cellule)
mais je voudrais mettre la valeur d'une cellule d'une autre page : est ce possible ? quel code mettre à la place de :

ActiveSheet.PageSetup.LeftFooter = Range("a1").Value

Merci d'avance.

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 15 Août 2009

• #8

Re : pied de page personnalisé + Chemin

Salut Xanthar15, le Forum

essai ce code

Code:

ActiveSheet.PageSetup.LeftFooter = [B]Sheets("Feuil2")[/B].Range("a10").Value

Si Feuil2 est le nom et A10, la cellule où se trouve l'info

Bonne Journée

 

Vote positif 0 Vote négatif

X

Xanthar15

Guest

• 17 Août 2009

• #9

Re : pied de page personnalisé + Chemin

merci pour ta réponse.

 

Vote positif 0 Vote négatif