Imprimer selon choix de cellule excel

Fermé
Radioteur Messages postés 5 Date d'inscription lundi 16 juin 2008 Statut Membre Dernière intervention 23 juin 2008 - 23 juin 2008 à 17:17
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 24 juin 2008 à 10:15
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...
A voir également:

3 réponses

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
24 juin 2008 à 10:15
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
Private Sub CommandButton1_Click()
    Sheets("Feuil2").Select
    ActiveSheet.PrintOut
End Sub
Private Sub CommandButton2_Click()
    Sheets("Feuil3").Select
    ActiveSheet.PrintOut
End Sub

A+
1
cbauf Messages postés 4297 Date d'inscription lundi 31 mars 2008 Statut Contributeur Dernière intervention 22 juin 2022 783
23 juin 2008 à 18:16
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+
0
Raymond PENTIER Messages postés 58395 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 25 avril 2024 17 094
24 juin 2008 à 03:16
Où est le problème ?
La feuille en noir et blanc s'imprime forcément en noir et blanc, la feuille en couleur s'imprime forcément en couleur (si c'est une imprimante couleur qui est branchée !).
Je ne comprends pas ta difficulté.
0