[RESOLU] Impression Noir & Blanc

[jorge1201]

Bonjour le forum et joyeux Noël,

Le code ci-dessous, imprime la plage A3:I65 en Noir & Blanc (voir pièce jointe).

Sub Imprimer()
Application.ScreenUpdating = False
With ActiveSheet
.PageSetup.PrintArea = "$A$3:$I$65"
.PageSetup.BlackAndWhite = True
.PrintPreview
'.PrintOut Copies:=1, Collate:=True
.PageSetup.BlackAndWhite = False
End With
Application.ScreenUpdating = True
End Sub

Cependant, j'aimerais apporter une modification à ce code pour qu'il réalise l'opération suivante:

1. Imprimer la plage B5 14 en Noir & Blanc
2. Imprimer la plage A3:I65 en couleurs (sauf la plage B5 14)

Est-il possible?

Merci d'avance.

 

[DoubleZero]

Re : Impression Noir & Blanc

Bonjour, jorge1201, le Forum,

Peut-être ainsi :

Option Explicit
Sub Couleur_oui_non()
Application.ScreenUpdating = False
    With Range("B5:D14")
        .Interior.ColorIndex = xlNone
        .Font.ColorIndex = xlAutomatic
    End With
    ActiveSheet.PrintPreview
    With Range("B5:D14")
        .Interior.Color = 10079487
        .Font.Color = 0
    End With
Application.ScreenUpdating = True
End Sub

A bientôt

 

[jorge1201]

Re : Impression Noir & Blanc

DoubleZero,

Merci pour ta réponse, ça a l'air de bien fonctionner.

Bonnes fêtes.