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 :
Vous remerciant par avance
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 :
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