En-tete personnalisé

DoubleZero

XLDnaute Barbatruc

• 20 Mars 2013

• #2

Re : En-tete personnalisé

Bonjour, pad01, le Forum,

Une façon de procéder :

Code:

Sub En_tête()
With Sheets("Feuil1")
    .PageSetup.CenterHeader = Sheets("Feuil2").Range("a1").Value & Sheets("Feuil2").Range("a2").Value
End With
End Sub

A bientôt

 

Vote positif 0 Vote négatif

P

pad01

XLDnaute Occasionnel

• 20 Mars 2013

• #3

Re : En-tete personnalisé

Bonjour Le Forum, DoubleZero
Merci DoubleZero pour le code vba. Adapté cela fonctionne bien.
A priori, il n'y a pas d'autre solution que de passer par le vba.
A+

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 20 Mars 2013

• #4

Re : En-tete personnalisé

Re-bonjour,

pad01 à dit:

...A priori, il n'y a pas d'autre solution que de passer par le vba...

Cliquez pour agrandir...

J'en ai bien peur !

A bientôt

 

Vote positif 0 Vote négatif