ne pas imprimer la couleur de fond d'une cellule

vincent50

XLDnaute Occasionnel
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.
 

BOISGONTIER

XLDnaute Barbatruc
Repose en paix
Re : ne pas imprimer la couleur de fond d'une cellule

Bonsoir,

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

Code:
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
 

Pièces jointes

  • ImprimeSansCouleurx.xls
    27.5 KB · Affichages: 727

nicxls

XLDnaute Nouveau
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
 

Discussions similaires

Statistiques des forums

Discussions
312 932
Messages
2 093 731
Membres
105 802
dernier inscrit
Witchun