Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1469 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBA] Pied de page en lien avec une cellule [Résolu]

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[VBA] Pied de page en lien avec une cellule [Résolu]

n°2175880
benoug
Posté le 15-02-2013 à 10:55:02  profilanswer
 

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


Message édité par benoug le 15-02-2013 à 12:41:37
mood
Publicité
Posté le 15-02-2013 à 10:55:02  profilanswer
 

n°2175883
Marc L
Posté le 15-02-2013 à 11:01:33  profilanswer
 

 
            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 …
 

n°2175886
benoug
Posté le 15-02-2013 à 11:09:35  profilanswer
 

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

n°2175891
Marc L
Posté le 15-02-2013 à 11:18:05  profilanswer
 

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

n°2175892
benoug
Posté le 15-02-2013 à 11:19:37  profilanswer
 

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

n°2175896
Marc L
Posté le 15-02-2013 à 11:23:29  profilanswer
 

 
            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 …
 

n°2175905
benoug
Posté le 15-02-2013 à 11:33:35  profilanswer
 

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 ?

n°2175911
Marc L
Posté le 15-02-2013 à 11:47:31  profilanswer
 

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

Code :
  1.     ActiveSheet.PageSetup.LeftFooter = "&16" & Sheets(1).[E1]


 

n°2175912
benoug
Posté le 15-02-2013 à 12:01:10  profilanswer
 

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


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBA] Pied de page en lien avec une cellule [Résolu]

 

Sujets relatifs
Afficher des données sur ma page d'accueil JSPAide: Mise en Page "header" et redimensionnement
[VBA] activer feuille avec variable dans le nomVBA 2003 TCD : faire des regroupement de valeurs de champ automatique
Débutant en VBA[VB/VBA/VBS] Boucle d'une boucle
Utiliser librairies R.euters E.ikon sur Excel VBAVBA - Spline
[RESOLU] [VBA] Créer un onglet pour chaque ligne répondant à 1 critère 
Plus de sujets relatifs à : [VBA] Pied de page en lien avec une cellule [Résolu]


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR