Impression contenu d'une cellule en entête de page

[ghaisse]

Bonjour à tous,
Voici le problème pour lequel je vous demande de bien vouloir m'aider :

J'ai de gros volumes d'impression d'étiquettes code-barres à faire sur des planches de 24 étiquettes au format A4.

Pour pouvoir identifier rapidement mes planches d'étiquettes imprimées, je souhaiterais qu'apparaissent en entête de page, le contenu d'une cellule A1 qui reprend le premier et le dernier n° du code-barres de ma série de planches d'étiquettes.

Ce que je ne sais pas faire, c'est intégrer le contenu de ma cellule A1 dans l'entête de mes planches d'étiquettes.

 

[JCGL]

Re : Impression contenu d'une cellule en entête de page

Bonjour à tous,

Peux-tu essayer :

  Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.CenterHeader = Range("A1").Text
End Sub

A+ à tous

Edition :

La ligne 1 est masquée
Faire un aperçu ou une impression pour vérifier (Before_Print)

 

[ghaisse]

Re : Impression contenu d'une cellule en entête de page

Bonjour JCGL,
Merci pour ta solution qui fonctionne avec le fichier que tu as joint comme exemple, mais que je n'arrive pas à mettre en œuvre dans mon fichier

J'ai ajouté un module dans lequel j'ai copié le code, mais ça ne marche pas.

Que dois-je faire, stp ?

 

[JCGL]

Re : Impression contenu d'une cellule en entête de page

Bonjour à tous,

Pas dans un module 🙁

Ouvre le VBE (Alt F11) et regarde dans le ThisWorkBook : c'est là qu'il faut mettre le bout de code qui se lance avant l'impression ou l'aperçu

A + à tous

 

[ghaisse]

Re : Impression contenu d'une cellule en entête de page

Ah oui, ça marche mieux comme ça !
Je te remercie pour ton aide.

Bien cordialement.

Ghaisse