Impression de plusieurs onglets

[SLIJACK]

Bonjour le forum!
j'ai fait un code "avec de l'aide bien sur" pour choisir quels onglets imprimer
pour chaque onglet j'aimerai pourvoir choisir aussi une quantité de copie avec une valeur par défaut fixé à 1. la présentation n'a aucune importance.
je joints un fichier exemple.
je vous remercie d'avance pour l'aide que vous m'apporter

 

[SLIJACK]

Re : Impression de plusieurs onglets

Bonsoir le forum
Au secours!!!!!!!!
Un nouvelle appel pour de l'aide sur mon problème d'impression d'onglet

 

[did85]

Re : Impression de plusieurs onglets

Bonjour,
modifie dans ton formulaire dans la Sub "Imprimer" cette ligne :

If .Selected(i) Then Sheets(.List(i)).PrintOut

Par

If .Selected(i) Then Sheets(.List(i)).PrintOut , , Sheets("Feuil1").Cells((10 + i), 7)

Tu vas chercher dans la colonne G le nombre d'impression souhaitée.
Bon dimanche
Did85

 

[SLIJACK]

Re : Impression de plusieurs onglets

bonjour
merci à tous tout fonctionne bien juste un petit problème de présentation je joint un fichier
j'ai du mal a faire coïncider le nom des onglets avec leurs quantité
et régler la zone d'affichage des onglets les noms ne s'affiche pas au complet
et est-il possible d'exclure l'onglet menu.
Quoiqu'il en soit je remercie tous ceux qui m'ont aidée

 

[did85]

Re : Impression de plusieurs onglets

Bonsoir,
j'ai traité le point :
- zone affichage des onglets en totalité dans la listbox
- exclusion de l'onglet menu
Mais je n'ai pas réussi à faire coïncider ta listbox avec les lignes de ton classeur, c'est difficile de prendre en compte la taille de la police de la listbox en fonction de la hauteur des lettres composants le nom de l'onglet. Puis de la faire correspondre à la police de celle de la cellule.
J'ai donc contourné le problème en inscrivant le nom de chaque onglet à droite des cellules d'impression.

En espérant que ça te convienne.
Bonne soirée
Did85