Retrouver le code de Selection.Interior.Color

[Magic_Doctor]

Bonjour,

M'étant trompé de forum, je repose la question.

Quand on veut mettre une couleur dans une ou plusieurs cellules, on peut toujours écrire dans une macro :

Selection.Interior.Color = 2311233 'par exemple

Comment interpréter cette suite de chiffres, afin de pouvoir assigner une couleur déterminée à la plage de cellules ?

Merci pour toute explication.

 

[Fo_rum]

Re : Retrouver le code de Selection.Interior.Color

Re,

un petit travail sur les couleurs qui pourrait t'intéresser.

@ jeanpierre : je n'ai pas testé 😱, n'ayant pas voulu gaspiller ... donc j'ai sans doute compliqué les choses mais sans regret car je me suis fait plaisir avec le petit fichier joint.

 

[Magic_Doctor]

Re : Retrouver le code de Selection.Interior.Color

Bonsoir,

Merci Fo rum pour cette brillante démonstration de ces fichus codes de couleur.
À conserver +++
Petit à petit ça avance et espère bien en finir avec ce problème d'impression et de fond de page.

Au fait, je n'ai pas pour habitude d'inonder le forum avec des fils doublons, mais dans le 1er fil j'évoquais un problème d'impression avec fond en couleur.
J'ai donc essayé de résoudre le problème par le biais d'une macro. Il se trouve que quelques heures plus tard (6 heures de décalage...) j'ai vu que Fo rum proposait la même solution. Mais un nouveau problème surgissait, à savoir celui des codes des couleurs. Volilà pourquoi je me suis permis d'ouvrir un nouveau fil concernant les codes de couleurs.

Mais, promis, juré, ça ne se reproduira plus...

En tout cas merci pour votre dévouement

 

[vbacrumble]

Re : Retrouver le code de Selection.Interior.Color

Re, bonsoir tous


Tu as testé ma dernière PJ ?

Il y n'a pas de couleur dans l'aperçu avant Impression non ?

 

[Magic_Doctor]

Re : Retrouver le code de Selection.Interior.Color

Bonsoir vbacrumble,

Bien sûr j'ai essayé ta dernière PJ, mais comme je le disais, j'ai dû mal m'exprimer.
Ce que je voulais, ce n'est pas que toute la zone à imprimer soit en noir et blanc (bien au contraire, puisque je tenais absolument à ce que certrains chiffres, suivant leur valeur, soient en couleur), mais que le fond en couleur de la page soit blanc pour ne pas pomper inutilement l'encre des cartouches de l'imprimante.

En revanche, grâce à votre aide à tous et tout particulièrement à Fo rum, petit à petit je m'approche du but, mais ce n'est pas encore tout à fait ça !!

J'ai donc écrit la macro suivante :

Sub Imprimer()

Application.ScreenUpdating = False

'le fond de la feuille devient blanc
Cells.Select
Selection.Interior.Color = xlNone

'sélection de la zone à imprimer
Range("B4:O57").Select
ActiveSheet.PageSetup.PrintArea = "$B$4:$O$57"
'sélection de l'imprimante (car PDF s'impose...)
Application.ActivePrinter = "EPSON Stylus C92 Series en Ne03:"
'impression
ActiveWindow.SelectedSheets.PrintOut Copies:=1

'le fond de la feuille reprend sa couleur initiale
Cells.Select
'code de couleur (merci Fo rum !)
Selection.Interior.Color = 16444107

Application.ScreenUpdating = True

End Sub

Malheureusement la dernière étape ne s'exécute pas...
L'impression se fait comme je le désirais (fond blanc...), mais en fin d'impression je voudrais évidemment que le fond de page réapparaisse. En revanche si, après l'impression, j'exécute isolément :

Cells.Select
Selection.Interior.Color = 16444107

Alors le fond de page reprend sa couleur d'origine.

Comment faire en sorte que cette dernière phase de macro s'exécute automatiquement ?

 

[Fo_rum]

Re : Retrouver le code de Selection.Interior.Color

Re,

et si tu ne t'occupes que de ta zone à imprimer ?

Sub Imprimer()
  Application.ScreenUpdating = False
  'sélection de la zone à imprimer [COLOR=Red]sans fond[/COLOR]
  [COLOR=Red][B][B4:O57].Interior.ColorIndex = xlNone[/B][/COLOR]
  ActiveSheet.PageSetup.PrintArea = "$B$4:$O$57"
  'sélection de l'imprimante (car PDF s'impose...)
  Application.ActivePrinter = "EPSON Stylus C92 Series en Ne03:"
  'impression
  ActiveWindow.SelectedSheets.PrintOut Copies:=1
  'le fond de la zone reprend sa couleur initiale
  [COLOR=Red][B][[/B][/COLOR][B][COLOR=Red]B4:O57].Interior.Color = 16444107[/COLOR][/B]
  Application.ScreenUpdating = True
  [A1].Select
End Sub

 

[vbacrumble]

Re : Retrouver le code de Selection.Interior.Color

Re


En jonglant avec ceci dans ThisWorkbook

Private Sub Workbook_BeforePrint(Cancel As Boolean)
'le fond de la feuille devient blanc
ActiveSheet.UsedRange.Interior.ColorIndex = 0

'ici mettre les adresses des cellules devant garder leur couleur
ActiveSheet.Range("A1:D5").Interior.ColorIndex = 6
End Sub