Manipulation des en-têtes et pieds de pages [Résolu]

[Vincent32]

Bonjour à tous,

j'ai trouvé ce tuto http://fring.developpez.com/vba/excel/entetepiedpage/

Bien qu'il explique très bien les choses j'ai besoin d'aide sur ce point :
Je n'arrive pas à formater le texte suivant :

Code :

.CenterHeader = ws0.Range("E35") & Chr(10) & "&G&A" 'nom échantillon, nom de la feuille

Je souhaiterais mettre ws0.Range("E35") en gras et je ne sais pas comment m'y prendre.

Merci d'avance pour votre aide

Cordialement

Vincent

[fring]

Bonjour,

Essaie comme ceci :

Code :

.CenterHeader = "&G" & ws0.Range("E35") & Chr(10) & "&G&A" 'nom échantillon, nom de la feuille

[Vincent32]

J'ai trouvé voici le code

Code :

1
2
3
4
5
6
  Dim x As Byte
    For x = 1 To Sheets.Count
        With Sheets(x).PageSetup
            .CenterHeader = "&B&12&""Arial""" & ws0.Range("E35") & Chr(10) & "&A" 'nom échantillon, nom de la feuille en arial gras 12
        End With
    Next x