Entête et pied de page

Le
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
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #1282433
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


Robert
Le #1239712
Bonjour,
Avez-vous ça mais sans macro. Merci

"isabelle" 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




isabelle
Le #1279192
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" 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






Stephane
Le #1279134
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"
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" 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








sabatier
Le #1279133
bonjour sréphane
je comprends pas trop ton souci : si tu changes la valeur de A1, ton
en-tête ou ton pied de page changera bien lui aussi à chaque impression,
non?
ou bien, je n'ai rien compris, une fois de plus...comme dirait
jacquouille, je dois recevoir ces messages zippés...
jps

Stephane a écrit:
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"

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" 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













isabelle
Le #1279132
hé hé, moi je trouve ta compréhention logique mon ange, parcontre je ne
comprend pas le raisonnement de Stéphane. on saura bientôt surement ;-)
isabelle


bonjour sréphane
je comprends pas trop ton souci : si tu changes la valeur de A1, ton
en-tête ou ton pied de page changera bien lui aussi à chaque impression,
non?
ou bien, je n'ai rien compris, une fois de plus...comme dirait
jacquouille, je dois recevoir ces messages zippés...
jps

Stephane a écrit:
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"

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" 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















sabatier
Le #1279129
bonjour mon ange
tiens, tu tombes à pic ; j'ai rencontré un ami québécois qui me disait
que dans votre pays, il y avait deux saisons : l'hiver passé et l'hiver
prochain.....
jps (qui file aux abris)

isabelle a écrit:
hé hé, moi je trouve ta compréhention logique mon ange, parcontre je ne
comprend pas le raisonnement de Stéphane. on saura bientôt surement ;-)
isabelle


bonjour sréphane
je comprends pas trop ton souci : si tu changes la valeur de A1, ton
en-tête ou ton pied de page changera bien lui aussi à chaque impression,
non?
ou bien, je n'ai rien compris, une fois de plus...comme dirait
jacquouille, je dois recevoir ces messages zippés...
jps

Stephane a écrit:

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"


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" 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
















Clément Marcotte
Le #1275833
que dans votre pays, il y avait deux saisons : l'hiver passé et
l'hiver

prochain.....


Des fois, j'ai l'impression qu'il est plus dans le vrai que l'on
pourrait croire...

Tiens, pour deux autres "vérités québécoises", signées Yvon Deschamps.

"Le vrai québécois veut un Québec indépendant dans un Canada fort et
uni"

"Le vrai québécois est un communiste de coeur, un socialiste d'esprit
et un capitaliste de poche."

Philippe.R
Le #1275829
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"
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"
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" 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












sabatier
Le #1275819
:-))))))
jps

Clément Marcotte a écrit:
que dans votre pays, il y avait deux saisons : l'hiver passé et


l'hiver

prochain.....



Des fois, j'ai l'impression qu'il est plus dans le vrai que l'on
pourrait croire...

Tiens, pour deux autres "vérités québécoises", signées Yvon Deschamps.

"Le vrai québécois veut un Québec indépendant dans un Canada fort et
uni"

"Le vrai québécois est un communiste de coeur, un socialiste d'esprit
et un capitaliste de poche."






Publicité
Poster une réponse
Anonyme