Lier valeur cellule avec en tête impression

[p.pat27]

Salut a tous

Je recherche un moyen d'afficher dans l'en tête d'une impression la valeur contenue dans une cellule d'un onglet.😱

merci de votre aide

patrick

 

[JCGL]

Re : Lier valeur cellule avec en tête impression

Bonjour à tous et
Bienvenue à p.pat27 🙂,

Peux-tu essayer avec :

Sub Test()
ActiveSheet.PageSetup.CenterHeader = [A1].Value
ActiveWindow.SelectedSheets.PrintPreview
End Sub

Bien évidemment, pense à mettre quelque chose en A1...

A+

 

[p.pat27]

Re : Lier valeur cellule avec en tête impression

Re

Ca marche pas !!!

Mais je ne suis pas un crack en macro (même pas débutant) j'ai peut être oublié qqchose.

Je joins donc le petit fichier sur lequel je suis en train de tester

Merci
Patrick

 

[Cousinhub]

Re : Lier valeur cellule avec en tête impression

Bonsoir,
oui, tu as oublié de déclencher la macro fournie par JCGL :
Outils/Macros ou (Alt + F8) et cliquer sur Test puis Exécuter
Bonne découverte du monde obscur du VBA

 

[p.pat27]

Re : Lier valeur cellule avec en tête impression

Merci

Je me sens devenir moins c......!

 

[JCGL]

Re : Lier valeur cellule avec en tête impression

Re,
Salut bh*2 🙂,

Merci d'assurer le SAV 😛

A+

 

[Cousinhub]

Re : Lier valeur cellule avec en tête impression

Re-,
salut JP
vu ton voyant éteint, je me suis permis... 😱

Edit :Euh, je voulais bien sûr dire JC (Pourtant le P et le C ne sont vraiment pas côte à côte sur le clavier, donc on mettra cela sur le compte de l'émotion)

 

[JCGL]

Re : Lier valeur cellule avec en tête impression

Re,

Ah non je ne suis pas JP (arf), moi c'est JC 😛

Un coucou quand même à mon ami JP (Meuh!) ((Private Joke arf))

A++

 

[p.pat27]

Re : Lier valeur cellule avec en tête impression

Re salut tout le monde

Merci pour ces conseil, mais la macro donnée par JC ne marche pas si la cellule est sur une autre feuille.

Comment peut-on la modifier ?

PAt

 

[Cousinhub]

Re : Lier valeur cellule avec en tête impression

Bonjour,
mets ceci :

Sub Test()
ActiveSheet.PageSetup.CenterHeader = Sheets("Feuil2").[A1].Value
ActiveWindow.SelectedSheets.PrintPreview
End Sub

Feuil2 étant le nom de la feuille dont tu veux récupérer la valeur de A1

 

[p.pat27]

Re : Lier valeur cellule avec en tête impression

Super

Merci bokou