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

Impression en fonction de critères !!!

Créer une discussion

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

fileofish

XLDnaute Occasionnel
Bonjour Le Forum,

Je voulais savoir si il était possible d'imprimer en fonction de paramètres.
Je me trouve confronter à 2 questions :

1/ Question 1 :

Je souhaiterais imprimer un nombre de pages définis pour une feuille à sélectionner
Ex : Dans le fichier joint
Dans l'onglet Menu (partie Question 1), j'ai une liste (cellule D3) qui reprend les onglets (Page 1 ; Page 2)
Dans les onglets Page 1 et Page 2 , j'ai en cellule D4 le nombre de feuille que je souhaiterais imprimer
Cela est-il faisable ?

2/ Question 2 :

La question 2 est un peu plus compliqué, donc si la question n'est pas faisable je doute que celle ci le soit aussi 🙂
Dans l'onglet Menu (Partie Question 2), j'ai là aussi 2 listes de choix:
La 1ère est le mois
La 2ème les semaines

Je souhaiterais imprimer le tableau du mois présent dans l'onglet Question 2.
J'ai mis un exemple en cellules (J14:J19) de l'onglet Menu


N'hésitez pas à poser des questions si cela n'est pas clair !

Encore merci beaucoup
Philippe
 

Pièces jointes

Trier par date Trier par votes
Re : Impression en fonction de critères !!!

Bonjour,
Pour la question 1 :

Code: 
 Sheets("Feuil1").Select 'Le nom de la feuille à imprimer
 ActiveWindow.SelectedSheets.PrintOut Copies:=Sheets("" & Sheets("Menu").Range("D4") & "").Range("E4")
 
Vote positif 0 Vote négatif
Re : Impression en fonction de critères !!!

Bonjour KingFadhel,

Une nouvelle fois merci pour ton aide j'essaye ca et te tiens au courant.
Pour ce qui est de la question 2.
Est ce que tu penses que cela est faisable d'un point de vue technique?
Encore merci
Philippe
 
Vote positif 0 Vote négatif
Re : Impression en fonction de critères !!!

Re,

Pour la deuxième partie:


Code: 
Sub Bouton3_Clic()
With Sheets("Menu")
Select Case Range("D18")
    Case "tous le mois"
        Sheets("Question 2").Columns("H:AQ").EntireColumn.Hidden = True
        Call print_q2
    Case "Semaine 1"
        Sheets("Question 2").Columns("O:AQ").EntireColumn.Hidden = True
        Call print_q2
    Case "Semaine 2"
        Sheets("Question 2").Columns("H:N").EntireColumn.Hidden = True
        Sheets("Question 2").Columns("o:u").EntireColumn.Hidden = False
        Call print_q2
    Case "Semaine 3"
        Sheets("Question 2").Columns("H:U").EntireColumn.Hidden = True
        Sheets("Question 2").Columns("V:AB").EntireColumn.Hidden = False
        Call print_q2
    Case "Semaine 4"
        Sheets("Question 2").Columns("H:AB").EntireColumn.Hidden = True
        Sheets("Question 2").Columns("AC:AI").EntireColumn.Hidden = False
        Call print_q2
    Case "Semaine 5"
        Sheets("Question 2").Columns("H:AI").EntireColumn.Hidden = True
        Sheets("Question 2").Columns("AJ:AQ").EntireColumn.Hidden = False
        Call print_q2
End Select
End With
End Sub
Sub print_q2()
With Sheets("Question 2")
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
End With
End Sub
 
Vote positif 0 Vote négatif
Re : Impression en fonction de critères !!!

Bonsoir KingFadhel,

Merci pour tes 2 messages je tenais déjà à te remercier j'ai commencé à regarder ce que tu as fait je te tiens au courant

Encore merci 🙂
Philippe
 
Vote positif 0 Vote négatif
Re : Impression en fonction de critères !!!

Bonjour KingFadhel, Le Forum,

KingFadhel, je suis entrain de me servir des codes que tu m'as proposés.

