Macro couleur d'une fleche

Fermé
Ayden - 15 août 2011 à 14:19
Le Pingou Messages postés 12057 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 1 mai 2024 - 15 août 2011 à 17:56
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

A voir également:

1 réponse

Le Pingou Messages postés 12057 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 1 mai 2024 1 430
Modifié par Le Pingou le 15/08/2011 à 17:57
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
0