colorer cellule selon code couleur dans autre cellule

Staple1600

XLDnaute Barbatruc

• 20 Décembre 2014

• #2

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 ; ) )

 

Dernière édition: 20 Décembre 2014

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 20 Décembre 2014

• #3

Re : colorer cellule selon code couleur dans autre cellule

Bonjour eastwick

dans le module de la feuille:

Code:

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

Edit: Salut Staple

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 20 Décembre 2014

• #4

Re : colorer cellule selon code couleur dans autre cellule

Bonjour.

VB:

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.

 

Dernière édition: 20 Décembre 2014

Vote positif 0 Vote négatif

eastwick

XLDnaute Accro

• 22 Décembre 2014

• #5

Re : colorer cellule selon code couleur dans autre cellule

Fantastique !!! merci beaucoup !!!

 

Vote positif 0 Vote négatif

eastwick

XLDnaute Accro

• 22 Décembre 2014

• #6

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.

 

Vote positif 0 Vote négatif