Bouton impression noir et blanc

[chanteclairix]

Bonjour à vous tous 🙂

Je suis complètement débutant pour ce qui est des macro et, bien que j'ai prévu de me pencher dessus, je n'ai pas encore trouvé le temps.

J'ai pourtant besoin de créer tout de suite un bouton pour imprimer une feuille en noir & blanc et un autre pour imprimer tout le classeur en noir et blanc.

En cherchant j'ai trouvé ces lignes :

Sub impressionNoirEtBlanc()
With Worksheets("Feuil1")
.PageSetup.BlackAndWhite = True 'parametrage N&B
.PrintOut 'imprimer
.PageSetup.BlackAndWhite = False 'réinitialisation
End With
End Sub

Je crois que c'est pour une macro. Sauf que je n'y connais strictement rien aux macro 😱 et je n'ai rien réussi à faire avec ces lignes sur ce qu'on appelle 'VBA'.

Pouvez-vous m'expliquez pas à pas comment faire ces boutons (et s'il est possible de le faire sans utiliser de macro - autre que Fichier/imprimer/N&B)

Merci beaucoup de me répondre de façon simple.


PS : j'ai trouvé sur ce forum des posts sur ce sujet mais qui étaient destinés à des personnes qui savent déjà créer des macro...

 

[JCGL]

Re : Bouton impression noir et blanc

Bonjour à tous,
Bienvenue chanteclairix 🙂

Regarde le fichier joint, d'abord en aperçu avant impression et ensuite imprime en cliquant sur l'image GO

Le code que tu as fourni est dans le VBA (accessible par Alt F11 , la touche F11)
dans la feuille 1

Pour appeler une macro, tu peux insérer une image et par un click droit sur cette image lui affecter une macro.

Au plaisir de te lire

 

[chanteclairix]

Re : Bouton impression noir et blanc

Merci JCGL de m'avoir répondu aussi vite.

J'ai eu un peu de mal à comprendre ce que tu me disais (j'ai honte) mais j'ai un peu mieux compris le fonctionnement de cette macro.

Cependant cela soulève un autre soucis : pour que la macro marche je dois mettre le nom de ma feuille (qui n'est bien évidemment pas "Feuil1"). Cela m'obligerai alors de faire une macro différente pour toutes mes feuilles ? tu n'as pas une macro pour imprimmer la feuille sélectionner en N&B par hazard ? ça doit pas être grand chose à changer je pense (juste la référence "Feuil1" je suppose ?).

Et concernant l'impression du classeur en entier ? (Faut répéter la formule dans la même macro autant de fois que j'ai de feuille en changeant la référence ?)

 

[Staple1600]

Re : Bouton impression noir et blanc

Bonsoir

Pour imprimer la feuille active

ActiveSheet.PrintOut


a tester (pas sur du résultat)
impression du classeur entier

ThisWorkBook.Worksheets.PrintOut

 

[JCGL]

Re : Bouton impression noir et blanc

Re,

Si tu places le bout de code dans une autre feuille (de VBA) et que tu insère une image, une forme ou un bouton (ce sera pour la deuxième "leçon" 🙂) sur la feuille Excel , ta macro sera efficace sur la feuille active

Un bon, excellent conseil : pense à utiliser l'enregistreur de macro (pour faire simple : une fois qu'il est lancé toutes les actions que tu effectues sur une feuille génère un code)

A+

 

[chanteclairix]

Re : Bouton impression noir et blanc

