lien entre pieds de page et cellule

[chaelie2015]

Bonsoir Forum
Comment faire pour afficher des données de cellule ( cellules fusionnée) dans le pied de page de la feuille ?
Merci par avance

 

[Staple1600]

Bonjour le fil, chaelie2015

Un exemple issu de l'enregistreur de macros

Sub Macro1()
Dim Rng As Range
Set Rng = Range("B2")
Application.PrintCommunication = False
ActiveSheet.PageSetup.CenterFooter = Rng.Value
Application.PrintCommunication = True
End Sub

 

[chaelie2015]

Bonjour JM
C'est parfait.
merci et a+ 😉

 

[chaelie2015]

Bonsoir Forum , JM
Je souhaite ajouter un texte dans le pied de page coté gauche est il possible avec ce code ?

rivate Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
Dim Rng1 As Range
Set Rng = Range("K4")
Set Rng1 = Range("M2")

Application.PrintCommunication = False
ActiveSheet.PageSetup.CenterFooter = Rng.Value
ActiveSheet.PageSetup.LeftFooter = Rng1.Value
Application.PrintCommunication = True


End Sub

Merci

 

[job75]

Bonsoir,

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.PageSetup.CenterFooter = [K4]
ActiveSheet.PageSetup.LeftFooter = [M2]
End Sub

A+

 

[chaelie2015]

Bonsoir JOB75
Merci, cest parfait
a+