Pied de page & cellules

anita · 21 Mars 2005

Bonjour à tous.
Est-il possible par VBA de créer pour chaque onglet un pied de page personnalisé?
C'est à dire que dans le pid de page, la section de gauche récupère le contenu de la cellule A1 par exemple, que la section centale récupère en B1 et que la section de droite réupère en C1. et ainsi de suite pour chaque feuille....
J'ai essayé un mix de vba et de mise en page....gros plantage

:S
Un grand merci pour votre aide et bonne journée.

JPM · 21 Mars 2005

Bonjour Anita, le Forum,

Voila un code VBA qui pourra t'aider :

Code:

Sub PiedPagePerso()
  Dim f As Worksheet
  
  For Each f In ActiveWorkbook.Worksheets
    With f.PageSetup
      .LeftFooter = f.Range('A1')
      .CenterFooter = f.Range('B1')
      .RightFooter = f.Range('C1')
    End With
  Next
End Sub

Bonne journée

Jean-Pierre

anita · 21 Mars 2005

Merci beaucoup JPM.
En fait j'ai tellement voulu faire compliquer que ca allait de travers...Quand je vois ton code, je me dis que le mieux est l'ennemi du bien!!!! Merci de la leçon.

mike · 21 Mars 2005

Bonjour,
Pour rebondir, si l'on veut en pied de page ecrire en gras, plus gros et souligné, quelle est la syntaxe corecte?
J'ai essayé avec font.bold sans résultat
Merci.

MichelXld · 21 Mars 2005

bonjour Anita , JPM et Mike

Mike tu peux tester cette adaptation

Code:

Sub PiedPagePerso()
  Dim f As Worksheet
  
  For Each f In ActiveWorkbook.Worksheets
    With f.PageSetup
      .LeftFooter = '&''Arial,Gras''&U' & f.Range('A1')
      .CenterFooter = '&''Arial,Gras''&U' & f.Range('B1')
      .RightFooter = '&''Arial,Gras''&U' & f.Range('C1')
    End With
  Next
End Sub

bonne apres midi
MichelXld

mike · 21 Mars 2005

Merci michel, bien retenu comment se place les parametres. Et comment lui indiquer une taille? en '20' par exemple.
Bonne après-midi à toi aussi.

MichelXld · 21 Mars 2005

rebonjour

ooouuppss... j'avais oublié 'plus gros'

Code:

Sub PiedPagePerso()
  Dim f As Worksheet
  
  For Each f In ActiveWorkbook.Worksheets
    With f.PageSetup
      .LeftFooter = '&''Arial,Gras''&20&U' & f.Range('A1')
      .CenterFooter = '&''Arial,Gras''&20&U' & f.Range('B1')
      .RightFooter = '&''Arial,Gras''&20&U' & f.Range('C1')
    End With
  Next
End Sub

MichelXld

mike · 21 Mars 2005

Ok, je ne voyais pas la syntaxe comme cela :huh:
Merci encore de bien vouloir faire partager ton expertise......

Pied de page & cellules

anita

Guest

JPM

Guest

anita

Guest

mike

Guest

MichelXld

XLDnaute Barbatruc

mike

Guest

MichelXld

XLDnaute Barbatruc

mike

Guest

Discussions similaires