Colorer forme selon valeur cellule
Bonjour
j'ai une forme reliée à une cellule (la valeur de la cellule s'affiche dans la forme). Je souhaiterais remplir la forme de la même couleur que ma cellule mais je n'y arrive pas avec les codes donnés sur le forum.
Quelqu'un pourrait me dire ce qui ne va pas dans le code ?
Merci
Dans mon fichier je souhaite colorer la forme Rectangle133 de la même couleur que la cellule D5 :
Sub Colorer_forme()
Dim Couleur As ColorFormat
Couleur = Range("D5").Interior.Color
ActiveSheet.Shapes("Rectangle 133").Fill.ForeColor = Couleur
End Sub
Bonjour,
Si la coloration de ta cellule est issue d'une mise en forme conditionnelle ça ne marche pas, il te faut utiliser la ou les mêmes conditions de ta MFC pour la coloration de ta forme.
Hervé.
Bonjour,
je ne comprends pas bien, je ne peux pas utiliser de MFC pour colorer ma forme, non ? Il faut obligatoirement que je passe par un code VBA afin de récupérer la couleur de ma cellule pour remplir ma forme.
Le code ne marche pas non plus si je colore ma cellule manuellement ....
Bonjour,
La MFC ne colore pas la cellule en "dur" si on peut dire donc sa couleur n'est pas fixe et dans ce cas, tu ne peux pas récupérer le code de cette couleur. si tu veux que ta forme est la même couleur que la cellule il te faut utiliser VBA et faire une Sub avec les mêmes conditions que ta MFC.
Hervé.