Discussion :

[tibeaudlo]

Bonjour,

J'ai un fichier excel qui contient des positions ainsi qu'un état de ces positions ( en gros la position d'un interrupteur et son état on/off) je souhaite les visualiser sur une carte en dessinant un cercle de couleur différente suivant les états. Pouvez vous m'aider ?
J'utilise ce code pour dessiner le cercle mais comment en changer la couleur ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim x As Single
Dim y As Single
x = 100
y = 100
ActiveSheet.Shapes.AddShape(msoShapeArc, x, y, 10, 10).Select
Selection.ShapeRange.Adjustments.Item(1) = 360
Selection.ShapeRange.Adjustments.Item(2) = 0

Merci.

Thib

[Jean-Philippe André]

Bonjour,
tu peux voir des solutions avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Selection.ShapeRange.Line.ForeColor.SchemeColor = 64
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)

[tibeaudlo]

Merci beaucoup !