En-tête Excel fonction d'une valeur extérieur Fermé

Question

Dans excel,  je cherche à reporter automatiquement dans l’en-tête de la page, un texte se trouvant dans une cellule. 
Par exemple, si dans la cellule B5 est écrit le texte ‘’la couleur du jour est le bleu », j’aimerai pouvoir retrouver automatiquement le même texte dans l’en-tête.
Si possible sans Macro. Merci

néné · Accepted Answer

Bonjour, 
Je ne pense pas que tu puisse éviter une macro pour faire ce que tu demande

la voici

Sub Entete()
Dim ET As String
ET = Range("b5").Value
ActiveSheet.PageSetup.CenterHeader = ET
End Sub

toto · Answer

Bonjour, 
J'ai le mémé problem que toi. Si tu as déjà trouvé une solution peut tu l'indiquer stp.

Merci.

Toto

Toto · Answer

Je te remercie néné pour ta réponse. Il me semble que tu as raison. Sans macro c'est pas possible.

Kelly · Answer

Merci beaucoup
et voilà ma première macro faite ;o)
j'avais trouvé une solution sur un autre forum qui n'était pas concluante, celle-ci est facile à comprendre et à modifier du coup
Voici ma modif au cas où ça aide qq1 j'ajoute l'entête à toutes les feuilles et cette entête est composée de 2 cellules nommées

Sub Entete()
Dim CODE_ETUDE As String
Dim CODE_ANALYSE As String
Dim MaFeuille As Worksheet
CODE_ETUDE = Range("=CodeAnalyse").Value
CODE_ANALYSE = Range("=CodeEtude").Value
For Each MaFeuille In Worksheets
    MaFeuille.PageSetup.LeftHeader = CODE_ETUDE & Chr(10) & CODE_ANALYSE
Next
End Sub

Ramon · Answer

Petit bout de code à insérer dans ThisWorkbook (qui s'exécutera avant l'impression ou même avant l'apercu avant impression) pour avoir en Entete à gauche "Ref." + la référence qui a été saisie dans la cellule Z34 de ma feuille qui s'appelle "Attestation":


Private Sub Workbook_BeforePrint(Cancel As Boolean)

    Dim header As String
    header = "&8Ref. " + Me.Sheets("Attestation").Range("Z34").Value
    
    Me.Sheets("Attestation").PageSetup.LeftHeader = header
    Me.Sheets("Grille").PageSetup.LeftHeader = header
    Me.Sheets("Rapport").PageSetup.LeftHeader = header

End Sub

A noter : pour changer la taile de la police il suffit d'indiquer la taille voulue au début du texte, ici taille 8 :  header = "&8Ref. " + Me.Sheets("Attestation").Range("Z34").Value 
Pour 9 :  header = "&9Ref. " + Me.Sheets("Attestation").Range("Z34").Value 
Bon, on peut toujours améliorer mais ca me suffit pour ce que j'ai à faire... (boucle sur toutes les feuilles par ex...)

En-tête Excel fonction d'une valeur extérieur

5 réponses

Discussions similaires