Pied de page reprenant des cellules

Bonjour à tous,

J'aimerais que le pied de page reprenne certaine cellules, dans l'idée voir fichier joint.

Je parviens à le faire très simplement en appliquant le signe =, mais cela n'est pas très jolis.

Merci à tous

89pdp.xlsx (8.81 Ko)

Bonjour Vincent,

Il faudra utiliser VBA et l'évènement beforeprint pour faire ce que vous souhaitez

A+

Bonsoir BrunoM45,

Pas vraiment compris ta réponse Beforeprint c'est pour imprimer? hors je cherche à lier le pied de page avec deux cellules.

J'ai tester plusieurs code vba, j'avoue que je ne suis pas spécialiste en VBA.

Je continue mes recherches.

Merci bonne soirée

Bonsoir à tous,

Voilas j'ai trouver le code VBA pour le pied de page suivant une cellule, mais comment Actualiser le pied de page lors d'une modification de la cellule?

Merci d'avance

Bonsoir,

Merci de joindre le code VBA trouvé SVP

Et nous dire ou vous l'avez mis, le mieux serait d'avoir le fichier

A+

Bonsoir Voici le code

Sub inscrire_pdp()
With ActiveSheet.PageSetup
.LeftFooter = Range("A1")
.CenterFooter = ""
.RightFooter = ""
End With
End Sub

A modifier suivant besoin.

43pdp.xlsm (12.82 Ko)

Bonsoir Vincent1966

J'ai bien fait de vous demander le code et le fichier non mais sérieux...

Jamais de la vie un code se met comme ça à l'arrache

image

Comme ceci oui

image

Voici le fichier

A+

Bonjour BrunoM45,

Je te remercie, effectivement je suis trop novice en VBA, je vais essayer de me former et comprendre comment tout cela fonctionne.

Passer de très belle fêtes.

Bonjour à tous,

Voici un code qui fait le tout y compris la modification du pied de page quand ont modifie les cellules concernées.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$B$4" Or Target.Address = "$C$4" Then
PageSetup.LeftFooter = "&E" & Range("B4").Value & vbLf & Range("C4").Value
End If
End Sub

Rechercher des sujets similaires à "pied page reprenant"