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.
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.
Pièces jointes
Dernière édition: