Procédure événementielle

[cibleo]

Bonjour à tous,

J'ai créé une petite procédure événementielle qui insère un pied de page dans une feuille de calcul nommée "Modele".
Mais comme je débute en Vba, j'ai nettememt l'impression que celle-ci ralentit le processus.

J'aurai donc 3 questions à vous poser :

L'évènement choisi est-il le bon ?
Si j'ai bien compris c'est un changement dans une cellule de la feuille active qui provoque l'évènement, est-ce le meilleur choix ?

Les instructions sont elles bien ordonnées et bien écrites ?

Et surtout, dans quelle fenêtre de code dois-je placer cette procédure ?
Module standard, ThisWorKbook ou bien dans la fenêtre code de ma feuille de calcul nommée "modèle" qui sera dupliquée 60 fois, sachant que ce pied de page ne doit s'afficher que dans ces 60 feuilles plus le modèle.
J'ai d'autres feuilles de calcul dans mon classeur mais je ne veux pas que ce pied de page s'y affiche.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim datejour
datejour = Format(Now, "dddd dd mmmm yyyy à hh:mm")
ActiveSheet.PageSetup.LeftFooter = "Relevé mensuel de " & Range("A2").Value
ActiveSheet.PageSetup.CenterFooter = "Imprimé le " & datejour
ActiveSheet.PageSetup.RightFooter = "Page &P de &N pages"
End Sub

Merci pour vos conseils Cibleo

 

[Pierrot93]

Re : Procédure événementielle

Re
Salut Jean-Claude🙂

surtout pour saluer Jean-Claude🙂, beaucoup plus rapide, tu peux aussi grouper comme ceci :

  ws.PageSetup.CenterFooter = "&""Verdana,Normal""&20 " & Format(Range("B2").Value, "mmmm yy")

@+

 

[cibleo]

Re : Procédure événementielle

Re JCGL, Pierrot93,

Merci à vous deux.

A bientôt, Cibleo