Colorer cellule mais ne pas imprimer

  • Initiateur de la discussion Initiateur de la discussion ozzii
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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 😕

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

P.S: en esperant avoir ete assez clair 😱
 
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
 
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

Dernière édition:
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,
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour