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

Imprimer une sélection de feuilles

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion faltric
  • 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
F

faltric

Guest
Bonjour,
J'ai un classeur avec plusieurs feuilles et je voudrais, à l'aide d'un bouton dans la feuille 1, pouvoir imprimer une certaine quantitée de feuilles indiquée dans une cellule. voir fichier ci-joint.
Par avance merci.
 

Pièces jointes

Trier par date Trier par votes
Re : Imprimer une sélection de feuilles

Bonjour,

Pas sur d'avoir bien compris ta question.

Si ton objectif est d'imprimer un certain nombre de copie, voici la formule :
ActiveWindow.SelectedSheets.PrintOut Copies:=Range("G7").Value, Collate:=True

Si par contre tu souhaite imprimer le contenu des trois premiers onglets en mettant 3 dans G7, je ne vois pas trop.

Bonne journée
 
Vote positif 0 Vote négatif
Re : Imprimer une sélection de feuilles

Bonjour,

Pas compris ton problème.

tu veux imprimer 3 fois la même feuille ? laquelle ?

tu veux imprimer 3 feuilles différentes ? lesquelles ?

les zones d'impression ne sont pas définies si tu veux imprimer environ 180 lignes soit # 3 feuilles.

peux tu préciser ton besoin ?

@+
 
Vote positif 0 Vote négatif
Re : Imprimer une sélection de feuilles

bonsoir

je reprend le flambeau de mon collègue Faltric

d'abord merci pour vos réponse , je vais essayer de vous expliquer ce que nous voudrions faire

dans le classeur de Faltric nous voulons que en rentrant un nombre dans la cellule que cela imprime le nombre correspondant de feuilles en partant de 1 jusqu a ce nombre

en fait je pense que le code sera plus parlant que des phrases

Code: 
Private Sub CommandButton1_Click()

Dim X As Integer
X = Range("G7")

If X = 1 Then
Sheets("1").PrintOut
End If

If X = 2 Then
Sheets(Array("1", "2")).PrintOut
End If

If X = 3 Then
Sheets(Array("1", "2", "3")).PrintOut
End If

If X = 4 Then
Sheets(Array("1", "2", "3", "4")).PrintOut
End If

If X = 5 Then
Sheets(Array("1", "2", "3", "4", "5")).PrintOut
End If

If X = 6 Then
Sheets(Array("1", "2", "3", "4", "5", "6")).PrintOut
End If

If X = 7 Then
Sheets(Array("1", "2", "3", "4", "5", "6", "7")).PrintOut
End If

If X = 8 Then
Sheets(Array("1", "2", "3", "4", "5", "6", "7", "8")).PrintOut
End If



End Sub


on a ébauchè le code ci dessus qui est fonctionnel mais qui est assez lourd et très long a taper si comme dans certains classeur on atteint un nombre de pages élevé

serait il possible de le simplifier du genre

Code: 
X = Range("G7")
sheets(array("1" to X)).printout

nous ne savons pas quel genre de syntaxe utiliser

merci pour votre aide😛

Guillaume
 

Pièces jointes

Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Imprimer une sélection de feuilles

Bonsoir


A tester
Code: 
Sub impression() 
Dim i As Integer 
 Dim X As Integer
X = Sheets(1).Range("G7") 
If X=0 Or X > Sheets.Count Then Exit Sub   
For i = 1 To X
 With Sheets(i)
    .PrintOut
  End With 
Next 
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Imprimer une sélection de feuilles

merci pour votre rapidité

Je viens de mettre votre bout de code mais cela n'a pas l'air de fonctionner mais pourriez vous quand même contrôler que je l'ai inséré correctement car je ne connais que très peu la programmation vba .
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Imprimer une sélection de feuilles

Re

Essayes comme ça
Code: 
Private Sub impression_Click()
Dim i As Integer
 Dim X As Integer
X = Sheets("[B]Relevé[/B]").Range("G7")
If X = 0 Or X > Sheets.Count Then Exit Sub
For i = 1 To X
 With Sheets(i)
    .PrintOut
  End With
Next
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Imprimer une sélection de feuilles

Re


Pour ne pas gacher de papier 😉
Code: 
Private Sub impression_Click()
Dim i As Integer
 Dim X As Integer
X = Sheets("Relevé").Range("G7")
If X = 0 Or X > Sheets.Count Then Exit Sub
For i = 1 To X
 With Sheets(i)
    .[B]PrintPreview[/B]
  End With
Next
End Sub

Test ok chez moi
 
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Q
  • Résolu(e)
XL 2021 Ne pas imprimer une feuille si cellule de reference est égale a 0
Réponses
8
Affichages
228
job75
  • Résolu(e)
XL 2016 VBA - Trouver les feuilles d'un classeur fermé
12 13 14
Réponses
196
Affichages
4 K
patricktoulon
  • Résolu(e)
XL 2016 *** RESOLU MERCI :)*** Impression personnalisée.
4 5 6
Réponses
78
Affichages
2 K
Agecanonix35400
H
  • Question Question
Microsoft 365 nommer automatiquement les différentes feuilles d'un dossier
Réponses
2
Affichages
115
Hdv95
H
A
  • Question Question
Autres Excel 2007 Recherche dans plusieurs feuilles INDEX EQUIV INDIRECT DECALER
Réponses
3
Affichages
273
AD74
A
  • Question Question
XL 2016 intégrer une macro sur les nouvelles feuilles crées
Réponses
6
Affichages
234
pascal21
J
  • Résolu(e)
Microsoft 365 Impression groupée de plusieurs feuilles dans plusieurs onglets
2
Réponses
15
Affichages
780
Phil69970
T
  • Résolu(e)
XL 2016 Problème sécutité Microsoft Office dans Excel 2016
Réponses
6
Affichages
205
TooFatBoy
A
  • Résolu(e)
Microsoft 365 filtres et zone d'impression Excel
Réponses
9
Affichages
304
auloin
A
J
  • Résolu(e)
Microsoft 365 Valeur cellule dans un macro
2
Réponses
17
Affichages
681
job75
R
  • Question Question
XL 2021 Recherche formule pour compléter une cellule a partir des données d'une autre feuille du classeur (16/03/2026)
2
Réponses
18
Affichages
530
laurent950
M
  • Question Question
Microsoft 365 [RESOLU] Simplifier une formule
Réponses
6
Affichages
294
Gégé-45550
  • Question Question
XL 2019 Extraire les valeurs de plusieurs plages identiques de plusieurs feuilles différentes
Réponses
12
Affichages
391
mapomme
J
  • Résolu(e)
Microsoft 365 imprimer feuille selon valeur cellule
Réponses
6
Affichages
490
juju91
J
  • Question Question
Microsoft 365 créer des feuilles automatiques et une formule avec condition de remplissage
Réponses
2
Affichages
416
luno123
U
  • Résolu(e)
XL 2016 Création d'un fichier excel à partir d'un bouton
Réponses
7
Affichages
488
Utilisateur_X
U
  • Résolu(e)
Microsoft 365 Sélection d'étiquettes sur une planche
Réponses
13
Affichages
594
dysorthographie
M
  • Résolu(e)
Autres Faire une recherche de sous-dossiers Windows (pas de fichiers) dans un dossier précis à partir de son nom contenu dans une cellule
6 7 8
Réponses
106
Affichages
4 K
job75
K
  • Résolu(e)
Microsoft 365 Rajout d'une colonne dans une macro mais cela ne fonctionne pas
Réponses
11
Affichages
308
Kassou
K
D
  • Résolu(e)
XL 2019 Boucle sur plusieurs feuilles
Réponses
6
Affichages
627
dadaze
D
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…