colorer cellule selon code couleur dans autre cellule

[eastwick]

Bonjour à toutes et tous,
Tout est dans l'intitulé. Peut-on par exemple, colorer B1 selon un nombre correspondant à un code couleur logé en A1 ?
Ex: 0 en A1 donc B1 est noir !
J'évoque bien sûr les codes couleur qui atteignent plus de 16 000 000 de possibilités.
Ceci est une affaire uniquement à résoudre en VBA je pense, du moins si c'est possible.
Bon week-end et excellente journée.
P.S. : je réitère colorer des cellules et non des zones de texte.
Merci !!!

 

[Staple1600]

Re : colorer cellule selon code couleur dans autre cellule

Bonjour à tous

eastwick
Si tout est dans ton intitulé, alors voici un autre tout des plus exhaustif qui te permettra de trouver plus qu'une réponse à ta question.

EDITION I: Bonjour pierrejean

EDITION II: Bonjour Dranreb (moi aussi me suis posé la même question ; ) )

 

[pierrejean]

Re : colorer cellule selon code couleur dans autre cellule

Bonjour eastwick

dans le module de la feuille:

Private Sub Worksheet_Change(ByVal Target As Range)
Range("B1").Interior.Color = Range("A1").Value
End Sub

Edit: Salut Staple

 

[Dranreb]

Re : colorer cellule selon code couleur dans autre cellule

Bonjour.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Me.[B1].Interior.Color = Me.[A1].Value
End Sub

Par simple curiosité, c'est pour quoi faire ?

Edit: Bonjour Pierre-Jean, et Staple1600.

 

[eastwick]

Re : colorer cellule selon code couleur dans autre cellule

Fantastique !!! merci beaucoup !!!

 

[eastwick]

Re : colorer cellule selon code couleur dans autre cellule

Ca rentre dans le cadre d'un travail cartographique. J'ai créé des zones correspondant à des codes postaux (freeforms).
Je compare la couleur de de la forme avec celle de la cellule.