Formule en en-tête

bonjour Roshni,

il faut coller cette macro sur la page ThisWorkBook de ton classeur,

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "fichierx" Then
With ActiveSheet.PageSetup
.LeftHeader = Sheets("fichierx").Range("C4")
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
End With
End If
End Sub

isabelle

Bonjour,

D'abord, mes excuses si cette question a déjà été posée mais la fonction
"recherche" ne marche pas.

Est-il possible d'afficher la valeur d'une cellule spécifique dans
l'en-tête? J'ai essayé avec ='fichierx'!C4 mais ça ne marche pas :(

Si quelqu'un veut bien m'aider...svp!
Roshni

Salut,

Sub EntetePage()
With ActiveSheet.PageSetup
.CenterHeader = Range("C1").Value
End With
End sub

Si tu saisie une valeur en C1, celle-ci se retrouvera dans ton entête.

@+ Lolote

"rm81" <rm81@discussions.microsoft.com> a écrit dans le message de news:
E6AD0ED0-F1A6-4456-936B-FC64AE9839E5@microsoft.com...

Bonjour,

D'abord, mes excuses si cette question a déjà été posée mais la fonction
"recherche" ne marche pas.

Est-il possible d'afficher la valeur d'une cellule spécifique dans
l'en-tête? J'ai essayé avec ='fichierx'!C4 mais ça ne marche pas :(

Si quelqu'un veut bien m'aider...svp!
Roshni