impression sans couleur

nourkyt · 28 Juin 2005

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 · 28 Juin 2005

Bonjour nourkyt

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

Cordialement, A+

Code:

ActiveSheet.PageSetup.BlackAndWhite = True

nourkyt · 28 Juin 2005

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 · 28 Juin 2005

re bonjour

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

Cordialement, A+

Code:

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 · 29 Juin 2005

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

Nourkyt

impression sans couleur

nourkyt

Guest

Bernard_XLD

XLDnaute Barbatruc

nourkyt

Guest

Bernard_XLD

XLDnaute Barbatruc

nourkyt

Guest

Discussions similaires