Imprimer selon choix de cellule excel
Radioteur
Messages postés
5
Statut
Membre
-
lermite222 Messages postés 9042 Statut Contributeur -
lermite222 Messages postés 9042 Statut Contributeur -
Bonjour,
Voilà mon problème, dans un classeur excel j'ai trois feuilles, une première sert à la saisie de données, et les deux autres feuilles permettent une mise en forme de ces données en Noir et Blanc pour la première, en couleurs pour la seconde.
Je souhaiterais pouvoir choisir d'imprimer d'un clic sur un objet (commande) soit en N&B sur la page N&B soit en couleur sur la page couleur. Et là je suis bloqué... Car je ne sais même pas si c'est possible...
Merci de me donner une piste voire, du code, si je dois passer par VBA...
Voilà mon problème, dans un classeur excel j'ai trois feuilles, une première sert à la saisie de données, et les deux autres feuilles permettent une mise en forme de ces données en Noir et Blanc pour la première, en couleurs pour la seconde.
Je souhaiterais pouvoir choisir d'imprimer d'un clic sur un objet (commande) soit en N&B sur la page N&B soit en couleur sur la page couleur. Et là je suis bloqué... Car je ne sais même pas si c'est possible...
Merci de me donner une piste voire, du code, si je dois passer par VBA...
A voir également:
- Imprimer selon choix de cellule excel
- Liste déroulante de choix excel - Guide
- Imprimer un tableau excel - Guide
- Proteger cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Word et excel gratuit - Guide
3 réponses
Bonjour, bonjour (bonsoir) Raymond :D
Je crois qu'il a une feuille qui n'a pas de couleur dans les cellules et une autre qui en a...sans doute pour économiser les cartouches.
Donc 2 boutons soit sur la feuille soit dans une barre d'outils
A+
Je crois qu'il a une feuille qui n'a pas de couleur dans les cellules et une autre qui en a...sans doute pour économiser les cartouches.
Donc 2 boutons soit sur la feuille soit dans une barre d'outils
Private Sub CommandButton1_Click()
Sheets("Feuil2").Select
ActiveSheet.PrintOut
End Sub
Private Sub CommandButton2_Click()
Sheets("Feuil3").Select
ActiveSheet.PrintOut
End Sub
A+
Bonjour,
Comme personne (de plus agueri que moi ne répond)
Je te propose cette solution :
La macro d'exemple :
Sub PRINT_Choix()
Application.Goto Reference:="Print_Area" ' va a la zone d'impression
Selection.PrintOut Copies:=1 ' et imprime un copie
End Sub
--------------------------------------------------------------------------
Nommer les cellulle "Print_Color" - "Print_NB"
Mettre à la place de "Print_Area"
--------------------------------------------------------------------------
>Insertion>nom>Définir "pour nommer les cellules" (ton tableau de référence à imprimer)
ou
Pour nommer une ou un groupe de cellules rapidement :
Sélectionner la ou les cellules
Cliquer dans "zone nom" ( en dessus de A ; à côté de la barre de formule )
Taper le nom choisi : P Ex. : "Print_NB"
(sans espace ni caractère spéciaux)
Valider par entrée
--------------------------------------------------------------------------
Edit : les macros sont tirée d'un module VBA
Sub PRINT_NB()
Application.Goto Reference:="Print_NB"
Selection.PrintOut Copies:=1
End Sub
Sub PRINT_Color()
Application.Goto Reference:="Print_Color"
Selection.PrintOut Copies:=1
End Sub
Associer un bouton à chaque macro (NB - Color)
Explication un peu "vaseuse" si tu as des questions...
A+
Comme personne (de plus agueri que moi ne répond)
Je te propose cette solution :
La macro d'exemple :
Sub PRINT_Choix()
Application.Goto Reference:="Print_Area" ' va a la zone d'impression
Selection.PrintOut Copies:=1 ' et imprime un copie
End Sub
--------------------------------------------------------------------------
Nommer les cellulle "Print_Color" - "Print_NB"
Mettre à la place de "Print_Area"
--------------------------------------------------------------------------
>Insertion>nom>Définir "pour nommer les cellules" (ton tableau de référence à imprimer)
ou
Pour nommer une ou un groupe de cellules rapidement :
Sélectionner la ou les cellules
Cliquer dans "zone nom" ( en dessus de A ; à côté de la barre de formule )
Taper le nom choisi : P Ex. : "Print_NB"
(sans espace ni caractère spéciaux)
Valider par entrée
--------------------------------------------------------------------------
Edit : les macros sont tirée d'un module VBA
Sub PRINT_NB()
Application.Goto Reference:="Print_NB"
Selection.PrintOut Copies:=1
End Sub
Sub PRINT_Color()
Application.Goto Reference:="Print_Color"
Selection.PrintOut Copies:=1
End Sub
Associer un bouton à chaque macro (NB - Color)
Explication un peu "vaseuse" si tu as des questions...
A+
