Réf à une cellule dans En-Tête de feuille

chris

XLDnaute Barbatruc

• 18 Août 2016

• #2

Bonjour

Cela marche chez moi mais note que ce n'est pas visible dans l'aperçu avant impression d'Excel 2010 ou +

 

Vote positif 0 Vote négatif

ExcelDow

XLDnaute Occasionnel

• 18 Août 2016

• #3

Bonjour chris,
A oui, c'est vrai, ça fonctionne que à l'impression
Super et merci beaucoup
A+++++

 

Vote positif 0 Vote négatif

ExcelDow

XLDnaute Occasionnel

• 18 Août 2016

• #4

Re bonjour Chris,
Une question si tu me permets;
A l'impression j'ai le format 01.08.2016, et j'aimerais le format "mmmm" soit que le mois en texte
Comment modifier le code s'il te plaît
Merci


Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Feuil1" Then
ActiveSheet.PageSetup.CenterHeader = "Dossier traité par : " & ActiveSheet.Range("A3")
End If
End Sub

 

Pièces jointes

• En Tête (1).xlsm

  14.5 KB · Affichages: 15

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 18 Août 2016

• #5

Re

Remplace A3 par

Code:

Format(Range("a3"), "mmmm")

 

Vote positif 0 Vote négatif

ExcelDow

XLDnaute Occasionnel

• 18 Août 2016

• #6

Re
J'ai fais comme ça, mais ça vas pas

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Calendrier" Then
ActiveSheet.PageSetup.CenterHeader = "Le mois de: " & ActiveSheet.Format(Range("A3"), "mmmm")
End If
End Sub

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 18 Août 2016

• #7

Re
& Format(ActiveSheet.Range("A3","mmmm"))

 

Vote positif 0 Vote négatif

ExcelDow

XLDnaute Occasionnel

• 18 Août 2016

• #8

OK, merci
Te rappel demain pour te dire si c'est bon
Bonne soirée

 

Vote positif 0 Vote négatif

ExcelDow

XLDnaute Occasionnel

• 19 Août 2016

• #9

Salut Chris
Et non toujours pas
Merci à ++++++

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 20 Août 2016

• #10

Bonjour

Parenthèse mal placée, sorry

Code:

ActiveSheet.PageSetup.CenterHeader = "Le mois de: " & Format(ActiveSheet.Range("A3"), "mmmm")

Prévoir une apostrophe pour les 3 mois commençant pas une voyelle !

 

Vote positif 0 Vote négatif

ExcelDow

XLDnaute Occasionnel

• 20 Août 2016

• #11

Bonjour,
Super et merci c'est tous bon.
Bon week end
A+++++

 

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 20 Août 2016

• #12

Bonjour,

ta cellule étant nommée "mois" , je vois, tu peux essayer ceci:

ActiveSheet.PageSetup.CenterHeader = "Dossier traité par : " & Format([mois], "mmm")
P.

 

Vote positif 0 Vote négatif

ExcelDow

XLDnaute Occasionnel

• 21 Août 2016

• #13

Bonjour,
OK, et merci de ton aide
A++++

 

Vote positif 0 Vote négatif