Macro pour taille de police tête de page

Fermé

Cabrina Messages postés 248 Date d'inscription samedi 5 avril 2008 Statut Membre Dernière intervention 13 mars 2024 - 19 janv. 2016 à 10:04
kit24be Messages postés 46 Date d'inscription samedi 12 janvier 2013 Statut Membre Dernière intervention 22 octobre 2017 - 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
Supprimer une page word - Guide
Comment réduire la taille d'un fichier - Guide
Police facebook - Guide
Word numéro de page 1/2 - Guide
Page d'accueil iphone - Guide

3 réponses

Réponse 1 / 3

kit24be Messages postés 46 Date d'inscription samedi 12 janvier 2013 Statut Membre Dernière intervention 22 octobre 2017 1
19 janv. 2016 à 22:36

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 248 Date d'inscription samedi 5 avril 2008 Statut Membre Dernière intervention 13 mars 2024 6
20 janv. 2016 à 14:12

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 samedi 12 janvier 2013 Statut Membre Dernière intervention 22 octobre 2017 1
21 janv. 2016 à 01:10

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 248 Date d'inscription samedi 5 avril 2008 Statut Membre Dernière intervention 13 mars 2024 6
21 janv. 2016 à 08:49

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 samedi 12 janvier 2013 Statut Membre Dernière intervention 22 octobre 2017 1
21 janv. 2016 à 09:28

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

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

[PIX] Commencer chaque poème sur une nouvelle page

W32 L32: correspondance entre taille US et taille française

[référencement] Ne pas être référencé

Discussions similaires

Newsletters