Colorer une forme à partir d'un menu déroulant

[benjamin.prade]

Bonjour à tous,

Je suis à la recherche d'une façon de changer la couleur des formes constituant la mise en page de mon fichier à partir d'un menu déroulant.

Je vous ai joint un document qui résumé mon problème.

En gros sur le deuxième onglet j'ai une liste de numéros correspondants chacun à une couleur.
Dans mon premier onglet j'ai un menu déroulant me permettant de choisir un de ces numéros ainsi qu'un rectangle.
J'aimerais qu'en sélectionnant un de mes numéros dans mon menu déroulant le rectangle se colore de la même couleur que la case correspondante à ce numéro dans mon deuxième onglet.

Pour le moment il y a juste une macro liée au bouton qui change la couleur du cadre et de l'intérieur de la couleur écrite dans cette macro et pas à partir d'une couleur de cellule. J'aurais aimé que cela se fasse tout seul sans bouton juste en changeant la valeur du menu déroulant.

Je ne sais pas si c'est clair, je vous avoue que j'ai un peu de mal à l'expliquer clairement mais n'hésitez pas à me poser des questions.

Merci d'avance !!!

 

[BOISGONTIER]

Re : Colorer une forme à partir d'un menu déroulant

Bonjour,

voir PJ

Fonctionne aussi si la liste est alpha.

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect([d6], Target) Is Nothing Then
   On Error Resume Next
   ActiveSheet.Shapes("monshape").Fill.ForeColor.RGB = [liste].Find(Target, LookAt:=xlWhole).Interior.Color
  End If
End Sub

JB

 

[Dranreb]

Re : Colorer une forme à partir d'un menu déroulant

Bonjour.

Dans Feuil1 (Page) :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$6" Then Me.Shapes("Rectangle 1").Fill.ForeColor.RGB _
   = Feuil2.
[Liste].Item(Me.[D6].Value, 2).Interior.Color
End Sub

 

[benjamin.prade]

Re : Colorer une forme à partir d'un menu déroulant

Merci c'est exactement ça que je cherchais !!!

J'ai plus qu'à l'adapter à mon document originel.

Encore merci à vous deux