Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Imprimer

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Cougar
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

Cougar

XLDnaute Impliqué
Bonjour le forum,

Voici mon code pour lancer l’impression automatiquement des feuilles. Le nombre de feuilles à imprimer est en fonction de la valeur en « B6 ». Est-ce qu’il aurait une façon plus simple d’écrire ce code ?

If Range("b6") = 1 Then
Sheets(Array("Feuil1")).Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
Else
If Range("b6") = 2 Then
Sheets(Array("Feuil1", "Feuil2")).Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, Collate _
:=True
Else
If Range("b6") = 3 Then
Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=3, Copies:=1, Collate _
:=True
Else
If Range("b6") = 4 Then
Sheets(Array("Feuil1", "Feuil2", "Feuil3", "Feuil4")).Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=4, Copies:=1, Collate _
:=True
Else

Etc.

Merci de pour votre aide.
 
Trier par date Trier par votes
Re : Imprimer

Bonjour Cougar et le forum,

Un essai de commande de l'impression :

Sub Imprimer()
Dim i As Byte, X As Byte, N As Byte, M As Byte
Application.ScreenUpdating = False
X = Sheets("Accueil").Range("B6").Value ' Nombre de feuilles à imprimer
N = 2 ' première feuille à imprimer après la feuille "Accueil", feuille servant d'interface.
M = N-1 + X ' Ajout du nombre de feuilles à imprimer
For i = N To M
Worksheets(i).PrintOut Copies:=1, Collate:=True
Next i
Application.ScreenUpdating = True
End Sub

Cordialement

Bernard
 
Vote positif 0 Vote négatif
Re : Imprimer

Bonjour à vous deux et au forum

non testé mais je garde l'idée initiale du nom de feuille plutôt que de l'indice que l'on maîtrise plus ou moins bien (ordre de création des feuilles, suppressions/ajouts...)

Sub essaiimprim()
Dim nombre As Single, zone As String
nombre = Sheets("Accueil").Range("B6").Value ' Nombre de feuilles à imprimer
If nombre < 1 Then Exit Sub
zone = "Feuil1"
If nombre > 1 Then
For I = 2 To nombre
zone = zone & ", Feuil" & I
Next
End If
Sheets(Array(zone)).Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=4, Copies:=1, Collate _
:=True
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

J
  • Résolu(e)
Microsoft 365 Valeur cellule dans un macro
2
Réponses
17
Affichages
689
job75
V
  • Question Question
XL 2016 transformer en boucle une macro créer avec l'enregistreur automatique
Réponses
3
Affichages
242
vazvaz
V
  • Question Question
XL 2016 compilation macro on/off
Réponses
7
Affichages
178
job75
T
  • Question Question
XL 2013 Impression, choix de feuilles et nombre de copie
Réponses
11
Affichages
788
AtTheOne
F
  • Question Question
Autres Listbox-transfère la recherche dans une ListBox vers une feuille de calcul
2
Réponses
18
Affichages
535
dysorthographie
U
  • Question Question
Autres Quelques fois ça bug feuilles cachées
Réponses
2
Affichages
253
cathodique
  • Question Question
XL 2019 Prénoms à souhaiter
2
Réponses
15
Affichages
788
lynyrd
N
  • Résolu(e)
Microsoft 365 Macro enregistrement automatique pdf
2
Réponses
18
Affichages
1 K
Nounours4173
N
L
  • Résolu(e)
Microsoft 365 Erreur d'exécution 1004 : la méthode select de la classe Worksheet a échoué
Réponses
7
Affichages
269
LaurentVasseur
L
  • Question Question
Microsoft 365 Excel VBA: manipuler des fichiers partagés via Teams / Sharepoint
Réponses
2
Affichages
132
Eric 888
H
  • Question Question
XL 2013 Erreur VBA 1004 Impression zone d'impression tableau
Réponses
13
Affichages
705
Helios77
H
  • Question Question
XL 2016 intégrer une macro sur les nouvelles feuilles crées
Réponses
6
Affichages
245
pascal21
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
792
ph.vanne
L
  • Question Question
Microsoft 365 Erreur automation 440 sur code VBA
Réponses
1
Affichages
396
job75
J
  • Question Question
Microsoft 365 Userform comboboxes indexés
Réponses
8
Affichages
392
jp26200
J
F
  • Résolu(e)
Autres Insérer une ligne
2 3
Réponses
36
Affichages
3 K
francescofrancesco
F
  • Question Question
XL 2021 La méthode union de l'objet '_Global' a échoué
Réponses
10
Affichages
342
sousou
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
430
patricktoulon
  • Résolu(e)
XL 2021 Problème réaffectation variable Objet
Réponses
2
Affichages
240
treza88
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
617
un internaute
U
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…