problème sur code pied de page

[sylvain]

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é]

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

 

[sylvain]

bonjour à toi hervé,

ton code marche mieux, il est un peu plus rapide, merci de ton aide.
je ne connaissais pas le acticesheet.

en tout cas merci de ton coup de pouce


a plus sur le forum