Ne pas imprimer fond cellule !

[demax]

Bonjour
j'ai une cellule avec une valeur sur un fond coloré
à l'impression je souhaiterais avoir la valeur mais pas le fond coloré.
avez vous une petite astuce pour moi.
j'ai pensé à un code du genre:

mettre fond blanc dans cellule A1
ActiveWindow.SelectedSheets.PrintOut
remettre fond coloré dans cellule A1

merci ++

 

[PascalXLD]

Re : Ne pas imprimer fond cellule !

Bonjour

essaies

macoul = Range("A1").Interior.ColorIndex
Range("A1").Interior.ColorIndex = xlNone
ActiveWindow.SelectedSheets.PrintOut
Range("A1").Interior.ColorIndex = macoul

 

[demax]

Re : Ne pas imprimer fond cellule !

bonjour PascalXLD
nickel à l'impression la cellule ne comporte pas de couleurs
par contre la couleur change alors peut etre il faudrait reappliquer une couleur bien defini car la variable macoul ne prend pas la couleur existante
j'espere que tu as compris
++😀

 

[PascalXLD]

Re : Ne pas imprimer fond cellule !

RE

modifies ainsi

macoul = Range("A1").Interior.Color
Range("A1").Interior.ColorIndex = xlNone
ActiveWindow.SelectedSheets.PrintOut
Range("A1").Interior.Color = macoul

 

[demax]

Re : Ne pas imprimer fond cellule !

Parfait, excellent!
merci beaucoup PascalXLD😉