ReBonsoir les lecteurs,
Maintenant, je me confronte à un autre petit soucis :
Comment peut on mettre la valeur de la cellule A1 dans le pied de page
?
Merci pour vos reponses
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
francois.forcet
Salut JLuc Je te propose de mettre dans le VBA de cette feuille ce code :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("A1").Address Then With ActiveSheet.PageSetup .CenterFooter = Range("A1") End With End If End Sub
Qui aura pour effet chaque fois que la cellule A1 est modifiée de reporter sa nouvelle valeur dans son pied de page au milieu
Celà devrait te convenir
Dis moi !!!!
Salut JLuc
Je te propose de mettre dans le VBA de cette feuille ce code :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("A1").Address Then
With ActiveSheet.PageSetup
.CenterFooter = Range("A1")
End With
End If
End Sub
Qui aura pour effet chaque fois que la cellule A1 est modifiée de
reporter sa nouvelle valeur dans son pied de page au milieu
Salut JLuc Je te propose de mettre dans le VBA de cette feuille ce code :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("A1").Address Then With ActiveSheet.PageSetup .CenterFooter = Range("A1") End With End If End Sub
Qui aura pour effet chaque fois que la cellule A1 est modifiée de reporter sa nouvelle valeur dans son pied de page au milieu
Celà devrait te convenir
Dis moi !!!!
rthompson
Bonjour
Je ne sais pas pour lui Mais pour moi ça marche
Merci et à bientôt
Rex
a écrit dans le message de news:
Salut JLuc Je te propose de mettre dans le VBA de cette feuille ce code :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("A1").Address Then With ActiveSheet.PageSetup .CenterFooter = Range("A1") End With End If End Sub
Qui aura pour effet chaque fois que la cellule A1 est modifiée de reporter sa nouvelle valeur dans son pied de page au milieu
Celà devrait te convenir
Dis moi !!!!
Bonjour
Je ne sais pas pour lui
Mais pour moi ça marche
Merci et à bientôt
Rex
<francois.forcet@wanadoo.fr> a écrit dans le message de news:
7aa8bff9-84cd-4c5d-ae29-7ab82743fc89@y38g2000hsy.googlegroups.com...
Salut JLuc
Je te propose de mettre dans le VBA de cette feuille ce code :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("A1").Address Then
With ActiveSheet.PageSetup
.CenterFooter = Range("A1")
End With
End If
End Sub
Qui aura pour effet chaque fois que la cellule A1 est modifiée de
reporter sa nouvelle valeur dans son pied de page au milieu
Salut JLuc Je te propose de mettre dans le VBA de cette feuille ce code :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("A1").Address Then With ActiveSheet.PageSetup .CenterFooter = Range("A1") End With End If End Sub
Qui aura pour effet chaque fois que la cellule A1 est modifiée de reporter sa nouvelle valeur dans son pied de page au milieu
Celà devrait te convenir
Dis moi !!!!
JLuc
*Bonjour *, Merci, c'est nickel
Salut JLuc Je te propose de mettre dans le VBA de cette feuille ce code :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("A1").Address Then With ActiveSheet.PageSetup .CenterFooter = Range("A1") End With End If End Sub
Qui aura pour effet chaque fois que la cellule A1 est modifiée de reporter sa nouvelle valeur dans son pied de page au milieu
Celà devrait te convenir
Dis moi !!!!
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
*Bonjour francois.forcet@wanadoo.fr*,
Merci, c'est nickel
Salut JLuc
Je te propose de mettre dans le VBA de cette feuille ce code :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("A1").Address Then
With ActiveSheet.PageSetup
.CenterFooter = Range("A1")
End With
End If
End Sub
Qui aura pour effet chaque fois que la cellule A1 est modifiée de
reporter sa nouvelle valeur dans son pied de page au milieu
Salut JLuc Je te propose de mettre dans le VBA de cette feuille ce code :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("A1").Address Then With ActiveSheet.PageSetup .CenterFooter = Range("A1") End With End If End Sub
Qui aura pour effet chaque fois que la cellule A1 est modifiée de reporter sa nouvelle valeur dans son pied de page au milieu
