Discussion :

[deus-ex-inferno]

Bonsoir le Forum,
Je souhaiterais utiliser le code

Code :

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

1
2
3
4
5
Private Sub CommandButton1_Click()
Dim copies
copies = Abs(Val(InputBox("NOMBRE DE COPIES ?", "Indiquer la quantité désirée...")))
If copies Then ActiveWindow.SelectedSheets.PrintOut Copies:=copies
End Sub

Comment faire pour lui intégrer les feuilles à imprimer
Exemple: imprimer la feuille 1 et 3
par avance Merci

[Invité]

Bonjour,

Si les feuilles à imprimer sont toujours les mêmes :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub CommandButton1_Click()
 
Dim copies
Dim ShEnCours As Worksheet
 
    Set ShEnCours = ActiveSheet
    Sheets(Array("Feuil1", "Feuil3")).Select
    copies = Abs(Val(InputBox("NOMBRE DE COPIES ?", "Indiquer la quantité désirée...")))
    If copies Then ActiveWindow.SelectedSheets.PrintOut copies:=copies
    ShEnCours.Select
    Set ShEnCours = Nothing
 
End Sub

[deus-ex-inferno]

Bonjour Eric KERGRESSE,
Merci pour le code
C’est tout à fait ça.
Votre réponse "Si les feuilles à imprimer sont toujours les mêmes" m’inspire.
Serait-il possible d’ajouter au UserForme un menu déroulant pour choisir la feuille à imprimer ?
Merci

[Invité]

???, Pourquoi utiliser un Inputbox pour demander le nombre de copies si vous disposez d'un Userform ? Il vous suffit de mettre l'info dans un textbox.
Pour répondre à votre question, j'utiliserais une ListBox chargée avec les noms des feuilles imprimables avec la possibilité de sélectionner tout ou partie des items.
Ou mieux, si les feuilles à imprimer dépendent d'un contexte, j'utiliserais une Combobox pour choisir le contexte.

[deus-ex-inferno]

Bonsoir Eric KERGRESSE et le forum,
J’ai bien compris le principe de la ListBox
Mais je ne sais pas le faire.
De l’aide serai la bienvenue.
Merci par avance.

[Invité]

Hormis l'onglet Index, il n'y a que deux onglets "imprimables", cela n'a aucun intérêt dans ce cas.

Dans le fichier joint, un exemple de gestion d'absences d'une école avec un liste à liste qui pourrait être facilement transposé et où les classes pourraient correspondre à différents cas sélectionnant une liste de feuilles à imprimer, si vous avez de multiples cas à gérer.
Nb : Le fichier contient l'excellent contrôle calendrier de RUDURUPT qui se substitue aux contrôles DTPICKER et qui gère les jours fériés (français). Merci RUDURUPT

[deus-ex-inferno]

Bonjour Eric KERGRESSE et le forum,
Oui dans mon classeur, il y a plus d’une trentaine de feuilles.
J’ai juste mis quelque feuille dans la pièce jointe.
Transposé les code d’un exemple, me parait une très bonne idée
J’ai d’ailleurs trouvé un fichier avec un UserForm qui me semble parfait.
Seulement les codes qui sont intégrés, c’est du "chinois" pour moi.
Dun peu d’aide ne serait pas de refus.
Merci

[deus-ex-inferno]

Bonsoir le fil,
Après plusieurs jours de recherches sur le web j’ai enfin trouvé.
Je vous laisse profiter du UserForm et des codes.
Bonne soirée.