Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Valeur d'une cellule dans pied de page

Valeur d'une cellule dans pied de page

1 réponse
Avatar
Christian de BXL
Bonjour,
J'essaie de mettre la valeur d'une cellule (G4) d'une feuille (Feuille de
soins) dans le pied de page d'une autre feuille.
Après des recherches dans les posts du forum, je suis arrivé à cette macro,
qui me semble logique, que j'ai placé dans le code de la feuille MAIS cela ne
fonctionne pas. Où est l'erreur?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Worksheets("Feuille de soins").Range("G4").Address Then
With ActiveSheet.PageSetup
.CenterFooter = Worksheets("Feuille de soins").Range("G4").Value
End With
End If
End Sub

Merci de votre aide
Christian
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
michdenis
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("G4").Address Then
With Me.PageSetup
.CenterFooter = Worksheets("Feuille de soins").Range("G4").Value
.
End With
Me.printout
End If
End Sub





"Christian de BXL" a écrit dans
le message de news:
Bonjour,
J'essaie de mettre la valeur d'une cellule (G4) d'une feuille (Feuille de
soins) dans le pied de page d'une autre feuille.
Après des recherches dans les posts du forum, je suis arrivé à cette macro,
qui me semble logique, que j'ai placé dans le code de la feuille MAIS cela
ne
fonctionne pas. Où est l'erreur?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Worksheets("Feuille de soins").Range("G4").Address Then
With ActiveSheet.PageSetup
.CenterFooter = Worksheets("Feuille de soins").Range("G4").Value
End With
End If
End Sub

Merci de votre aide
Christian