Discussion :

[Daniel.C]

Bonjour,

Soit 3 cases d'options (contrôles de formulaire) et une zone de groupe. Les 4 éléments sont groupés. Avec Excel 2013, je peux accéder à la valeur d'une case d'option avec :

Code :

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

Var = ActiveSheet.Shapes(1).GroupItems(2).ControlFormat.Value

Ca ne fonctionne pas avec Excel 2007 (erreur 1004 Impossible de lire la propriété Value de la classe OptionButton). Quelle est la solution ?

Merci d'avance.

[NVCfrm]

bonsoir Daniel,

j'ai été confronté à ce problème une fois sans parvenir à le solutionner autrement que par lier les shapes à une cellule avant le groupage.
une fois groupée on ne peut plus lire sur 2007 ControlFormat.Value.
La cellule liée reste toujours liée.

[guigol]

A priori, cela fonctionne avec la solution ci dessous.

réponse sur Commentcamarche

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub lancer_macro()
Dim groupe As Shape, opt As Object, adr As String
For Each groupe In ActiveSheet.Shapes
    If groupe.Type = msoGroup Then groupe.Ungroup
Next groupe
For Each opt In ActiveSheet.Shapes
    If opt.FormControlType = xlOptionButton Then
        adr = opt.TopLeftCell.Address
        If opt.ControlFormat = 1 Then MsgBox (adr & ", ligne " & Split(adr, "$")(1) & ", colonne " & Split(adr, "$")(2))
    End If
Next opt
End Sub

[Daniel.C]

une fois groupée on ne peut plus lire sur 2007 ControlFormat.Value

Le problème est que le classeur arrive tout fait. Excel 2013 y arrive (je n'ai pas essayé Excel 2010). Mais l'utilisateur ne dispose que d'Excel 2007. Donc "Ungroup", puis récupération du bouton activé.

[Philippe Tulliez]

Bonjour Daniel,
Je viens de faire un test et l'erreur 1004 est provoquée par un Shape dont le nom est Group Box si on passe au-dessus on n'a plus d'erreur.
J'utilise très peu ce type d'objet, je n'ai donc pas une grande expérience de ceux-ci.
En général je regroupe les objets OptionButton dans un Frame et j'utilise la cellule liée.
Mais comme tu l'as signalé l'utilisateur n'a pas la main sur le classeur.
Code de mon test (rapide)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
 Dim s As Shape
 Dim sht As Worksheet: Set sht = ActiveSheet
 Debug.Print sht.Shapes.Count '  .Shapes(1).GroupItems(1).ControlFormat.Value
 For Each s In sht.Shapes
  Debug.Print s.Name
  s.Select
   Select Case Left(s.Name, 5)
     Case "Group"
      If InStr(s.Name, "Box") = 0 Then Debug.Print s.GroupItems.Count
   End Select
 Next
 ' MsgBox "Vous avez cliqué sur un élément du Group53"
End Sub

[Daniel.C]

Bonsoir Philippe,

Mon but est de savoir quel bouton est activé, à l'intérieur du groupe.

[mercatog]

Bonsoir à tous

Ci-joint code testé avec le fichier initial sur Excel 2010. On sortie on récupère le nom du groupe et le bouton activé.

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
25
26
27
Sub Test()
Dim Shp As Shape, Gpe As Shape
Dim i As Integer, j As Integer
Dim Tb()
 
For Each Shp In ActiveSheet.Shapes
    If Shp.Type = msoGroup Then
        For Each Gpe In Shp.GroupItems
            If Gpe.FormControlType = xlOptionButton Then
                If Gpe.ControlFormat.Value = 1 Then
                    j = j + 1
                    ReDim Preserve Tb(1 To 2, 1 To j)
                    Tb(1, j) = Shp.Name
                    Tb(2, j) = Gpe.TopLeftCell.Address    'ou Shp.GroupItems(i).name
                    Exit For
                End If
            End If
        Next Gpe
    End If
Next Shp
 
If j > 0 Then
    For i = 1 To j
        Debug.Print "Groupe: " & Tb(1, i), "Bouton activé: " & Tb(2, i)
    Next i
End If
End Sub