ne pas imprimer la couleur de fond d'une cellule

[vincent50]

Bonjour, j'ai un fichier avec des cellules de couleurs qui me servent uniquement a connaitre le nombre d'elements different dans mon tableau, je souhaiterai que lors de l'impression de mon fichier, les couleurs de fond de mes cellules n'apparaisse pas.
merci de votre aide.

 

[Spitnolan08]

Re : ne pas imprimer la couleur de fond d'une cellule

Bonjour,

Tu peux par exemple créer une copie de ta feuille, supprimer toutes les couleurs indésirables de cette feuille puis l'imprimer avant de la supprimer...

Cordialement

 

[jeanpierre]

Re : ne pas imprimer la couleur de fond d'une cellule

Bonjour vincent50, Spitnolan08,

Dans Fichier/Mise en page et onglet Feuille, tu coches Impression en noir et blanc.

A te lire.

Jean-Pierre

 

[BOISGONTIER]

Re : ne pas imprimer la couleur de fond d'une cellule

Bonsoir,

On ne supprime que les couleurs de fond pendant l'impression.

Sub imprime()
  Dim temp1(), temp2()
  For Each c In [Zone_d_impression]
    If c.Interior.ColorIndex <> xlNone Then
       n = n + 1
       ReDim Preserve temp1(1 To n)
       ReDim Preserve temp2(1 To n)
       temp1(n) = c.Address
       temp2(n) = c.Interior.ColorIndex
       c.Interior.ColorIndex = xlNone
    End If
  Next c
  ActiveSheet.PrintPreview   ' ou ActiveSheet.PrintOut
  For i = 1 To n
    Range(temp1(i)).Interior.ColorIndex = temp2(i)
  Next i
End Sub

JB
http://boisgontierjacques.free.fr

 

[nicxls]

Re : ne pas imprimer la couleur de fond d'une cellule

Bonjour boisgontier,

merci pour cette macro qui coorespond parfaitement à mon besoin. Cependant, est-ce que je peux mettre cette macro au niveau de l'application pour l'utiliser avec tous mes classeurs ?

merci d'avance.

@ bientôt