XL 2010 Mise en forme Conditionnelle : Zone de texte

[ROKMAT]

Bonjour,

Je souhaite mettre en forme des boutons zone de texte en fonction d'une valeur donnée dans une cellule.

J'ai parcouru quelques fils de discussion mais je suis tellement novice que je n'ai pas réussi à adapter les solutions proposées par les experts à mon fichier.

Voici un exemple simplifié de ce que je veux faire (en PJ)

Merci beaucoup

 

[Iznogood1]

Bonjour,

je crains que ce ne soit pas évident.
Veux-tu obligatoirement utiliser une zone de texte ?
Utiliser des boutons ou des cellules (en capturant l'évênement click par exemple) simplifierais beaucoup la chose.

 

[phlaurent55]

Bonjour Rokmat,

quelle est la condition de changement de couleur en fonction du contenu de la cellule B3

Pour colorier une zone de texte en vert, cette ligne le fait

ActiveSheet.Shapes("nomdelazonedetexte").Fill.ForeColor.RGB = RGB(0, 255, 0)

et pour la mettre en rouge, avec:
ActiveSheet.Shapes("nomdelazonedetexte").Fill.ForeColor.RGB = RGB(255, 0, 0)

à+
Philippe

Edit: Bonjour Iznogood

 

[DoubleZero]

Bonjour à toutes et à tous,

En attendant mieux... Dans un module standard :

Option Explicit
Sub Zone_de_texte_couleur_adapter()
    With ActiveSheet.Shapes("TextBox 1")
        If .TextFrame2.TextRange.Characters.Text >= 45 Then .Fill.ForeColor.RGB = RGB(255, 0, 0) Else .Fill.ForeColor.RGB = RGB(146, 208, 80)
    End With
    With ActiveSheet.Shapes("TextBox 2")
        If .TextFrame2.TextRange.Characters.Text >= 45 Then .Fill.ForeColor.RGB = RGB(255, 0, 0) Else .Fill.ForeColor.RGB = RGB(146, 208, 80)
    End With
End Sub

A bientôt