Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Entête et pied de page

Entête et pied de page

12 réponses
Avatar
Stephane
Bonjour,

Est il possible de placer dans l'entête ou le pied de page le contenu d'une
cellule ?

Si oui comment ?

Merci

Stephane
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Stephane
C'est tout bon,

c'est moi je devais être fatigué ce soir là

merci encore

Stephane


"Philippe.R" a écrit dans le message de news:

Bonsoir Stéphane,

Si tu ne veux que le contenu de A1, tu peux épurer ainsi :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftHeader =[A1]
End Sub

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Stephane" a écrit dans le message de
news:

Merci, mais cela fonctionne "trop bien" car je voudrais que le contenu
du


pied de page change à chaque impression alors que dans la macro donnée
c'est


placé comme une constante

A plus


"isabelle" a écrit dans le message de
news:



non malheureusement ça n'existe pas, en tout cas pas sur xl2002 et
version inférieur.

isabelle


Bonjour,
Avez-vous ça mais sans macro. Merci

"isabelle" a écrit dans le message de
news:
bonjour Stephane,

c'est à copier sur la page code de ThisWorkbook,

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftHeader = "La valeur est : " &
Range("A1").Value
End Sub

'.CenterHeader
'.RightHeader
'.LeftFooter
'.CenterFooter
'.RightFooter

si tu veux que cette macro ne s'applique qu'à une seule feuille du
classeur, il faut ajouter un test.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "zaza" Then _
ActiveSheet.PageSetup.LeftHeader = "La valeur est : " &
Range("A1").Value
End Sub

isabelle


Bonjour,

Est il possible de placer dans l'entête ou le pied de page le
contenu




d'une
cellule ?

Si oui comment ?

Merci

Stephane
















Avatar
Philippe.R
Bonjour Stephane,
C'est Jean Paul qui va être content de recevoir enfin quelque merci !
Pour ce qui me concerne, saches que c'était avec plaisir !
;o)))
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"Stephane" a écrit dans le message de news:%
C'est tout bon,

c'est moi je devais être fatigué ce soir là

merci encore

Stephane


"Philippe.R" a écrit dans le message de news:

Bonsoir Stéphane,

Si tu ne veux que le contenu de A1, tu peux épurer ainsi :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftHeader =[A1]
End Sub

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Stephane" a écrit dans le message de
news:

Merci, mais cela fonctionne "trop bien" car je voudrais que le contenu
du


pied de page change à chaque impression alors que dans la macro donnée
c'est


placé comme une constante

A plus


"isabelle" a écrit dans le message de
news:



non malheureusement ça n'existe pas, en tout cas pas sur xl2002 et
version inférieur.

isabelle


Bonjour,
Avez-vous ça mais sans macro. Merci

"isabelle" a écrit dans le message de
news:
bonjour Stephane,

c'est à copier sur la page code de ThisWorkbook,

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftHeader = "La valeur est : " &
Range("A1").Value
End Sub

'.CenterHeader
'.RightHeader
'.LeftFooter
'.CenterFooter
'.RightFooter

si tu veux que cette macro ne s'applique qu'à une seule feuille du
classeur, il faut ajouter un test.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "zaza" Then _
ActiveSheet.PageSetup.LeftHeader = "La valeur est : " &
Range("A1").Value
End Sub

isabelle


Bonjour,

Est il possible de placer dans l'entête ou le pied de page le
contenu




d'une
cellule ?

Si oui comment ?

Merci

Stephane




















1 2