Macro pour taille de police tête de page

Cabrina Messages postés 249 Date d'inscription Statut Membre Dernière intervention -
kit24be Messages postés 46 Date d'inscription Statut Membre Dernière intervention - 21 janv. 2016 à 09:28

Bonjour,

J’ai une macro pour mettre un élément qui se trouve en A1

Sub têtedepage()
ActiveSheet.PageSetup.CenterHeader = "Prod S " & Range("A1").Value
End Sub

Ma macro fonctionne très bien.
Ce que je voudrais faire c’est mettre mon texte en taille 18 et le descendre de « trois entrer ».

J’ai voulu le faire avec l’enregistreur mais je ne sais pas pourquoi cela ne fonctionne pas.

Merci d'avance pour la ou les solutions que vous pourrez me donner

A voir également:

Macro pour taille de police tête de page
Comment réduire la taille d'un fichier - Guide
Impossible de supprimer une page word - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Changer de police sur facebook - Guide
Police aptos - Accueil - Bureautique

3 réponses

Réponse 1 / 3

kit24be Messages postés 46 Date d'inscription Statut Membre Dernière intervention 1

Bonjour,
voici un code qui fonctionne en 18 Tahoma, écrire le texte en A1 lancer la macro résultat en A4.

Sub têtedepage()

Range("A1").Offset(3, 0).Value = "Prod S " & Range("A1").Value
Range("A1").Offset(3, 0).Select
With Selection.Font
.Name = "Tahoma"
.Size = 18
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With

End Sub

ou un code plus simple

Sub têtedepage()

Range("A1").Offset(3, 0).Value = "Prod S " & Range("A1").Value
Range("A1").Offset(3, 0).Font.Size = 18

End Sub

j"espère que cela vous convienne.

Cabrina Messages postés 249 Date d'inscription Statut Membre Dernière intervention 6

Cela fonctionne à moitié, je m’explique : mon texte qui se trouve en A1 est bien recopié et « grossis » trois lignes plus bas mais sur ma feuille excel pas dans le centre de ma tête de page…

Réponse 2 / 3

kit24be Messages postés 46 Date d'inscription Statut Membre Dernière intervention 1

Bonjour,

essayée cela

Sub tetedepage()

With ActiveSheet.PageSetup
.CenterHeader = "&""Tahoma""&18" & "Prod S " & Range("A1").Value
.HeaderMargin = Application.InchesToPoints(1)
End With
End Sub

mieux que cela je n'y arrive pas, désolé mes compétences ne le permettent pas.

j'espère que cela va aider

Cabrina Messages postés 249 Date d'inscription Statut Membre Dernière intervention 6

Bonjour,
Merci infiniment… Je ne descends pas de trois lignes mais je vais m'en contenter :)
Bonne journée

Réponse 3 / 3

kit24be Messages postés 46 Date d'inscription Statut Membre Dernière intervention 1

Bonjour,
en augmentant la valeur entre les parenthèses la ligne descendra d'elle même. Vous pouvez l'augmenter de dixième en dixième
Application.InchesToPoints(1.5) <----

Sub tetedepage()
With ActiveSheet.PageSetup
.CenterHeader = "&""Tahoma""&18" & "Prod S " & Range("A1").Value
.HeaderMargin = Application.InchesToPoints(1.5)
End With
End Sub

Bonne journée

Discussions similaires

Bref. Je cherche la police d'écriture de Bref

À quoi correspond 32x32 US en taille française pour un jean ?

Changer la couleur de fond d'un en-tête

Transparence en tete et bas de page

Votre réponse

Discussions similaires