|
|
|
Excel - valeur d'1 cellule dans ET ou PP
| ||||||||
Petit astucien | Bonjour à tous.
J'ai une question sur excel 2003 : est-il possible dans l'en-tête ou le pied de page d'indiquer automatiquement une valeur qui se trouve dans une cellule de la feuille ? Exemple : en cellule B2 est saisi TOTO, et dans l'en-tête il faudrait que je puisse indiquer quelque chose comme =B2 pour que TOTO vienne automatiquement.
Merci d'avance.
| |||||||
Publicité | ||||||||
 Astucien | Bonjour,
Avec VBA tout est possible !
Are you macro ? [bigsmile]
A+ | |||||||
Petit astucien | Merci de ta rapidité Galopin01.
Je cherchais une solution plus "simple" à mettre en place, mais je connais un peu les macros et je suis donc intéressée.
Merci d'avance. | |||||||
Astucien  | [hello]
[code]
Sub exemple()
With ActiveSheet.PageSetup
.LeftHeader = Range("A1").Value
.CenterHeader = Range("B1").Value
.RightHeader = Range("C1").Value
End With
End Sub
[/code]
[code]
Sub exemple2()
With ActiveSheet.PageSetup
.LeftFooter = Range("A2").Value
.CenterFooter = Range("B2").Value
.RightFooter = Range("C2").Value
End With
End Sub
[/code]
??...
Modifié par Bérylion le 24/08/2006 15:45 | |||||||
| Astucien | re...
C'est très simple à mettre en place et les options d'adaptations sont nombreuses :
Pour commencer aller sur VBA et double cliquer sur ThisWorkbook
Coller cette macro :
[code]Private Sub Workbook_BeforePrint(Cancel As Boolean)
Z = [A1]
Worksheets("gazobu").PageSetup.LeftHeader = Z 'en haut à gauche
'en haut au milieu = ...CenterHeader = Z
'en haut à droite = ...RightHeader = Z
'en bas à gauche = ...LeftFooter = Z
'en bas à milieu = ...CenterFooter = Z
'en bas à droite = ...RightFooter = Z
End Sub[/code]
Z= [A1] c'est la cellule à Toto...
bien sur il faut remplacer "gazobu" par le nom de "TaFeuille"
Remplacer "LeftHeader" par "RightFooter" ou autre selon le résultat escompté.
Pour les options gras, caractère plus gros ou plus petit, alignement... préciser le souhait.
A+ | |||||||
Petit astucien | Merci à vous 2, je vais de ce pas mettre en application vos explications. | |||||||
Petit astucien | Impec, ça marche super bien.
En plus la solution de Galopin01 permet d'avoir la valeur mise à jour automatiquement à l'aperçu quand nouvelle saisie dans la cellule.
Merci encore. | |||||||
| ||||||||
Les bons plans du moment PC Astuces | Tous les Bons Plans | |||||||||||||||
| ||||||||||||||||
| Forum PC Astuces | © 1997-2021 Webastuces |  |
À LA UNE
PRATIQUE
LOGITHÈQUE
TABLETTE ET MOBILE
BONS PLANS
FONDS D'ÉCRAN
JEUX
FORUM
