sous VBA : Définir En-Tête personnalisée depuis une variable

**Pilote1152** · 07/05/2023, 11h00

Bonjour,

J'essaie en vain de définir en en-tête personnalisée ( partie centrale) un texte repris depuis une cellule de la feuille.
J'ai bien mis dans mon code la valeur dans une variable mais Excel n'en tient aucun compte ( en revanche la première partie de l'en-tête avec indication du nom de l'onglet fonctionne sans problème).

Une idée sur mon erreur ?
Merci de vos remarques et suggestions

Cordialement
ci-après le bout de code en cause
[CODE]dim titreCentral as string
titreCentral = ActiveSheet.Range("Sortie")

With ActiveSheet.PageSetup
.LeftHeader = "&A"
.CenterHeader = "&""-,Gras" & titreCentral

End With
/CODE]

**Franc** · 07/05/2023, 11h24

Salut,
titreCentral ne prend aucune valeur, il faut ajouter .Value, en supposant que "Sortie" est la cellule contenant le texte.

**Pilote1152** · 07/05/2023, 11h54

Envoyé par Franc

Salut,
titreCentral ne prend aucune valeur, il faut ajouter .Value, en supposant que "Sortie" est la cellule contenant le texte.

Bonjour et merci de ta réponse

Je ne comprends pas ta remarque! car la variable "titreCentral" prend bien le contenu texte de la cell "Sortie" (vérifié avec espion express)

Où veux-tu rajouter le .value (à la définition de la variable mais cela ne résout rien ) ?

Cordialement

**Thumb down** · 07/05/2023, 11h58

Envoyé par Franc

Salut,
titreCentral ne prend aucune valeur, il faut ajouter .Value, en supposant que "Sortie" est la cellule contenant le texte.

Bonjour,
Part défaut un range retourne value, j'opterais pour la deuxième hypothèse à savoir la cellule ne contient peut être pas de valeur !

De plus je ne vois pas l'intérêt de transiter par un variable.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CenterHeader = "&""Algerian,Normal""&" & Range("TITRE").Value

**Pilote1152** · 07/05/2023, 12h57

Envoyé par Thumb down

Bonjour,
Part défaut un range retourne value, j'opterais pour la deuxième hypothèse à savoir la cellule ne contient peut être pas de valeur !

De plus je ne vois pas l'intérêt de transiter par un variable.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CenterHeader = "&""Algerian,Normal""&" & Range("TITRE").Value

Bonjour Pouce down ,

Effectivement avec ce code (exclusion du passage par la variable ) j'obtiens le titre .... mais avec 2 pb!
comme le montre la PJ le texte est en format barré et il manque la première lettre (tronqué car il manque le S de Sortie ...!

On avance ....
Nom : Capture d’écran 2023-05-07 à 12.51.34.jpg
Affichages : 25
Taille : 11,9 Ko