Répéter en-tête pour chaque onglet

Bonjour Nadyajah,

Copie ceci dans le ThisWorkbook de ton classeur :

L'information de J2 va apparaître dans le coin supérieur gauche
modifie .LeftHeader pour CenterHeader ou RightHeader pour
afficher l'information ailleurs dans l'en-tête.


'--------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)

For Each Sh In ActiveWindow.SelectedSheets
With Sh
With .PageSetup
.LeftHeader = Sh.Range("J2").Value
End With
End With
Next

End Sub
'--------------------------


Salutations!



"Nadyajah" <Nadyajah@discussions.microsoft.com> a écrit dans le message de news:
DA04D0CA-863D-4707-A28F-2C5009855908@microsoft.com...
Bonjour,

Je souhaiterais répéter l'information insérer en en-tête pour chaque onglet
de mon classeur excel. Cependant, le nb d'onglets peut varier. De plus, en
en-tête, il doit afficher la valeur de la cellule J2 (qui est différent pour
chaque onglet bien sûr).
Onglet "1" - J2 : Salon Alpha
Onglet "2" - J2 : Salon Beta
.....

J'ai déclaré dans ma macro :
nom_salon = Range("J2").Value

et dans la mise en page
.LeftHeader = & nom_salon &

Par contre, comment lui dire :
"Pour chaque onglet, insère en en-tête la valeur de la cellule J2"

Merci d'avance.

Nadyajah