Pied de page & cellules

[anita]

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]

Bonjour Anita, le Forum,

Voila un code VBA qui pourra t'aider :

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]

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]

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]

bonjour Anita , JPM et Mike

Mike tu peux tester cette adaptation

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]

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]

rebonjour


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

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]

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