Discussion :

[aedcc]

salut
comment je peux appliquer les propriétés (taille et type de police)de
PageSetup.Leftheader (left section)
sur
PageSetup.Centerheader (center section)
en manière automatique (avec vba) sur toutes les feuilles

par exemple:
l’état actuel :

PageSetup.Leftheader = "&G&12&""Comic Sans Ms""fring""&D"
après l'exécution de code vba je veux voir

Code :

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

1
2
PageSetup.Leftheader = "&G&12&""Comic Sans Ms""fring""&D"
PageSetup.Centerheader = "&G&12&""Comic Sans Ms""fring""&D"

merciiii

[Invité]

regarde avec l'enregistreur de macro

[Docmarti]

Bonjour aedcc; À Tous

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
 
 strLeftHeader = ActiveSheet.PageSetup.LeftHeader
 
 For Each f In ThisWorkbook.Sheets
   f.PageSetup.CenterHeader = strLeftHeader
 Next
 
End Sub

Cordialement

Docmarti

[aedcc]

c'est exactement ce que je veux
est ce que possible de voir cette resultat
avant

Code :

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

PageSetup.Leftheader = "&G&12&""Comic Sans Ms""fring""&D"

apres l'exécution

Code :

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

1
2
3
PageSetup.Leftheader = "&G&12&""Comic Sans Ms""fring""&D"

PageSetup.Centerheader = "&G&12&""Comic Sans Ms""fring""&P"

merciiii