Bonjour à tous,
 
Après avoir lu plusieurs sujets je bloque sur mon code VBA.
J'aimerais que mon pied de page soit relié à une cellule dont le contenu peut changer car elle comporte une liste.
 
Explications : Dans la cellule E1 j'ai une liste déroulante avec plusieurs noms. Je voudrais que mon pied de page soit relié à cette cellule et que lorsque je change le nom dans la liste et que je relance la macro le pied de page change.
Et également si c'est possible que le pied de page ne soit pas actif sur la première page.
 
Voici le code que j'ai mais il ne fonctionne pas :
 
Sub PiedPageAuto()
With ActiveSheet.PageSetup
    .LeftFooter = Sheets(1).Range("E1" )
    .LeftFooter = "&16&"
End With
End Sub
 
 
Pouvez-vous m'aider svp, je pense qu'il ne manque pas grand chose
 
Merci
benoug

 
            Bonjour,   qu'est-ce qui ne fonctionne pas, y-a-t-il un message d'erreur ou serait-ce plutôt un problème de conception ? …
 
            … du genre .LeftFooter en double ‼
 
            Pour la première page, il faut l'imprimer seule sans définir de pied de page
            puis relancer l'impression avec un pied de page à partir de la seconde …
 

Bonjour MArc,
 
JE pense que c'est un problème de conception il n'y en effet pas de message d'erreur mais le pied de page ne s'affiche pas bien.
Quand je change le nom de ma liste déroulante en E1 et que je relance la macro ça ne fonctionne pas et le pied de page ne change pas.
 
Pouvez m'aider ?
Je ne maitrise pas trop le VBA.
 
Merci
benoug

 
            Et la seconde ligne  .LeftFooter  ?   A quoi sert-elle ?   (à part d'annuler le lien avec la cellule !)  
 

C'est pour mettre la police de caractère en 16

 
            Doit se faire directement dans la définition du pied de page, pas besoin de VBA !
 
            Donc pour le code, cette seconde ligne ne sert à rien, la mettre en commentaire ou la supprimer …
 

Merci mon code fonctionne désormais.
Mais j'aimerais intégrer la taille de la police dedans car il faut que je le change à la main dans la mise ne page à chaque fois.
Est ce possible ?

 
           Effectivement, définir le pied de page en VBA annule la taille de la police paramétrée auparavant …
 

Yes super ! ça fonctionne parfaitement.
Merci pour votre aide.