XL 2016 Mise en forme conditionnelle d'un rectangle

Danielt · 22 Avril 2017

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 · 22 Avril 2017

Bonjour à toutes et à tous,

Bienvenue sur XLD, Danielt.

Comme ceci ?

VB:

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 · 22 Avril 2017

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

job75 · 23 Avril 2017

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+

XL 2016 Mise en forme conditionnelle d'un rectangle

Danielt

XLDnaute Nouveau

Pièces jointes

DoubleZero

XLDnaute Barbatruc

Danielt

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Discussions similaires