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.

Bonjour, Avec VBA tout est possible ! Are you macro ? [bigsmile] A+

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.

[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

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+

Merci Ó vous 2, je vais de ce pas mettre en application vos explications.

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.