Shapes, ForeColor et RGB

Le 24/01/2022 à 11:23

Bonjour,

Je désire créer une série de formes (rondes) avec la macro suivante :

Sub Galopin()
Dim i%, ArrC, xg%, xh%, xd%
On Error Resume Next
ActiveSheet.DrawingObjects.Delete
On Error GoTo 0
xg = 25: xh = 25: xd = 24
ArrC = "26112 255 65280" 
For i = 0 To 2
   ActiveSheet.Shapes.AddShape(msoShapeOval, xg + (i - 1) * (xd + 5), xh, xd, xd).Select
    With Selection.ShapeRange.Fill
      .Visible = msoTrue
      .ForeColor.RGB = RGB(255, 0, 0)
      .Solid
    End With
Next
    Range("A1").Select
End Sub

Ce qui en l'état donne le résultat escompté.

Comment utiliser les valeurs de Arr au lieu de RGB

2 hypothèses :

Utiliser une autre propriété que RGB pour le remplissage ou...

Utiliser une fonction de conversion en RGB

Avez vous une de ces solution ?

Merci

A+

Le 24/01/2022 à 11:50

Bonjour,

Il faut spliter la variable Arrc et l'utiliser dans la boucle :

Sub Galopin()
Dim i%, ArrC, xg%, xh%, xd%
On Error Resume Next
ActiveSheet.DrawingObjects.Delete
On Error GoTo 0
xg = 25: xh = 25: xd = 24
ArrC = Split("26112 255 65280", " ")
For i = 0 To 2
   ActiveSheet.Shapes.AddShape(msoShapeOval, xg + (i - 1) * (xd + 5), xh, xd, xd).Select
    With Selection.ShapeRange.Fill
      .Visible = msoTrue
      .ForeColor.RGB = ArrC(i) ' RGB(255, 0, 0)
      .Solid
    End With
Next
    Range("A1").Select
End Sub

Le 24/01/2022 à 12:43