Mettre une variable dans en-tête personnalisé pour l'édition

[libellule85]

Bonsoir le forum,

Actuellement j'utilise la syntaxe suivante :

With ActiveSheet
 .PageSetup.CenterHeader = "&""arial,bold""blablabla"
    .PrintPreview
 End With

pour mettre un texte (qui ne change pas) en en-tête personnalisé de la page lors de l'édition de celle-ci.
Par contre, j'aimerais savoir comment mettre un texte variable suivant le texte d'une cellule.
D'avance merci pour votre aide

 

[CB60]

Re : Mettre une variable dans en-tête personnalisé pour l'édition

bonsoir
test cela

blablabla = [A1]
With ActiveSheet
.PageSetup.CenterHeader = "&""arial,bold""blablabla"
.PrintPreview
End With

 

[libellule85]

Re : Mettre une variable dans en-tête personnalisé pour l'édition

Bonsoir CB60,

Je te remercie pour ta réponse, j'ai essayé mais celà me met toujours blablabla

 

[CB60]

Re : Mettre une variable dans en-tête personnalisé pour l'édition

desolé je n'avais pas testé

Sub test()
blablabla = [A1]
With ActiveSheet
.PageSetup.CenterHeader = "arial,bold"
.PageSetup.CenterHeader = blablabla
.PrintPreview
End With
End Sub

 

[libellule85]

Re : Mettre une variable dans en-tête personnalisé pour l'édition

Re,

Un grand grand merci, celà fonctionne à merveille.
Bonne soirée