Bonjour à tous,
je travaille sur Excel2010 et je fais face à un problème dont je n'ai pas trouvé de solution pour l'instant (même après de longues et infructueuses recherches sur le net).
En fait je souhaiterais extraire les couleurs d'une mise en forme conditionnelle.
j'ai un tableau avec des valeur sur une ligne. Je fais une mise en forme conditionnelle afin de mettre en couleur les cellules en fonction des valeurs.
Ensuite j'ai créé des rectangles (insertion de formes) auxquels je voudrais assigner la couleur d'une cellule correspondante. (pas de problème lorsque la mise en forme conditionnelle n'est pas activée, j’utilise une petite macro :
Sub coloration()
ActiveSheet.Shapes("Rectangle 5").DrawingObject.Interior.Color = Range("A1").Interior.Color
ActiveSheet.Shapes("Rectangle 3").DrawingObject.Interior.Color = Range("B1").Interior.Color
ActiveSheet.Shapes("Rectangle 1").DrawingObject.Interior.Color = Range("C1").Interior.Color
End Sub)
Mais visiblement cela se complique lorsqu'on applique une mise en forme conditionnelle!!!
Je n'arrive pas à assigner la couleur des cellules qui sont affichées (par exemple celle en jaune dans le fichier joint)
Je ne sais pas si c'est possible? (je ne suis pas un pro des macros VBA)
Par avance, je vous remercie pour toute l'aide que vous pourrez m'apporter.
Cordialement,
CED41
je travaille sur Excel2010 et je fais face à un problème dont je n'ai pas trouvé de solution pour l'instant (même après de longues et infructueuses recherches sur le net).
En fait je souhaiterais extraire les couleurs d'une mise en forme conditionnelle.
j'ai un tableau avec des valeur sur une ligne. Je fais une mise en forme conditionnelle afin de mettre en couleur les cellules en fonction des valeurs.
Ensuite j'ai créé des rectangles (insertion de formes) auxquels je voudrais assigner la couleur d'une cellule correspondante. (pas de problème lorsque la mise en forme conditionnelle n'est pas activée, j’utilise une petite macro :
Sub coloration()
ActiveSheet.Shapes("Rectangle 5").DrawingObject.Interior.Color = Range("A1").Interior.Color
ActiveSheet.Shapes("Rectangle 3").DrawingObject.Interior.Color = Range("B1").Interior.Color
ActiveSheet.Shapes("Rectangle 1").DrawingObject.Interior.Color = Range("C1").Interior.Color
End Sub)
Mais visiblement cela se complique lorsqu'on applique une mise en forme conditionnelle!!!
Je n'arrive pas à assigner la couleur des cellules qui sont affichées (par exemple celle en jaune dans le fichier joint)
Je ne sais pas si c'est possible? (je ne suis pas un pro des macros VBA)
Par avance, je vous remercie pour toute l'aide que vous pourrez m'apporter.
Cordialement,
CED41