Discussion :

[Viking17]

Bonjour à tous
Merci pour ce forum

J'ai un classeur excel avec une soixantaine de feuilles dont certaines ont des cellules colorées. Je ne veux pas que ces couleurs de fond sortent à l'impression. Et je souhaite que la macro me propose un aperçu avant impression.
Après avoir farfouillé un peu le net, j'ai fini par trouvé ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub impressionNoirEtBlanc()
    For i = 1 To Worksheets.Count
    With Worksheets(i)
      .PageSetup.BlackAndWhite = True 'paramétrage N&B
     .PrintOut Preview:=True   'imprime avec aperçu
     .PageSetup.BlackAndWhite = False 'réinitialisation
    End With
    Next
    End Sub

Cette macro est quasi parfaite, sauf que l'aperçu se lance feuille par feuille.
Je m'explique : Quand je lance la macro, un aperçu de la 1ère feuille se lance. Puis je lance l'impression, puis l'aperçu se ferme, puis l'aperçu de la 2ème feuille se lance. etc..

Je souhaite une macro qui me donne le même résultat que si je clique sur fichier imprimer. Avec la possibilité de sélectionner "imprimer le classeur entier" et ainsi, dans le même aperçu, de pouvoir visualiser toutes les feuilles, et de lancer une seule impression pour toutes les feuilles. Le tout sans imprimer les couleurs des cases.

Dernière petite chose, j'aimerais que la macro fonctionne de la même façon sur XL 2010 que sur 2003. Car je ne serai pas le seul à utiliser ce fichier.
Voilà, je vous remercie

Vik

[jfontaine]

Bonjour,

Je n'ai pas testé, mais essais comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub impressionNoirEtBlanc()
    For i = 1 To Worksheets.Count
      Worksheets(i).PageSetup.BlackAndWhite = True 'paramétrage N&B
    Next
 
    ActiveWorkbook.PrintOut Preview:=True   'imprime avec aperçu le classeur
 
    For i = 1 To Worksheets.Count
      Worksheets(i).PageSetup.BlackAndWhite = False 'paramétrage N&B
    Next
 
End Sub

[Viking17]

Bonjour Jerome !
Merci pour ta macro, elle fonctionnait très bien.
Mais j'ai finalement trouvé un moyen sans utiliser de macro.
(Fichier -> imprimer -> tout le classeur -> mise en page -> feuille -> noir et blanc)

J'imagine que c'est ce que faisait ta macro. Je préfère faire comme ça car les utilisateurs finaux (tout comme moi d'ailleurs) sont vraiment débutants sur excel. Moins y a de macros mieux c'est.

Par contre, que ce soit avec ou sans macro il y a un gros souci avec le noir et blanc :/ Toutes les cases qui avaient une mise en forme conditionnelle (si = 0, alors texte blanc), ben ca sort à l'impression ! Donc j'ai beaucoup de "0" un peu partout dans mes tableaux ...
Tu aurais une solution ?

Merci encore

[78chris]

Bonjour

Dans les options d'affichage, on peut désactiver l'affichage des 0 : à faire pour chaque onglet.

Sinon il y a aussi la possibilité de créer un format personnalisé de nombre qui n'affiche pas les 0 et l'appliquer aux cellules dont on veut masquer les 0.

[Viking17]

Bonjour à vous 2

Je vous remercie !
J'ai résolu mon problème

A bientôt