Insérer contenu d'une cellule dans pied de page

Résolu/Fermé

Floki72450 Messages postés 34 Date d'inscription vendredi 17 octobre 2014 Statut Membre Dernière intervention 23 février 2016 - 17 oct. 2014 à 12:05
Floki72450 Messages postés 34 Date d'inscription vendredi 17 octobre 2014 Statut Membre Dernière intervention 23 février 2016 - 17 oct. 2014 à 17:36

Bonjour,

Voila, j'ai un fichier avec deux cases titres en haut du document :
en C1 : NOM DU CHANTIER
en C3 : ADRESSE DU CHANTIER

et j'aimerai que le contenu des deux cellules soit insérer dans mon pied de page, mais tout deux à gauche, et l'un sur l'autre, de cette façon :

NOM DU CHANTIER
ADRESSE DU CHANTIER

j'ai déjà fait ce code VBA :

Sub UpdateFooter()
ActiveSheet.PageSetup.LeftFooter = Range("C1").Value
ActiveSheet.PageSetup.CenterFooter = Range("C3").Value
End Sub

Mais cela met le nom a gauche et l'adresse au centre, comment superposer ces deux contenus ?

Par avance, merci a vous tous

Cordialement

A voir également:

Excel pied de page valeur cellule
Excel cellule couleur si condition texte - Guide
Aller à la ligne dans une cellule excel - Guide
Supprimer une page word - Guide
Liste déroulante excel - Guide
Verrouiller cellule excel - Guide

2 réponses

Réponse 1 / 2

Maurice
17 oct. 2014 à 12:14

Bonjour

Modification de ta macro

Sub UpdateFooter()
ActiveSheet.PageSetup.LeftFooter = Range("C1").Value & vbLf & Range("C3").Value
End Sub

A+
Maurice

Floki72450 Messages postés 34 Date d'inscription vendredi 17 octobre 2014 Statut Membre Dernière intervention 23 février 2016
17 oct. 2014 à 13:54

Merci pour ta réponse, si je comprend bien Range veut dire ligne et vbLf précise de changer de ligne ?
Et si je souhaites maintenant surligner, ou double surligné une des valeur, C1 ou C3, comment puis-je faire ?

Merci encore

Réponse 2 / 2

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 524
17 oct. 2014 à 14:55

Bonjour,

Utilise le code de mise en forme.
Soulignement simple "&U"
Soulignement double : "&E"

Exemple pour un soulignement simple :

Sub UpdateFooter()
    ActiveSheet.PageSetup.LeftFooter = "&U" & Range("C1").Value & vbLf & Range("C3").Value
End Sub

A+

Floki72450 Messages postés 34 Date d'inscription vendredi 17 octobre 2014 Statut Membre Dernière intervention 23 février 2016
17 oct. 2014 à 15:29

Merci beaucoup, c'est beaucoup plus présentable.
Est-il possible que les macros s'exécutent automatiquement a l'ouverture d'un fichier ?
Je m'explique :
J'ai créer un fichier de base ou il y a écrit :

NOM DU CHANTIER et
DRESSE DU CHANTIER,

comme expliquer au dessus, mais lorsque je commence une nouvelle étude de chantier, j'enregistre sous pour ne pas modifier mon fichier de base, et ensuite je change le contenu des deux cellules, en y mettant par exemple

CONSTRUCTION D'UNE MAISON et
A LE MANS (Sarthe)

et j'aimerai ne pas avoir a aller exécuter la macro pour que mon pied de page change en conséquence des changements effectués, est ce possible ? Peut elle être paramétrer pour s'actualiser régulièrement, ou a un moment précis comme ouverture de fichier, aperçu avant impression ou autre ?
Sinon je le ferais manuellement mais bon, si je ne m'en rends pas compte tout de suite et que j'ai imprimer avec le mauvais pied de page, pas actualisé cela peut être gênant... gaspillage de papier...

Merci beaucoup de votre aide ! :)

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 524
17 oct. 2014 à 16:43

Voici une solution qui utilise la procédure évènementielle "Change" de la feuille.
Lorsque les cellules C1 ou C3 sont modifiées, le pied de page est automatiquement corrigé avec les nouvelles valeurs.
https://www.cjoint.com/c/DJrqQE1gfSZ

A+

Floki72450 Messages postés 34 Date d'inscription vendredi 17 octobre 2014 Statut Membre Dernière intervention 23 février 2016
17 oct. 2014 à 17:36

Un grand MERCI !

Plus besoin de lancer la macro, elle se modifie a chaque changement effectuer sur les cellules souhaitées, exactement ce que je voulais, en plein dans le mile, merci beaucoup :)

Pour ceux que cela intéressent, voici le fichier dont je parle depuis le début :
https://www.cjoint.com/c/DJrrLM3B5RI

Merci beaucoup,

A + :)

Discussions similaires

Pied de page Excel

Lien cellule dans pied de page

Suppression entête/pieds de page impossible,encadré tjr présent

Comment faire des en-têtes différent sur des pages word ?

en-tête excel: référence à une cellule qui change pour chaque page

Affichage en-tête et pied de page