Bouton VBA pour imprimer une feuille

Version imprimable

Bonsoir le Forum,
Je souhaiterais utiliser le code
Code:

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

Citation:

Envoyé par deus-ex-inferno

Bonjour,

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

Code:

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

26/09/2019, 05h58
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
26/09/2019, 09h25
Invité

Citation:

Envoyé par deus-ex-inferno

???, 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.
26/09/2019, 19h09
deus-ex-inferno

1 pièce(s) jointe(s)

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.
27/09/2019, 04h26
Invité

Citation:

Envoyé par deus-ex-inferno

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 :plusser:
28/09/2019, 03h04
deus-ex-inferno

2 pièce(s) jointe(s)

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
30/09/2019, 17h55
deus-ex-inferno

1 pièce(s) jointe(s)

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.