forme excel de couleur suivant valeurs Résolu/Fermé

Question

Bonjour,
voici mon problème, j'ai récupéré un bout de code vba pour excel qui ne me satisfait pas entièrement, je poste donc mon message si toutefois qq'un connait la réponse...

La problématique :   prendre une forme excel (Ellipse par exemple)est la colorier en vert si le résultat est positif et en rouge si négatif.

Le code  

Private Sub Worksheet_Change(ByVal Target As Range)

With ActiveSheet.Shapes("Ellipse 1").OLEFormat.Object
.Interior.ColorIndex = Range("A1").Interior.ColorIndex
End With
End Sub


Les problèmes de ce code  : pas possible de fonctionner avec la mise en forme automatique, le code regarde juste la couleur de la cellule en A1 dans l'exemple et colorie l'Ellipse 1 de la couleur de fond de cette même case.

Si quelqu'un avait une idée, cela m'arrangerai bien.Merci beaucoup

Mike-31 · Answer

Salut,

Si j'ai bien tout compris, si la valeur est positive en A1 l'éllipse est verte et si est A1 négatif en rouge qui s'applique sur l'Ellipse1.
Regardes ce code

Private Sub Worksheet_Change(ByVal Target As Range)
If [A1] < 0 Then
With ActiveSheet.Shapes("Ellipse 1").OLEFormat.Object
.Interior.ColorIndex = 3
End With
Else
With ActiveSheet.Shapes("Ellipse 1").OLEFormat.Object
.Interior.ColorIndex = 4
End With
End If
End Sub

Mais si tu remplaces l'éllipse par un rond police Webdings tu peux passer par une mise en forme conditionnelle directe

freddv · Answer

Merci beaucoup Mike.

Forme excel de couleur suivant valeurs

2 réponses

Discussions similaires