Coloration d'une forme sous condition

Bonjour,

Je vais essayer d'exposer ce que je cherche à faire

Je me suis fait un tableau de bord Avec des formes contenant du texte ou des nombres changeant sous certaines conditions.

J'aimerai être capable de changer la couleur de ces formes suivant si la valeur à l'intérieur (Celle de la cellule à l'origine) est positive ou négative.

Est ce quelque chose de faisable?
Peut être via :

Worksheet_Change(ByVal Target As Range)

Je vous remercie par avance.

Olivier

Bonjour,

C'est faisable par Worksheet_Change() si la valeur des cellules est modifiée manuellement. Sinon utiliser Worksheet_Calculate() dans laquelle il faudra parcourir les formes et les cellules associées.

Joindre un classeur pour une aide plus précise.

A+

Salut Olivier,
salut AlgoPlus,

si chaque forme est associée à une seule cellule, donner un nom unique à cette forme en fonction de sa cellule associée permet de réaliser ton souhait facilement mais, comme l'a très bien dit AlgoPlus ,...

Exemple récent

A+

Merci pour vos conseils.

Je reviens vers vous rapidement

En attendant je vous souhaite un agréable début de week-end.

Bonjour,

Je reviens après quelques vacances.
Je vous prie de m'excuser pour le retard ^^"

Le fichier est en pièces jointe.
A noter que les valeurs ne seront pas modifiées manuellement, mais généré par une formule.

Je vous remercie par avance de votre aide.

j'ai choisi d'utiliser la Private Sub Worksheet_Calculate() qui se déclenchera dès qu'une valeur de la feuille sera modifiée:

Private Sub Worksheet_Calculate()
For i = 3 To 14
    With Shapes("Rectangle " & i)
     If Val(.TextFrame.Characters.Text) > 0 Then
        .Fill.ForeColor.RGB = vbGreen
        .TextFrame.Characters.Font.Color = vbBlack
     ElseIf Val(.TextFrame.Characters.Text) < 0 Then
        .Fill.ForeColor.RGB = vbRed
        .TextFrame.Characters.Font.Color = vbBlack
    Else
        .Fill.ForeColor.RGB = vbBlack
        .TextFrame.Characters.Font.Color = vbWhite
     End If
    End With
Next
End Sub

A+

Top !

Je vais faire un tour à la déchetterie ^^" et je te fais un retour une fois implémenté à mon fichier.

Encore merci AlgoPlus.

Ça fonctionne parfaitement.

Je te souhaite un agréable week-end.