Macro pour taille de police tête de page Fermé

Question

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").ValueEnd 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

kit24be · Answer

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.

kit24be · Answer

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

kit24be · Answer

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

Macro pour taille de police tête de page

3 réponses

Discussions similaires