XL 2010 Mise en forme conditionnelle Zone de texte

[Christou]

Bonjour,
En parcourant ce forum j'ai trouver une solution que je ne parviens pas à reproduire pour mon fichier.
J'ai un tableau avec 3 colonnes
ColonneJ : Légende
ColonneK : Liste de valeurs semaine -2
ColonneL : Liste de valeurs semaine -1
ColonneM : =SI(L2>K2;"ì";SI(L2<K2;"î";SI(L2=K2;"è";"")))

J'ai deux zones de texte acolées pour chaque ligne du tableau :
l'une contient le chiffre de la colonne L (mise en forme fixe)
l'autre contient le caractère de la colonne M mise en forme dynamique comme ci aprés

La zone de texte peu contenir 3 valeurs en Wingdings afin d'obtenir des fléches
ì augmentation couleur rouge
î diminution couleur verte
è égalité couleur noir

Les deux textboxes sont accolés et placée sur un plan

Les valeurs des colonnes K et L seront remplacer par copier coller d'une extraction chaque semaine

Je bloque pour réaliser un script qui conditionne la couleur de la police de toutes les textboxes de la feuille avec comme condition
Si ColonneM = ì -> couleur rouge
Si ColonneM = î -> couleur verte
Sinon couleur noirs

 

[Christou]

J'ai finalement trouvé le bon code à appliquer sur les zone de texte créée depuis insertion->forme->zone de texte
Si cela peut servir à un autre utilisateur du forum le voici.

Option Explicit
Sub conditionalFormatChange()
    
    Dim TBox As TextBox
    Dim Txt As String
    
    For Each TBox In ActiveSheet.TextBoxes
        Txt = TBox.ShapeRange.TextFrame2.TextRange.Characters.Text
        With TBox.ShapeRange.TextFrame2.TextRange.Font.Fill
            Select Case Txt
            Case "î"
                .ForeColor.RGB = RGB(0, 176, 80)
            Case "ì"
                .ForeColor.RGB = RGB(255, 0, 0)
            End Select
            .Solid
            .Transparency = 0
            .Visible = msoTrue
        End With
    Next TBox
    
End Sub