XL 2016 Mise en forme conditionnelle d'un rectangle

Danielt

XLDnaute Nouveau
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.
 

Pièces jointes

  • danielt.xlsm
    10.5 KB · Affichages: 38

DoubleZero

XLDnaute Barbatruc
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 :)
 

Discussions similaires

Réponses
12
Affichages
317