Feuilles destinées à l'impression sur un USF

[monsieurPatate]

Bonjour à tous,

J'ai plusieurs feuilles destinées à l'impression.
Cependant, l'utilisateur peut choisir de ne pas imprimer certaines feuilles.

Ainsi, j'ai réuni dans un USF l'ensemble des noms de feuille avec case à cocher. Si L'utilisateur ne désire pas une feuille elle sera masquée avant l'impression.
Cependant, ma liste de feuille est si longue que le USF dépasse l'affichage.

Avez-vous une solution à me proposer?

Merci beaucoup et bonne fin de journée

-Patate

 

[Emg]

Salut monsieurPatate le forum

Regarde si cet ancien file peut te convenir


<http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=63614&t=63585>

Gérard

 

[monsieurPatate]

Bonjour le forum,

merci EMG,

j'ai avec ton exemple une réponse: je n''utilisais pas un list box.

Cependant, y'a t-il moyen de remplacer la routine suivante:

For I = 0 To LbFeuilles.ListCount - 1
If LbFeuilles.Selected(I) = True Then
...
Sheets(LbFeuilles.List(I)).PrintOut
End If
Next I

Par quelque chose comme ActiveWorkbook.PrintOut afin de préserver la pagination
(dans ton exemple on imprime une page a la fois et donc le compteur de page est réinitialisé à chaque feuille lancé vers l'imprimante)

Merci et bonne soirée