× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > Tous les forums > Forum Bureautique
 récupérer contenu d'une cellule dans en-têteSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
maryloo2005
  Posté le 23/09/2013 @ 15:27 
Aller en bas de la page 
Astucienne

Bonjour,

Dans Excel 2010, peut-on récupérer le contenu d'une cellule pour qu'il s'insère automatiquement dans l'en-tête ?

Merci.

Publicité
Boogie Palace
 Posté le 23/09/2013 à 16:27 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

bonjour,

ce n'est pas prévu dans les options de mise en page d'en-tête, mais on peut y remédier en VBA.
pour mettre le contenu de la cellule A1 en en-tête (en haut, centré) : ActiveSheet.PageSetup.CenterHeader = [A1]

mais ce n'est pas dynamique, donc en modifiant le contenu de A1, l'en-tête ne changera pas.
pour rendre cette modif dynamique, il faut mettre cette ligne de code dans une procédure évènementielle de type Worksheet_Change (complément d'info ici : http://www.info-3000.com/vbvba/evenementfeuille.php)

un autre participant pourra sans doute te pondre le script kivabien si tu ne t'en sors pas toute seule.



Modifié par Boogie Palace le 23/09/2013 16:28
gilbert_rgi
 Posté le 23/09/2013 à 16:42 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour

Dans le thisworkbook mettre

Private Sub Workbook_Open()

Range("A1").Select

With ActiveSheet.PageSetup

.CenterHeader = [a1].Value & Chr(10)

End With

Range("B1").Select

End Sub

Gabrilou
 Posté le 23/09/2013 à 16:55 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucienne

J'en avais une aussi dans mes archives : (dans ce cas, elle est renseignée par la cellule B5)

Dans ThisWorkBook


Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Feuil1" Then
ActiveSheet.PageSetup.CenterHeader = Sheets("Feuil1").Range("B5")
End If
End Sub

maryloo2005
 Posté le 23/09/2013 à 17:04 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucienne

MERCI bcp à tous !

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
26,71 €Carte mémoire SDXC UHS-I U3 SanDisk Extreme Plus 128 Go (jusqu'à 170 Mo/s) à 26,71 € livrée
Valable jusqu'au 08 Juin

Amazon Allemagne fait une promotion sur la carte mémoire SDXC UHS-I U3 SanDisk Extreme Plus d'une capacité de 128 Go qui passe à 22,19 € (avec la TVA ajustée). Comptez 4,52 € pour la livraison en France soit un total de 26,71 € livrée alors qu'on trouve la carte ailleurs à partir de 60 €. Cette carte mémoire offre des vitesses jusqu'à 170 Mo/s en lecture et 90 Mo/s en écriture et intègre des mécanismes afin de gérer l'usure des cellules de la carte et augmenter ainsi sa durée de vie. Une valeur sûre pour les plus exigeants. Elle résiste aux températures extrêmes, à l'eau, aux chocs et aux rayons X. La carte est fournie avec le logiciel de récupération de données RescuePRO Deluxe qui facilite la récupération des fichiers qui ont été effacés accidentellement.

Vous pouvez utiliser votre compte Amazon France sur Amazon Allemagne et il n'y a pas de douanes. Si vous êtes perdu en allemand, vous pouvez traduire le site en anglais.


> Voir l'offre
139,96 €Montre connectée Withings Steel HR Sport à 139,96 €
Valable jusqu'au 04 Juin

Amazon fait une promotion sur la montre connectée Withings Steel HR Sport qui passe à 139,96 € livrée gratuitement alors qu'on la trouve ailleurs à partir de 171 €. Cette montre hybride (montre véritable avec un écran) offre 25 jours d'autonomie et va vous permettre de suivre vos activités sportives : GPS, fréquence cardiaque, indice de forme, tracker d'activité et de sommeil, ... Vous pourrez recevoir vos SMS, appels, e-mails, alertes du calendrier et vos notifications directement sur la montre. La montre est compatible Apple Health, Google Fit, Fitbit et Strava.


> Voir l'offre
163,94 €Kit de 32 Go (2x16Go) de mémoire DDR4 Crucial Ballistix 3000 MHz RGB à 163,94 € livré
Valable jusqu'au 05 Juin

Amazon Allemagne fait une promotion sur le kit de 32Go (2x16 Go) de mémoire DDR4 Crucial Ballistix 3000 MT/s CL15 à 159,31 € (avec la TVA ajustée). Comptez 4,63 € pour la livraison en France soit un total de 163,94 € livré alors qu'on le trouve ailleurs à plus de 210 €. Vous pourrez personnaliser la palette de couleurs de votre ordinateur avec 16 LED RGB dans 8 zones sur chaque module.

Vous pouvez utiliser votre compte Amazon France sur Amazon Allemagne et il n'y a pas de douanes. Si vous êtes perdu en allemand, vous pouvez traduire le site en anglais.


> Voir l'offre

Sujets relatifs
insérer contenu d'une cellule dans texte
eclater le contenu d'une cellule dans plusieurs
case à cocher dans cellule Excel 2010
Recopie cellule dans un autre classeur
Word 2007-Texte centré dans une cellule
Comment récupérer la barre d'outils dans Word 2007 ?
toutes les données dans une cellule
Probleme de chiffre dans cellule
se positionner avec une macro dans une cellule précise
0.00€ dans cellule
Plus de sujets relatifs à récupérer contenu d''une cellule dans en-tête
 > Tous les forums > Forum Bureautique