Discussion :

[yblotiere]

bonjour

j'utilise cette macro qui me sélectionne une parti de ma feuille de calcul puis qui va chercher une valeur sur une autre feuille en a1 pour la faire apparaitre dans l’entête lors de l’apercu avant impression jusque la tout va bien
mon problème
je ne connais pas la syntaxe pour lui indiquer la police la taille de la valeur qui viens de la seconde feuille ( en rouge dans ma macro)après quelque recherche j'ai trouve .font.size=28, font.name=

mon souci je ne trouve pas comment formuler cela pour que cela fonctionne

si quelque à un tuyau je suis preneur

merci

Code :

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

1
2
3
4
5
6
7
Sub IMP_an429tb()
 
Sheets("Saisi Go AN429tb").Select
ActiveSheet.PageSetup.PrintArea = "$J$2:$Y$27"
ActiveSheet.PageSetup.RightHeader = Sheets("Générale").[A1].Value
ActiveWindow.SelectedSheets.PrintPreview
End Sub

merci pour les infos d'avance

[kiki29]

Salut, via l'enregistreur de macros tu aboutis à qqch comme

Code :

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

.CenterHeader = "&""Arial,Gras""&12&P"

qu'il faudra adapter à ton contexte.

A voir pour accélérer la mise en page

[yblotiere]

bonjour kiki 29

j'ai modifié ma macro et voici ce qu’elle donne ci dessous mon problème
maintenant j'ai bien la valeur 2011 qui apparait en haut a droit en arial gras 26
mais je suis obliger de mettre la valeur en dure hors moi cette valeur se trouve sur une autre feuille dans la cellule A
macro précédente
existe t'il un moyen pour faire fonctionner les 2 ensembles

Code :

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

1
2
3
4
5
6
7
8
Sub IMP_an429tb()
 
Sheets("Saisi Go AN429tb").Select
ActiveSheet.PageSetup.PrintArea = "$J$2:$Y$27"
 ActiveSheet.PageSetup.RightHeader = "&""Arial,Gras""&26 2011"
 
ActiveWindow.SelectedSheets.PrintPreview
End Sub

merci yannick

[SfJ5Rpw8]

Il faut eviter d'utiliser les select,activesheet..

Code :

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

1
2
3
4
 
Sheets("Saisi Go AN429tb").PageSetup.PrintArea = "$J$2:$Y$27" 
 
Sheets("Saisi Go AN429tb").PageSetup.RightHeader = "&""Arial,Gras""&26 " & Sheets("Générale").range("A1").Value

[yblotiere]

bonjour

merci bbil

cela fonctionne parfaitement

encore merci