XL 2016 Mise en forme conditionnelle d'un rectangle

[Danielt]

Bonjour à tous!
Alors j'ai chercher sur le forum mais je n'ai pas trouvé exactement la solution à mon problème qui, comme le titre de la discussion l'indique, et de mettre en forme sous condition un rectangle, j'ai vu que l'on pouvait affecter une macro mais je ne connais pas le code pour ce faire....
Merci à tous par l'avance.

Ci-joint un fichier test pour être plus clair.

 

[DoubleZero]

Bonjour à toutes et à tous,

Bienvenue sur XLD, Danielt.

Comme ceci ?

Option Explicit
Sub Shape_colorer()
    Dim s As Shape
    For Each s In ActiveSheet.Shapes
        If s.Type = 1 And s.Name Like "Rectangle*" Then
            If s.TextFrame.Characters.Text = "OK" Then s.Fill.ForeColor.RGB = RGB(44, 212, 100)
            If s.TextFrame.Characters.Text = "CAPA OUT" Then s.Fill.ForeColor.RGB = RGB(255, 0, 0)
        End If
    Next
End Sub

A bientôt

 

[Danielt]

Merci beaucoup Double zéro et Nicole pour la réponse et la rapidité!!
je vais essayer de ce pas!!
Salut!

 

[job75]

Bonjour Danielt, DoubleZero, Nicole,

Dans le 2ème fichier de Nicole il faut bien sûr mettre "Rectangle 2" en G9 et "Rectangle 3" en G10.

A+