Discussion :

[operaq]

Bonjour,

Grace à cette page; http://fring.developpez.com/vba/excel/entetepiedpage/, j'ai pu configurer mes en-têtes et pieds de pages. Mais je rencontre quelque problèmes;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
With ActiveSheet.PageSetup
    'en-tête de page
    .LeftHeader = "&G&16&F"
    .CenterHeader = "&G&16Société"
    .RightHeader = "&G&16&D"
    'pied de page
    .LeftFooter = Sheets(1).Range("AC1")
    .CenterFooter = ""
    .RightFooter = "&G&16&P/&N" '<-- numéro de page / nombre de pages
 
End With

Le gras ne s'affiche pas, mais surtout ".LeftFooter(...)" n'est pas pris en compte, même en mettant un texte simple.
Pourriez vous m'éclairer ?

[parmi]

Bonjour,

Tu ne spécifies pas la version que tu utilises...
Ici, sous 2007, le gras ne s'écrit pas G, mais Gras

Résultat:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
    With ActiveSheet.PageSetup
        .LeftHeader = "&""-,Gras""&16&F"
        .CenterHeader = "&""-,Gras""&16Société"
        .RightHeader = "&""-,Gras""&16&D"
        .LeftFooter = Sheets(1).Range("AC1")
        .RightFooter = "&""-,Gras""&16&P/&N"

[keygen08]

Bonjour, comme ceci peut etre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.LeftFooter ="" & Sheets(1).Range("AC1").value

[parmi]

J'oubliais de mentionner qu'il y a peut-être une erreur sur Sheets(1).
Peut-être que ça ne pointe pas sur la bonne feuille (?)
Autrement, la façon dont je l'ai écrite fonctionne bien.

[operaq]

Bonjour,

Je travail sous 2010, le gras effectivement marche parfaitement maintenant merci.
Helas cela ne fonctionne toujours pas pour .LeftFooter, je suis pourtant sur la feuil1.

[jijie]

bonjour,

alors essaye de remplacer Sheets(1) par sheets("feuil1")

[operaq]

Ca marche parfaitement merci!
Néanmoins dans cette cellule que je souhaitais reporter il y a une formule (le nbre de ligne de mon tableau) mais lorsque je masque cette cellule pour ne pas qu'elle soit prise en compte lors de l'impression, elle disparaît du pied de page. Existe il une manière d’insérer un calcule directement dans le pied de page ou peut on demandé de figer cette valeur avant de masquer la cellule ?

[jijie]

si je comprend bien :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
dim NbLigne as integer
nbligne = Sheets("feuil1").Range("A65956").End(xlUp).Row 
'..............
'..............
 .LeftFooter =nbligne

[operaq]

merci affaire résolu