Discussion :

[Henri1830]

Bonjour,

Je suis face à une curiosité.
J'imprime 3 listes provenant toutes de la même source de données.
C'est une liste de participants à un évènement et j'ai besoin de 3 listes distinctes. Les soldats, les sous-officiers et les officiers.
Comme il s'agit de la même liste filtrée différemment, j'ai développé une petite routine que j'ai copié/collé et pour lesquelles j'ai fait les adaptations nécessaires.
J'ai donc trois macros différentes. Il s'agit donc de trois modules différents.

Parmi ces adaptations, il y a l'en-tête du document.
Voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$1"
        .PrintTitleColumns = ""
        .LeftHeader = "&G"
        .CenterHeader = "&18Liste des soldats"
        .RightHeader = ""
        .LeftFooter = "Imprimé le &D à &T"
        .CenterFooter = ""
        .RightFooter = "Page &P/&N"
         etc...

Si j'imprime la liste en lançant la macro, le contenu de CenterHeader est le dernier utilisé. Donc, s'il s'agissait de "Liste des sous-officiers", il m'imprime "Liste des sous-officiers" malgré le .CenterHeader = "&18Liste des soldats" !
Par contre, si je passe sur l'instruction via <F8>, c'est le contenu correct qui est utilisé ?!

Quelqu'un a une idée ?

Merci d'avance pour vos lumières,

Henri

[Jean-Philippe André]

Salut,

je n'ai pas la reponse a ta question, mais j'ai une idee pour t'affranchir du probleme :

- faire 3 feuilles =]

[Henri1830]

Je pense que je n'ai pas été clair.
J'ai trois macros différentes que j'ai reliées à des icônes dans le ruban et qui lance chacune une liste avec un en-tête différent.

Il s'agit donc de trois modules différents.

Est-ce que vous pouvez préciser votre pensée ?

Cordialement

Henri

[Jean-Philippe André]

Oui bien sur,

ta ligne travaille sur
With ActiveSheet.PageSetup

du coup pour eviter que le setup parte dans tous les sens => 1 feuille par liste

Sur pourquoi le F8 et pas le F5, je pense que c'est surtout un probleme de rafraichissement ecran, ou alors une info a laquelle nous n'avons pas (encore) eu acces.

[Henri1830]

Merci pour le conseil, Jean-Philippe.
Le mystère restera entier, mais ce n'est pas bien grave puisqu'il y a une alternative.
Bonne journée !
Henri