inserer valeur cellune nommée dans pied de page

[sri75]

Bonjour, dans mon fichier j'ai une cellule nommée "test" en B4 et je voudrais pouvoir inserer la valeur de cette cellule dans le pied de page à gauche dans excel.

ex si la valeur de B4 est 40 je voudrais avoir 40 dans mon pied de page à gauche.

Merci à tous pour vos idées.

Bonne journée

Stephane

 

[Dull]

Re : inserer valeur cellune nommée dans pied de page

Salut sri75, le Forum

Essaye les 5 Discussions au bas de cette page la réponse s'y trouve notamment la troisième.

Bonne Journée

 

[sri75]

Re : inserer valeur cellune nommée dans pied de page

Effectivement ca marche avec la valeur d'une cellule mais si a la place de range("n1") j'ai test qui est le nom de ma cellule nommée ca ne fonctionne pas.

j'ai modifié mon fichier en y inserant la macro.

merci pour tes idées

 

[Dull]

Re : inserer valeur cellune nommée dans pied de page

Re

Peut-être comme cela

Option Explicit

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.LeftFooter = Range("test") ' Ou .LeftFooter = [test]
End Sub

Bonne Journée

 

[sri75]

Re : inserer valeur cellune nommée dans pied de page

j'ai trouvé :

Option Explicit

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.LeftFooter = Range("hh")
End With
End Sub


c'était comme tu le disais mais j'avais copié la macro dans feuil1 au lieu de thisworkbook !

serait il possible justement de le faire juste sur une feuille ?

Merci

 

[Dull]

Re : inserer valeur cellune nommée dans pied de page

Re

Pas sur d'avoir compris mais essaye ce code dans le Module ThisWorkbook

Option Explicit

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet
    If .Name = "Feuil1" Then
        With .PageSetup
            .LeftFooter = [test]
        End With
    End If
End With
End Sub

Bonne Journée