Copier mise en forme dans forme

Bonjour,

Dans mon fichier Excel, j’ai des formes (rectangles) qui font référence à une cellule.

J’ai donc la valeur de la cellule dans ma forme.

Ce que je voudrais savoir, c’est si c’est possible d’avoir la valeur de la cellule mais aussi la même mise en forme (si la valeur est rouge, l’afficher rouge aussi dans la forme

Merci d’avance

Vincent

Bonjour,

Voilà ..

Pas d'idées ?

Bonjour,

Essaye le code suivant :

Sub changeCouleurForme()
    Couleur = [B5].Font.Color
    With ActiveSheet.Shapes.Range(Array("Rectangle 1")).TextFrame2.TextRange.Font.Fill
        .ForeColor.RGB = RGB(Int(Couleur Mod 256), Int((Couleur Mod 65536) / 256), Int(Couleur / 65536))
    End With
End Sub