Exclure un pied de page sur 1 feuille Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
M
MJC55
Membre fidèle
Membre fidèle
Messages : 197
Appréciations reçues : 2
Inscrit le : 5 avril 2016
Version d'Excel : 2010

Message par MJC55 » 27 juin 2017, 10:09

Bonjour à tous

Voici mon problème :
Dans le ThisWorkbook d'un classeur, je demande la mise en place des pieds de pages de toutes les feuilles du classeur.
Or, sur deux feuilles (Lili et Lulu), je ne voudrais pas le pied de page droit, par contre je conserve l'automatisme du pied de page gauche et milieu !
Pourriez vous me conseiller pour réaliser cette manip
Merci d'avance de votre aide précieuse

Ci-joint la macro concernée (Aide de Joseph)

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Police As String
Dim Taille As String
Dim TexteLeft As String
Dim TexteCenter As String
Dim TexteRight As String

'****VARIABLES À DÉFINIR SELON TES BESOINS****
Police = "Arial"
Taille = 6
TexteLeft = Range("AX1000").Value
TexteCenter = Range("AX1001").Value
TexteRight = Range("AX1002").Value

With ActiveSheet
With .PageSetup
.LeftFooter = "&""" & Police & ",normal""" & "&" & Taille & TexteLeft
.CenterFooter = "&""" & Police & ",normal""" & "&" & Taille & TexteCenter
.RightFooter = "&""" & Police & ",normal""" & "&" & Taille & TexteRight
End With
.PrintPreview
End With

End Sub
M
MJC55
Membre fidèle
Membre fidèle
Messages : 197
Appréciations reçues : 2
Inscrit le : 5 avril 2016
Version d'Excel : 2010

Message par MJC55 » 27 juin 2017, 11:30

EST CE que je dois mettre cette macro dans chaque feuille ?
M
MFerrand
Fanatique d'Excel
Fanatique d'Excel
Messages : 17'171
Appréciations reçues : 446
Inscrit le : 20 juillet 2015
Version d'Excel : 2010 FR

Message par MFerrand » 27 juin 2017, 14:31

Bonjour,

Juste à mettre sous condition
        If ActiveSheet.Name <> "Lili" And ActiveSheet.Name <> "Lulu" Then _
          .RightFooter = "&""" & Police & ",normal""" & "&" & Taille & TexteRight
Cordialement.
M
MJC55
Membre fidèle
Membre fidèle
Messages : 197
Appréciations reçues : 2
Inscrit le : 5 avril 2016
Version d'Excel : 2010

Message par MJC55 » 27 juin 2017, 16:25

Bonjour MFerrand

Affaire soldée !!

Merci beaucoup et bon courage
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message