> 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
39,33 €Lot de 5 Câbles RJ45 Cat6 UTP KabelDirekt - 5x 30M, Gigabit/LAN à 39,33 €
Valable jusqu'au 07 Mai

Amazon fait une belle promotion sur le lot de 5 câbles gigabit RJ45 Cat6 UTP KabelDirekt de 30 mètres chacun à 39,33 € livré gratuitement au lieu de 66 €. Les câbles sont particulièrement flexibles et donc pratiques à poser – sans crainte des interférences grâce à la technique à paire torsadée (Twisted-Pair). Pour des transferts de données jusqu’à 1000 Mbit/s (1000Base-T)


> Voir l'offre
139,99 €Ecran 24,5 pouces Iiyama Black Hawk G2530HSU-B1 à 139,99 €
Valable jusqu'au 07 Mai

Boulanger fait une promotion sur l'écran 24,5 pouces Iiyama Black Hawk G2530HSU-B1 qui passe à 139,99 € alors qu'on le trouve ailleurs à partir de 169 €. Cet écran à bord fin est FullHD (1920x1080px), offre un temps de réponse de 1 ms, une vitesse de rafraichissement de 75 Hz. Il est compatible FreeSync.


> Voir l'offre
20,98 €Clé USB Sandisk Ultra Go 128 Go à double connectique USB 3.1 Type A et C à 20,98 €
Valable jusqu'au 07 Mai

Amazon fait une promotion sur la clé USB Sandisk Ultra Go 128 Go à double connectique USB 3.1 Type A et C qui passe à 20,98 €. Cette clé USB  dispose d'un connecteur USB Type C et d'un connecteur classique de type A. Grâce à elle, transférez en toute simplicité et rapidement (jusqu'à 150 Mo/s) vos fichiers entre vos smartphones, tablettes et ordinateurs. On la trouve ailleurs à plus de 35 €.


> Voir l'offre

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