VBA Changer la couleur du contour ou bordure d'une Ellipse

[zephir94]

Bonjour à tous,

Je change la couleur intérieur d'une ellipse en fonction d'un résultat mais je ne trouve pas l'instruction pour colorier aussi la bordure de mon ellipse ?
Voici mon code :

comp1 = Sheets("Agent admin").Range("P27").Value
If comp1 < 0.5 Then
With ActiveSheet.Shapes("Ellipse 8").OLEFormat.Object
.Interior.ColorIndex = 3
End With
Else
With ActiveSheet.Shapes("Ellipse 8").OLEFormat.Object
.Interior.ColorIndex = 4

End With

End If

Vous remerciant par avance

 

[Modeste]

Re : VBA Changer la couleur du contour ou bordure d'une Ellipse

Bonjour zephir94,

Sans doute un truc comme:

ActiveSheet.Shapes("Ellipse 8").OLEFormat.Object.Border.ColorIndex= x

... Je te laisse le soin de choisir une valeur pour remplacer le 'x' 🙂

 

[zephir94]

Re : VBA Changer la couleur du contour ou bordure d'une Ellipse

Un grand merci à toi