copier le format couleur d'une cellule dans un objet (shape)

[bertrand.feydy]

Bonjour ,
en VBA : j'ai récupére la couleur du fond d'une cellule en format RGB
comment puis ccopier cette couleur dans un objet (shape)
en excel 2010

 

[DoubleZero]

Re : copier le format couleur d'une cellule dans un objet (shape)

Bonjour à toutes et à tous,

Bienvenue sur XLD, bertrand.feydy.

Comme ceci ?

Option Explicit
Sub Forme_couleur_selon_cellule_couleur()
    With ActiveSheet.Shapes("toto")    ' nom adapter
        .DrawingObject.Interior.Color = Range("a1").Interior.Color    ' cellule adapter
        .Line.Visible = msoFalse
    End With
End Sub

A bientôt 🙂

 

[BOISGONTIER]

Re : copier le format couleur d'une cellule dans un objet (shape)

Bonjour,


http://boisgontierjacques.free.fr/fichiers/Images/fonctionColoriage5.xls

Les images et shapes

JB