> Tous les forums > Forum Bureautique
 Excel - valeur d'1 cellule dans ET ou PPSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
lelie
  Posté le 24/08/2006 @ 15:09 
Aller en bas de la page 
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é
galopin01
 Posté le 24/08/2006 à 15:21 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien
Bonjour, Avec VBA tout est possible ! Are you macro ? [bigsmile] A+
lelie
 Posté le 24/08/2006 à 15:23 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
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.
Bérylion
 Posté le 24/08/2006 à 15:40 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
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
galopin01
 Posté le 24/08/2006 à 15:49 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  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+
lelie
 Posté le 24/08/2006 à 15:54 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
Merci Ó vous 2, je vais de ce pas mettre en application vos explications.
lelie
 Posté le 24/08/2006 à 16:04 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
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.
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
Mini PC NiPoGi E3B (AMD Ryzen 5 7430U, 16 Go DDR4, SSD 512 Go, Windows 11 Pro)
299,72 € 399 € -25%
@Amazon
Les soldes d'été 2025
-1 -25%
@Amazon
Portable 15.6 pouces Acemagic LX15 Pro (Ryzen 7 5700U, 16 Go, 512 Go SSD, Vega 8, Windows 11)
374,99 € 499,99 € -25%
@Amazon
Batterie externe INIU mini (10 000 mAh, USB C x2, USB A x1, PD 22.5W)
14,99 € 25 € -40%
@Amazon
SSD externe portable USB 3.2 Intenso TX100 2 To (500 Mo/s)
105,57 € 130 € -19%
@Amazon Allemagne
Disque dur externe Western Digital Elements Desktop USB 3.0 14 To
246,37 € 270 € -9%
@Amazon Allemagne

Sujets relatifs
Excel: valeur cellule impliquée dans calcul ailleurs -> connexions
valeur cellule 0 dans excel
Valeur maximum dans une cellule Excel [réglé]
case à cocher dans cellule Excel 2010
Excel: Faire apparaître dans cellule nom sélection
Suppression dans cellule Excel
Petit triangle dans la cellule Excel
interdire une valeur dans une cellule en fonction d'une autre cellu
Excel: Chercher l'emplacement de la valeur maximale dans une plage
REPORTS REFERENCE CELLULE DANS CLASSEURS EXCEL LIES
Plus de sujets relatifs à Excel - valeur d''1 cellule dans ET ou PP
 > Tous les forums > Forum Bureautique