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
michdenis
Bonjour,
Tu peux copier ceci dans le ThisWorkbook de ton classeur :
Si tu veux obtenir et écrire le résultat de la formule plutôt que ta formule tu peux utiliser la propriété "Evaluate" de l'objet Application" pour évaluer ta formule
X = Evaluate(TaFormule) .CenterHeader = x
'--------------------------------- Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim Sh As Worksheet For Each Sh In ActiveWindow.SelectedSheets With Sh With .PageSetup .CenterHeader = "TaFormule" End With End With Next End Sub '---------------------------------
"mboileau" a écrit dans le message de groupe de discussion :
Bonjour,
Je voudrais insérer un vlookup dans mon .centerheader de ma macro "pagesetup".
Comment dois-je écrire le code?
Merci
Bonjour,
Tu peux copier ceci dans le ThisWorkbook de ton classeur :
Si tu veux obtenir et écrire le résultat de la formule plutôt que ta formule
tu peux utiliser la propriété "Evaluate" de l'objet Application" pour
évaluer ta formule
X = Evaluate(TaFormule)
.CenterHeader = x
'---------------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet
For Each Sh In ActiveWindow.SelectedSheets
With Sh
With .PageSetup
.CenterHeader = "TaFormule"
End With
End With
Next
End Sub
'---------------------------------
"mboileau" <mboileau@hotmail.com> a écrit dans le message de groupe de discussion :
2a9eba6e-91c9-4b8e-adb0-d52703e13d5e@l13g2000yqb.googlegroups.com...
Bonjour,
Je voudrais insérer un vlookup dans mon .centerheader de ma macro
"pagesetup".
Tu peux copier ceci dans le ThisWorkbook de ton classeur :
Si tu veux obtenir et écrire le résultat de la formule plutôt que ta formule tu peux utiliser la propriété "Evaluate" de l'objet Application" pour évaluer ta formule
X = Evaluate(TaFormule) .CenterHeader = x
'--------------------------------- Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim Sh As Worksheet For Each Sh In ActiveWindow.SelectedSheets With Sh With .PageSetup .CenterHeader = "TaFormule" End With End With Next End Sub '---------------------------------
"mboileau" a écrit dans le message de groupe de discussion :
Bonjour,
Je voudrais insérer un vlookup dans mon .centerheader de ma macro "pagesetup".
