Entête et pied de page

isabelle

10/04/2004 à 16:42

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

11/04/2004 à 11:26

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

isabelle

12/04/2004 à 01:11

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

Stephane

12/04/2004 à 20:55

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

sabatier

12/04/2004 à 21:06

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

isabelle

12/04/2004 à 21:15

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

sabatier

12/04/2004 à 21:27

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

Clément Marcotte

12/04/2004 à 23:13

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

12/04/2004 à 23:26

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

sabatier

13/04/2004 à 00:03

:-))))))
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."

Entête et pied de page

10 réponses

Veuillez sélectionner un problème