Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel VBA et en tête de page

VBA et en tête de page

2 réponses
Avatar
Christian.L
Bonjour à tous

J'ai enregistrée une macro pour formater mes en têtes de page

With ActiveSheet.PageSetup
'.LeftHeader = "&""Tahoma,Gras""&10&"
'.CenterHeader = "&""Tahoma,Gras""&10&"
'.RightHeader = "&""Tahoma,Gras,10"
'.LeftFooter = ""
'.CenterFooter = ""
'.RightFooter = ""
End With

L'inconvénient, c'est qu'après la macro, les textes des en têtes de
pages ont été effacés.

Quelqu'un a t'il une idée ?

Merci d'avance

Christian
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
michdenis
Bonjour Christian,

Je n'ai pas très bien compris ta question, mais tu peux consever le texte dans une variable ou une cellule et l'ajouter au moment de
lancer l'impression.


'------------------------------
Sub Imprimer()

Dim Sh As Worksheet
Dim MyVar As String

Set Sh = ActiveSheet
MyVar = "Bonjour le monde"

With Sh
With .PageSetup
.LeftHeader = "&""Tahoma,Gras""&10& " & MyVar
.CenterHeader = "&""Tahoma,Gras""&10& " & Sh.Range("A1")
.RightHeader = "&""Tahoma,Gras,10"
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
End With
.PrintPreview
End With

End Sub
'------------------------------



Salutations!



"Christian.L" a écrit dans le message de news:
Bonjour à tous

J'ai enregistrée une macro pour formater mes en têtes de page

With ActiveSheet.PageSetup
'.LeftHeader = "&""Tahoma,Gras""&10&"
'.CenterHeader = "&""Tahoma,Gras""&10&"
'.RightHeader = "&""Tahoma,Gras,10"
'.LeftFooter = ""
'.CenterFooter = ""
'.RightFooter = ""
End With

L'inconvénient, c'est qu'après la macro, les textes des en têtes de
pages ont été effacés.

Quelqu'un a t'il une idée ?

Merci d'avance

Christian
Avatar
Christian.L
Bonjour Michdenis

C'est bon, j'ai appliqué ta méthode, ça marche

Merci

Christian


"michdenis" a écrit dans le message de news:

Bonjour Christian,

Je n'ai pas très bien compris ta question, mais tu peux consever le texte
dans une variable ou une cellule et l'ajouter au moment de
lancer l'impression.


'------------------------------
Sub Imprimer()

Dim Sh As Worksheet
Dim MyVar As String

Set Sh = ActiveSheet
MyVar = "Bonjour le monde"

With Sh
With .PageSetup
.LeftHeader = "&""Tahoma,Gras""&10& " & MyVar
.CenterHeader = "&""Tahoma,Gras""&10& " & Sh.Range("A1")
.RightHeader = "&""Tahoma,Gras,10"
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
End With
.PrintPreview
End With

End Sub
'------------------------------



Salutations!



"Christian.L" a écrit dans le message de
news:
Bonjour à tous

J'ai enregistrée une macro pour formater mes en têtes de page

With ActiveSheet.PageSetup
'.LeftHeader = "&""Tahoma,Gras""&10&"
'.CenterHeader = "&""Tahoma,Gras""&10&"
'.RightHeader = "&""Tahoma,Gras,10"
'.LeftFooter = ""
'.CenterFooter = ""
'.RightFooter = ""
End With

L'inconvénient, c'est qu'après la macro, les textes des en têtes de
pages ont été effacés.

Quelqu'un a t'il une idée ?

Merci d'avance

Christian