Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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
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
 
S

sylvain

Guest
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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…