Oula oula doucement Staple je suis perdu.
Je ne sais pas comment utiliser ta formule (j'suis total débutant à ce niveau là)

JCGL > j'ai essayé en faisant ceci :
1- barre d'outil formulaire > j'ai dessiner un bouton
2- j'ai choisi la macro :

Sub impressionNoirEtBlanc()
With Worksheets("Config.")
.PageSetup.BlackAndWhite = True 'parametrage N&B
.PrintOut 'imprimer
.PageSetup.BlackAndWhite = False 'réinitialisation
End With
End Sub

3- j'ai copié ce bouton sur ma deuxième feuille
Résultat : le bouton de la deuxième feuille imprime la première feuille et non la feuille courante.

Concernant l'enregistreur de macro bah en regardant ce qu'il a enregistrer je constate qu'il ne met pas l'option noir&blanc.. En fait j'y comprend rien de rien.

Help !

(N'hésitez pas à bien m'expliquer pas à pas s'il vous plaît)

 

[JCGL]

Re : Bouton impression noir et blanc

Re,

Remplace le code par :

Sub impressionNoirEtBlanc()
With ActiveSheet
.PageSetup.BlackAndWhite = True 'parametrage N&B
.PrintOut 'imprimer
.PageSetup.BlackAndWhite = False 'réinitialisation
End With
End Sub

Ainsi quelque soit la feuille que tu as sélectionnée la macro sera efficace.

Pour l'enregistreur, fait un essai sur une feuille vierge en entrant des données , des formules et des couleurs de cellules pour commencer et va voir dans le code généré

A+

 

[Staple1600]

Re : Bouton impression noir et blanc

Bonsoir

Voila la macro du fichier de JCGL
qui imprime la Feuil1

Sub impressionNoirEtBlanc()
With Worksheets("Feuil1")
.PageSetup.BlackAndWhite = True 'parametrage N&B
.PrintOut 'imprimer
.PageSetup.BlackAndWhite = False 'réinitialisation
End With
End Sub

Je reprends la meme que j'adapte

Sub impressionNoirEtBlancI()
With ActiveSheet 'pour la feuille active
.PageSetup.BlackAndWhite = True 'parametrage N&B
.PrintOut 'imprimer
.PageSetup.BlackAndWhite = False 'réinitialisation
End With
End Sub

Sub impressionNoirEtBlancII()
'a tester car je n'ai pas d'imprimante sur ce poste
With ThisWorkBook.Worksheets' toutes les feuilles de ce classeur
.PageSetup.BlackAndWhite = True 'parametrage N&B
.PrintOut 'imprimer
.PageSetup.BlackAndWhite = False 'réinitialisation
End With
End Sub

 

[chanteclairix]

Re : Bouton impression noir et blanc

La formule pour la page courante marche mais pas celle pour tout le classeur ça me met une erreur :
ça surligne .PageSetup avec le message "Erreur de compilation : Membre de méthode ou de données introuvable"

L'autre fonctionne merci 😉

 

[Staple1600]

Re : Bouton impression noir et blanc

Et celle-la?

Sub impression()
ThisWorkbook.Worksheets.PrintOut
End sub

 

[Staple1600]

Re : Bouton impression noir et blanc

et celle la

sub allsheetsprint()
For Each sht In ActiveWorkbook.Sheets
If TypeName(sht) = "Worksheet" Then
sht.PrintOut 
End If
Next sht
End sub

 

[chanteclairix]

Re : Bouton impression noir et blanc

La dernière me lance plusieurs impressions mais j'ai pas branché l'imprimante :
Tu es sur que ça imprime en noir et blanc ? (en lisant le code ça ne m'apparait pas alors je voudrais pas gaspiller du papier 😉 )

 

[JCGL]

Re : Bouton impression noir et blanc

Re,

Très cher Staple : comme chanteclairix le demande : explique tes procédures 😉

Un fichier basé sur mon dernier message.

Une image sur chaque feuille qui imprime en NB la feuille active.

Patience et longueur de temps font plus que force et que rage

chanteclairix : prends la bonne habitude de relire les messages précédents 😛


A+

 

[JCGL]

Re : Bouton impression noir et blanc

Re,

Je reprends la meme que j'adapte

Sub impressionNoirEtBlancI()
With ActiveSheet 'pour la feuille active
.PageSetup.BlackAndWhite = True 'parametrage N&B
.PrintOut 'imprimer
.PageSetup.BlackAndWhite = False 'réinitialisation
End With
End Sub

Je l'avais déjà adapté 😱

Avec tout l'humour qui me caractérise et surtout sans esprit de polémique 😛

A+

 

[chanteclairix]

Re : Bouton impression noir et blanc

Euh il avait mis la même que toi et j'ai dis qu'elle fonctionnait. Mais j'ai peut-être raté quelque chose ? 😕

Il me manque juste maintenant une macro qui ferait la même chose (impression en N&B) mais pour le classeur en entier.

Déjà un grand merci à vous deux pour cette première formule. 🙂

(en plus j'ai compris une chose : après le 'sub' c'est le nom de la macro... Ouah comme vous devez me trouver nul !)