Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

URGENT !! Pied de page et référence à une cellule

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Xanthar15
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
X

Xanthar15

XLDnaute Nouveau
Bonjour,

Tout d'abord désolé de faire le boulet en disant que c'est URGENT mais ça l'est vraiment (j'ai besoin de la réponse pour ce soir !)

Alors merci d'avance à tous ceux qui me répondront !

Voila le problème, dans le fichier ci joint, le pied de page fait référence à une cellule (la cellule B5 de la feuille 1)
Et quand je change la valeur de la cellule et que je fait impression du classeur entier (je tiens à faire de cette façon), le changement ne se fait que sur la 1ere feuille

pourquoi ?

Et encore pire, quand je crée une macro pour faire exactement la meme chose (cad imprimer le classeur entier) ca me chamboule tous le pied de page et l'en tete

Mes formules VBA pour le pied de page et l'en tete ne sont p-e pas bonnes ?

Merci si vous trouvez une solution

Et encore merci à vous tous et à Exccel Download qui m'avaient déjà bien aidé pour d'autres choses !!
 

Pièces jointes

Trier par date Trier par votes
Re : URGENT !! Pied de page et référence à une cellule

Bonjour chez vous


Pour la macro Impressionglobale2


tu peux alléger ton code ainsi

Code: 
Sheets(Array("Feuil1", "Feuil2", "Feuil3")).PrintOut Copies:=1, Collate:=True

Mettre le bon nom des feuilles à imprimer.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : URGENT !! Pied de page et référence à une cellule

Re 🙂,
Et comme ça
Code: 
Sub Impressionglobale2()
'
' Impressionglobale2 Macro
' Macro enregistrée le 27/08/2009 par fred
'
'
    Sheets("Quest.Entreprise").Select
    PiedsDePages
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("Quest.Conjoint").Select
    PiedsDePages
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("Rém°").Select
    PiedsDePages
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("Maladie").Select
    PiedsDePages
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("Maternité").Select
    PiedsDePages
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("Retraite").Select
    PiedsDePages
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("Séparation-Veuvage").Select
    PiedsDePages
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("Liste statuts").Select
    PiedsDePages
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("Tableau de bord").Select
    PiedsDePages
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("Liste de contrôle").Select
    PiedsDePages
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Sub PiedsDePages()
ActiveSheet.PageSetup.LeftFooter = "&I&U&F"
ActiveSheet.PageSetup.RightFooter = "&I&UDossier : " & Range("[COLOR=red][B]t1[/B][/COLOR]").Value
ActiveSheet.PageSetup.RightHeader = "&I&U" & Range("U1").Value
ActiveSheet.PageSetup.CenterHeader = " "
ActiveSheet.PageSetup.LeftHeader = "&I&UEtude du statut du conjoint du chef d'entreprise"
End Sub
bizarre ton t1 à la place du B5 dont tu parles...
Bon courage 😎
 
Vote positif 0 Vote négatif
Re : URGENT !! Pied de page et référence à une cellule

Bonsoir,
Non testé
Code: 
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Txt1 = Sheets("feuille1").Range("U1")
Txt2 = Sheets("Feuille1").Range("T1")
For i = 1 To Sheets.Count
    With Sheets(i).PageSetup
        .LeftHeader = "&I&UEtude du statut du conjoint du chef d'entreprise"
        .RightHeader = "&I&U" & Txt1
        .LeftFooter = "&I&U&F"
        .RightFooter = "&I&UDossier:" & Txt2
    End With
Next
End Sub

Edit : oublier de souligner !

A+
kjin
 
Dernière édition:
Vote positif 0 Vote négatif
Re : URGENT !! Pied de page et référence à une cellule

avant tout merci à tous pour vos réponses rapides

malheureusement les options proposées ne marchent pas (message erreur ou effet non escompté)

du coup je vais me débrouiller autrement c pas grave