Pour la question 1:
- Lorsque dans l''onglet "Page 2" je mets la valeur 2 en cellule E4 et que je clique ensuite sur le 1er bouton dans l'onglet Menu. Excel m'imprime 2 fois la même feuille est-il possible de lui faire imprimer les 2 premières feuilles (et non 2 fois la même feuille).

Pour la question 2:
Lorsque je clique sur le 2ème bouton de l'onglet Menu. Excel m'imprime l'onglet Menu et non l'onglet "Question 2"
J'ai regardé le code et tu as bien mis impression de l'onglet "question 2". Du coup je ne vois pas d'où vient le problème.


Encore merci
Philippe
 
Vote positif 0 Vote négatif
Re : Impression en fonction de critères !!!

Bonjour Le Forum !
Apparemment mes questions semblent très compliquées ou peut être très mal formulées 🙂 auquel cas n'hésitez pas à me le dire je reformulerai!
Merci encore
Philippe
 
Vote positif 0 Vote négatif
Re : Impression en fonction de critères !!!

Re-Bonjour
Apparemment personne ne trouve 🙁
Quelqu'un aurait-il un lien ou une doc à mettre en PJ qui pourrait m'aider car je n'ai rien trouvé de semblable sur internet
Encore merci à tous
Philippe
 
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

  • Question Question
Microsoft 365 Impression recto-verso
Réponses
2
Affichages
103
Yann71
  • Résolu(e)
XL 2016 *** RESOLU MERCI :)*** Impression personnalisée.
2 3 4
Réponses
56
Affichages
766
job75
O
  • Question Question
XL 2019 Inscription club sportif
Réponses
11
Affichages
271
Gégé-45550
R
  • Résolu(e)
XL 2021 NB.SI dans la colonne n°3
Réponses
4
Affichages
165
rpatty85
R
J
  • Résolu(e)
Microsoft 365 Impression groupée de plusieurs feuilles dans plusieurs onglets
2
Réponses
15
Affichages
604
Phil69970
  • Question Question
XL 2016 critères multiples sur TCD
Réponses
3
Affichages
252
dysorthographie
D
  • Question Question
XL 2021 Problème de macro
Réponses
5
Affichages
79
Didierpasdoué
D
M
  • Résolu(e)
Microsoft 365 Impression Userform en format paysage + Envoyer l'imprime écran du Userform par courriel
2
Réponses
17
Affichages
877
patricktoulon
P
  • Résolu(e)
Microsoft 365 Besoin d'aide présentation fichier suivi tâches réalisés / formule
Réponses
8
Affichages
346
prodigy755
P
C
  • Résolu(e)
XL 2021 Userform impression + choix des feuilles
Réponses
8
Affichages
514
candido57
C
T
  • Question Question
XL 2013 Impression, choix de feuilles et nombre de copie
Réponses
11
Affichages
614
AtTheOne
A
  • Question Question
XL 2016 Suppression contenu d'une plage de cellules en fonction de leur valeur
Réponses
4
Affichages
94
TooFatBoy
  • Résolu(e)
Microsoft 365 rendre visible automatiquement l'onglet de la feuille active sur la barre de navigation inférieure
Réponses
11
Affichages
835
Eric 888
M
  • Question Question
Microsoft 365 Fonction si et rechercheX
Réponses
1
Affichages
221
Aya_flo
A
L
  • Résolu(e)
Power Query Découper une colonne en plusieurs colonnes
Réponses
11
Affichages
547
chris
  • Question Question
XL 2021 création d'onglets en masse depuis un modele
Réponses
6
Affichages
225
Phil69970
G
  • Question Question
Microsoft 365 Rendre dynamique un array (Résolu)
Réponses
7
Affichages
362
GClaire
G
S
  • Question Question
Autres Gestion flotte auto LLD - Suivi durée contrat + kilométrage
Réponses
2
Affichages
256
wDog66
K
  • Question Question
Microsoft 365 Excel - Répartition Charge de travail (mensuel)
Réponses
10
Affichages
567
Kristelle1555
K
N
  • Résolu(e)
Microsoft 365 Optimisation formule recherche valeur en fonction de plusieurs critères
Réponses
5
Affichages
181
Nounours4173
N
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…