Discussion :

[apatsou]

Bonjour,
je teste une macro toute simple. Création dans mon code vba , sur une feuille Excel d'un groupe qui contient une checkbox. Je leur donne un nom et leur donne une couleur.
Mais le nom n'apparait pas dans le debug et la couleur non plus. Qu'est-ce qui cloche dans mon code ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Sub Macrox()
'
    ActiveSheet.GroupBoxes.Add(66, 259.2, 78, 68.4).Select
    Selection.Name = "xx"
    Selection.Characters.Text = "Selection colonnes"
 
    ActiveSheet.CheckBoxes.Add(79.8, 275.4, 45, 17.4).Select
    Selection.Name = "b1"
    Selection.Characters.Text = "Mimo"
 
    ActiveSheet.Shapes.Range(Array("xx", "b1")).Select
    Selection.ShapeRange.Group.Select
 
 
ActiveSheet.Shapes("b1").Select
ActiveSheet.Shapes("b1").Fill.ForeColor.RGB = RGB(85, 142, 213)                   
ActiveSheet.Shapes("b1").Line.BackColor.RGB = RGB(198, 217, 241)
 
   For Each Sh In ActiveSheet.Shapes
        Debug.Print Sh.Name
    Next
 
End Sub

Merci de vos retours.

[EricDgn]

Bonjour,

Je pense qu'il n'est pas possible de modifier les couleurs des objets GroupBoxes et CheckBoxes posés dans une feuille. Une façon de contourner cela est de créer un GroupBoxes attaché aux coins d'une plage de cellules et d'ensuite colorer le fond de cette plage de cellules. Un exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub MacroShape()
    Dim sh As Object, rSh As Range, cb As CheckBox
    Set rSh = Range("D2:F8")
    Set sh = ActiveSheet.GroupBoxes.Add(rSh.Left, rSh.Top, rSh.Width, rSh.Height)
    sh.Name = "xx"
    sh.Characters.Text = "Selection colonnes"
    rSh.Interior.Color = 65535
 
    Set rSh = rSh.Range("B2")
    Set cb = ActiveSheet.CheckBoxes.Add(rSh.Left, rSh.Top, rSh.Width, rSh.Height)
    cb.Name = "b1"
    cb.Characters.Text = "Mimo"
 
    For Each sh In ActiveSheet.Shapes
        Debug.Print sh.Name
    Next
End Sub

Une autre façon est de passer par un formulaire (UserForm) dans lequel les GroupBoxes et Checkboxes sont coloriables.

Bien cordialement.