problème sur code pied de page

S

sylvain

Guest
bonjour le forum,

j'ai un petit problème d'adaptation de code pour le pied de page d'une feuille. J'aimerais que le code ci dessous s'exécute pour la feuille active de mon classeur et non pour toutes les feuilles comme c'est le cas actuellement (cause : longueur d'éxécution du code).

Meric du coup de pouce...

Sub PiedPagePerso()
Dim f As Worksheet

For Each f In ActiveWorkbook.Worksheets
With f.PageSetup
.LeftFooter = 'Nom éleveur : ' & Worksheets('menu').Cells(34, 7).Value
.CenterFooter = ''
.RightFooter = 'Simulation ' & Worksheets('menu').Cells(15, 15).Value
End With
Next
End Sub

sylvain
 

Hervé

XLDnaute Barbatruc
Supporter XLD
BOnjour sylvain, le forum

ton code utilise une boucle (for each f ...) pour travailler sur chaque feuilles de ton classeur, il te suffit de ne plus faire la boucle :

Sub PiedPagePerso()

With ActiveSheet.PageSetup
.LeftFooter = 'Nom éleveur : ' & Worksheets('menu').Cells(34, 7).Value
.CenterFooter = ''
.RightFooter = 'Simulation ' '& Worksheets('menu').Cells(15, 15).Value
End With

End Sub

En espérant t'avoir aidé

salut
 

Statistiques des forums

Discussions
300 761
Messages
1 987 018
Membres
209 679
dernier inscrit
JihelP