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.