Impression en fonction de critères !!!

[fileofish]

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

 

[kingfadhel]

Re : Impression en fonction de critères !!!

Bonjour,
Pour la question 1 :

 Sheets("Feuil1").Select 'Le nom de la feuille à imprimer
 ActiveWindow.SelectedSheets.PrintOut Copies:=Sheets("" & Sheets("Menu").Range("D4") & "").Range("E4")

 

[fileofish]

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

 

[kingfadhel]

Re : Impression en fonction de critères !!!

Re,

Pour la deuxième partie:

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

 

[kingfadhel]

Re : Impression en fonction de critères !!!

Re,

Ton fichier ne retour.

 

[fileofish]

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

 

[fileofish]

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

 

[fileofish]

Re : Impression en fonction de critères !!!

Bonjour KingFadhel, Le Forum,
Je fais remonter le topic!
Si quelqu'un aurait une solution ça serait génial

Encore merci
Philippe

 

[fileofish]

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

 

[fileofish]

Re : Impression en fonction de critères !!!

Re-Hello
Apparemment personne ne trouve 🙁
Quelqu'un aurait-il un lien ou une doc à mettre en PJ.
Je n'ai rien trouvé de semblable sur internet
Philippe

 

[fileofish]

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