entete variable

JC de Lorient

XLDnaute Impliqué

• 12 Juin 2006

• #2

salut
ce bout de code te permet de mattre la valeur de la cellule A1 dans la partie centrale de ton entête

Sub Macro7()
ActiveSheet.PageSetup.PrintArea = ''
With ActiveSheet.PageSetup
.CenterHeader = Range('A1').Value
.PrintErrors = xlPrintErrorsDisplayed
End With
End Sub

 

Vote positif 0 Vote négatif

Joshua14

XLDnaute Occasionnel

• 12 Juin 2006

• #3

Bonsoir le forum et nounours,

Voici un petit fichier qui te donne la macro permettant de modifier l'en tete avec la concatenation de deux cellules [file name=nounours.zip size=7973]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/nounours.zip[/file]

 

Pièces jointes

• nounours.zip

  7.8 KB · Affichages: 106

Vote positif 0 Vote négatif

N

nounours

Guest

• 12 Juin 2006

• #4

ok mais mais ma difficulté est que le dois combiner l'entete avec un intiulé déjà saisi et une partie 'variable'??

merci

 

Vote positif 0 Vote négatif

Gorfael

XLDnaute Barbatruc

• 12 Juin 2006

• #5

JC de Lorient écrit:

salut
ce bout de code te permet de mattre la valeur de la cellule A1 dans la partie centrale de ton entête

Sub Macro7()
ActiveSheet.PageSetup.PrintArea = ''
With ActiveSheet.PageSetup
.CenterHeader = .CenterHeader & ' ' & Range('A1')
.PrintErrors = xlPrintErrorsDisplayed
End With
End Sub

Cliquez pour agrandir...

Salut
essaies la modif en rouge
A+

 

Vote positif 0 Vote négatif