Modifier la couleur du triangle des commentaires

temprano

XLDnaute Nouveau
Bonjour,

je cherche une solution (la plus simple possible) pour modifier la couleur du triangle rouge des cellules sur lesquelles il y a un commentaire.

J'ai trouvé une solution qui ne me satisfait pas (qui surimpose un triangle sur le triangle existant).

Si qqun a une piste...


d'avance merci,
 

natorp

XLDnaute Accro
Re : Modifier la couleur du triangle des commentaires

Bjr temprano et carcharodon-carcharias

Voici un code trouvé sur le net qui fonctionne envoyé par JB :
Code:
Sub CreeShapes()
For Each s In ActiveSheet.Shapes
     If s.Name Like "commentaire*" Then s.Delete
Next s
i = 1
For Each c In ActiveSheet.Comments
     With ActiveSheet.Shapes.AddShape(Type:=msoShapeRightTriangle, _
        Left:=c.Parent.Left + c.Parent.Width - 5, Top:=c.Parent.Top + _
1, Width:=5, Height:=5)
     .Fill.ForeColor.RGB = RGB(255, 255, 255)
     .Line.ForeColor.RGB = RGB(255, 255, 255)
     .IncrementRotation 180
     .Name = "commentaire" & i
     i = i + 1
End With
Next
End Sub

Cordialement, Gérard
 

Discussions similaires

Réponses
2
Affichages
210

Statistiques des forums

Discussions
312 493
Messages
2 088 956
Membres
103 990
dernier inscrit
lamiadebz