(pour info la référence à T1 était une façon pour éviter de mettre la cellule d'une feuille précise car ca n'allait pas)
 
Vote positif 0 Vote négatif
Re : URGENT !! Pied de page et référence à une cellule

Bonsoir,

Tu peux essayer ceci :

Code: 
Private Sub Workbook_BeforePrint(Cancel As Boolean)
For Each X In Sheets
    X.PageSetup.LeftFooter = "&I&U&F"
    X.PageSetup.RightFooter = "&I&UDossier : " & Sheets("feuille1").Range("t1").Value
    X.PageSetup.RightHeader = "&I&U" & Sheets("feuille1").Range("U1").Value
    X.PageSetup.CenterHeader = ""
    X.PageSetup.LeftHeader = "&I&UEtude du statut du conjoint du chef d'entreprise"
Next
End Sub

Pour imprimer le classeur :
ActiveWorkbook.PrintOut
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2013 La cellule change de valeur à chaque page d'impression
Réponses
9
Affichages
219
Phil69970
G
  • Question Question
Microsoft 365 Formule qui retourne le contenu de la cellule sélectionnée
Réponses
5
Affichages
282
Guy_M
G
  • Résolu(e)
XL 2010 Saut de page et cellules fusionnées
Réponses
10
Affichages
441
cathodique
A
  • Résolu(e)
XL 2010 En-tête et pied de page par VBA
Réponses
3
Affichages
895
Appo1985
A
  • Question Question
XL 2016 [RESOLU]Affichage texte et résultat d'une cellule dans une forme
Réponses
3
Affichages
167
nrdz83
S
  • Résolu(e)
Microsoft 365 En-tête et pied de page
Réponses
5
Affichages
740
Sissou71
S
S
  • Résolu(e)
Microsoft 365 Problème de référence à une Feuil de calcul avec .FormulaLocal
Réponses
6
Affichages
190
sylvanu
  • Question Question
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
274
Lu76Fer
M
  • Question Question
XL 2019 Recherche d'un mot dans une chaîne de caractère depuis une plage de références puis si présent renvoyer la référence
Réponses
7
Affichages
659
MilieBZH
M
P
  • Question Question
XL 2021 Zone de texte incomplète faisant référence à une cellule
Réponses
2
Affichages
532
gbinforme
G
V
  • Résolu(e)
Microsoft 365 Barre de recherche : comment rendre éditable le résultat ?
2 3 4
Réponses
52
Affichages
959
dysorthographie
W
  • Question Question
XL 2019 Changer la graisse et la taille avant le deuxième retour à la ligne dans une cellule
Réponses
6
Affichages
128
Webperegrino
W
A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
264
Abi23
A
M
  • Question Question
Microsoft 365 Calcul du nombre de chiffres dans une cellule. Mise en page d'un fichier.
Réponses
2
Affichages
438
MCOTTEND
M
J
  • Résolu(e)
XL 2021 Coloriser et décoloriser une cellule activée par lien hypertexte
3 4 5
Réponses
71
Affichages
3 K
JMC
J
F
  • Résolu(e)
Microsoft 365 Donner a une cellule le nom de la feuille
Réponses
5
Affichages
529
Faroyo
F
  • Résolu(e)
XL 2013 lancement de phase de test de l’exporter html pdf coloration syntaxique version 2025/2026
2
Réponses
27
Affichages
1 K
patricktoulon
M
  • Résolu(e)
Microsoft 365 Gestion numéros de pages du classeur dans une cellule
2
Réponses
16
Affichages
2 K
sousou
P
  • Résolu(e)
Microsoft 365 Macro Excel pour effectuer des opérations sur les lignes et cellules adjacentes
2
Réponses
19
Affichages
387
Perceval973
P
C
  • Question Question
XL 2021 Retrouver l'assistant importation de texte quand on fait une extraction à partir d'un .CSV ?
Réponses
6
Affichages
194
cindynico38
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…