Macro pour taille de police tête de page
Cabrina
Messages postés
273
Statut
Membre
-
kit24be Messages postés 48 Statut Membre -
kit24be Messages postés 48 Statut Membre -
Bonjour,
J’ai une macro pour mettre un élément qui se trouve en A1
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
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
3 réponses
-
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. -
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 -
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
