Colorer cellule mais ne pas imprimer

ozzii

XLDnaute Junior
Bonjour,

j'essaye desesperement de faire quelque chose:
j'essaye de colorer des cellules, mais que cette couleur n'apparaisse pas lors de l'impression.

J'ai essaye avec des couleurs claires, mais c'est quand meme imprime. Je n'ai trouve aucune option pour ne pas imprimer les cellules colorees. J'ai aussi essayer avec une forme, mais impossible de cliquer au travers.

Une petite idee :confused:

Petite info; c'est pour indiquer les cellules modifiables à l'utilisateur (car les autres sont protegees).

P.S: en esperant avoir ete assez clair :eek:
 

RENAUDER

Nous a quitté
Repose en paix
Re : Colorer cellule mais ne pas imprimer

Bonjour,
Une idée ....
Protèges celles qui ne doivent pas être modifiées, protèges ta feuille et par exemple encadres celles pouvant être modifiées.

Tu peux également atteindre les cellules non protégées avec Tab
 

ya_v_ka

XLDnaute Impliqué
Re : Colorer cellule mais ne pas imprimer

Salut tout le monde

Ce que je fais personnellement en pareil cas:

J'enserre ma cellule dans un rectangle sans fond, avec une épaisse bordure rouge, et je décoche dans les propriétés de cette forme "imprimer l'objet".
Une fois la feuille protégée, impossible d'y toucher et l'on voit bien les zones à saisir.

Ya'v
 

Pièces jointes

  • formes.xls
    15 KB · Affichages: 131
  • formes.xls
    15 KB · Affichages: 151
  • formes.xls
    15 KB · Affichages: 141
Dernière édition:

news

XLDnaute Impliqué
Re : Colorer cellule mais ne pas imprimer

Bonjour à tous du forum,

re: j'essaye de colorer des cellules, mais que cette couleur n'apparaisse pas lors de l'impression.

essaie avec cet astuce:

dans Menu Bar/Mise en page/Feuille
cocher la case "imprimer en noir et blanc"


bonne journeé encore,
 

BOISGONTIER

XLDnaute Barbatruc
Repose en paix
Re : Colorer cellule mais ne pas imprimer

Bonjour,

Code:
Sub imprime()
  Dim temp1(), temp2()
  For Each c In ActiveSheet.UsedRange
    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
Formation Excel VBA JB
 

Statistiques des forums

Discussions
315 091
Messages
2 116 113
Membres
112 662
dernier inscrit
lou75