impression sans couleur

[nourkyt]

Bonjour à tous,

je suis nouveau sur ce forum que je consulte très régulièrement (il m'a sauvé de nombreuse fois !!!)

Je vous expose mon petit souci technique.

je travail avec un classeur excel qui contient des celulles colorées.

j'ai créer des macros pour imprimer les données dont j'ai besoin. jusque là) pas de problèmes.

maintenant je souhaiterai intégrer à cette macro un code qui me permetterai de supprimer toutes les couleurs d'une feuille,mais uniquement à l'impression du doc.

j'ai trouvé sur le forum un code pour virer une couleur spécifique, mais je ne suis pas assez familiariser avec vba pour modifier ce code.

Merci d'avance pour votre aide.

 

[Bernard_XLD]

Bonjour nourkyt

ce code passe l'impression en noir et blanc sur la feuille active

Cordialement, A+

ActiveSheet.PageSetup.BlackAndWhite = True

 

[nourkyt]

merci de ta réponse rapide, mais si je veux oter toutes les couleurs (yc noir), je souhaiterai avoir une feuille qui contient que des cellules sans couleur.

merci.

nourkyt

 

[Bernard_XLD]

re bonjour

voici un code qui devrait convenir, fonctionne pour la feuille active

Cordialement, A+

Sub Imprime_Sans_Couleur()
    With Application
    .ScreenUpdating = False
    .DisplayAlerts = False
    End With
    ActiveSheet.Copy After:=ActiveSheet
    ActiveSheet.Cells.Interior.ColorIndex = xlNone
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    ActiveSheet.Delete
End Sub

 

[nourkyt]

Merci Yeahou !!
ça fonctionne parfaitement,
a bientôt

Nourkyt