Macro couleur d'une fleche

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

1 réponse

Le Pingou Messages postés 12225 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 6 décembre 2024 1 452
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