Macro pied de page

Bonjour à tous et toutes,

Je rame pour mettre dans ma macro "imprimer" le fait de mettre ce que j'ai en colonne C (feuil2) sur le pied de page de l'onglet concerné sur ma colonne A (feuil2).

La formule imprime l'onglet concerné avec ce pied page et passe à la ligne suivante.

Quelqu'un pour m'aider?

Merci encore!

Bonjour,

Enlevez les guillemets dans la ligne suivante

sh.PageSetup.CenterFooter = "Cells(lig, 3).Value"

Cdlt

Grrrr mais oui qu'est ce que je suis bête! Merci

Dernier soucis le mettre en gras Arial 20 de police….

sh.PageSetup.CenterFooter = "&G&20&""Arial" Cells(lig, 3).Value

Je ne sais pas ou est mon erreur du coup...

Autocorrection...

sh.PageSetup.CenterFooter = "&""Arial,Gras""&70" & Cells(lig, 3).Value

Tout fonctionne mais:

Par contre il tourne en boucle… comment le stopper lorsqu'il ne rencontre plus de valeur en colonne B?

Merci

Essayez ceci

Sub Imprimer()
    Dim lig As Long
    Dim sh As Worksheet, f1 As Worksheet
    Set f1 = Sheets("Feuil2")
    With f1
        For lig = 2 To .Range("B" & Rows.Count).End(xlUp).Row
            For Each sh In Worksheets
                sh.PageSetup.CenterFooter = "&""Arial,Gras""&70" & Cells(lig, 3).Value
            Next sh
            If f1.Cells(lig, 2).Value = 1 Then Sheets(Cells(lig, 1).Value).PrintOut
        Next lig
    End With
    Set f1 = Nothing
    Set sh = Nothing
End Sub

Merci Arturo83! Cela bloque toujours mais pas grave du coup je crée un bogage afin d'éviter le plantage!

Merci! Bonne journée.