Discussion :

[stefdeth]

Bonjour,

J'ai créé une macro pour afficher , en pied de page , 4 cellules de ma feuille excel.
Ces 4 cellules seront modifiées quotidiennement par d'autres utlisateurs.

Je souhaiterais qu'un update soit automatique avant d'effectuer l'impression.

Voici la macro initial

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub i1()
ActiveSheet.PageSetup.LeftFooter = Range("A3").Value & vlbf & Range("B3").Value
ActiveSheet.PageSetup.RightFooter = Range("A4").Value & vlbf & Range("B4").Value
End Sub

Pourriez-vous m'aider ?

[OBO29]

Bonsoir

pas testé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub Workbook_BeforePrint(Cancel As Boolean)
i1
End Sub

A+

[unparia]

Bonjour
Il suffit d'utiliser l'évènement worksheet_change et d'y lancer ta macro si target est l'une de tes cellules en cause.

[stefdeth]

Merci pour l'info,

Je suis novice dans les macros ( je m'y suis lance ve midi)
Peux-tu m'aider un peu plus ?

[OBO29]

Hello,

Sous "VBAProject"-> ThisWorkbook
Au dessus de la fenêtre du code, sélectionner la liste déroulante "(Général) puis choisir "Workbook"
A sa droite, sélectionner l'autre liste déroulante et sélectionner "BeforePrint".

Dans le fenêtre du code, sa a dû créer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub Workbook_BeforePrint(Cancel As Boolean)
 
End Sub

Il ne te reste plus qu'à appeler le programme que tu as créé précédemment dans l'évènement "BeforePrint"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub Workbook_BeforePrint(Cancel As Boolean)
i1
End Sub

Et voilà.

A+