Macro couleur d'une fleche

Question

Bonjour, 

Dans un de mes fichiers, j'ai des fleches (dessins) auquelles j'aimerais associer une couleur selon une valeur d'une cellule voisine. La mise en forme conditionnelle ne fonctionnant pas pour les dessins.

MErci de votre aide

Configuration: Windows XP / Safari 535.1

Le Pingou · Answer

Bonjour, 
Au passage, exemple de procédure (couleur rouge pour l'objet [Flèche droite 1])  : 
Sub CouleurFleche() 
ActiveSheet.Shapes.Range(Array("Right Arrow 1")).Select 
    With Selection.ShapeRange.Fill 
        .Visible = msoTrue 
        .ForeColor.RGB = RGB(255, 0, 0) 
        .Transparency = 0 
        .Solid 
    End With 
End Sub 

Note: à adapter selon vos besoins.

Salutations. 
Le Pingou

Macro couleur d'une fleche

1 réponse

Discussions similaires

Newsletters