XL 2010 Mise en forme Conditionnelle : Zone de texte

ROKMAT · 11 Juillet 2017

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 · 11 Juillet 2017

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 · 11 Juillet 2017

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 · 11 Juillet 2017

Bonjour à toutes et à tous,

En attendant mieux... Dans un module standard :

VB:

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

XL 2010 Mise en forme Conditionnelle : Zone de texte

ROKMAT

XLDnaute Nouveau

Pièces jointes

Iznogood1

XLDnaute Impliqué

phlaurent55

Nous a quittés en 2020

DoubleZero

XLDnaute Barbatruc

Discussions similaires