Discussion :

[graphikris]

Bonjour,

J'ai créé un quizz de 27 questions avec pour chacune d'entre elles quatre cases d'option. Chacun de ce groupe de 4 cases est délimiter dans une zone de groupe.
Je voudrais qu'à l'ouverture de l'onglet "Quizz", que toutes les cases d'option soient désactivées.

J'ai essayé en déclenchant une nouvelle macro puis en sélectionnant le 1er groupe des 4 cases d'option, puis le 2ème et ainsi de suite jusqu'au 3ème mais lorsque je déclenche cette macro, j'ai un bug sur la ligne 38 ".Value = xlOff " avec le message suivant :
Impossible de définir la propriété Value de la classe DrawingObjects.

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Sub Macro3()
'
' Macro3 Macro
    ActiveSheet.Shapes.Range(Array("Option Button 1")).Select
    ActiveSheet.Shapes.Range(Array("Option Button 1", "Option Button 2")). _
        Select
    ActiveSheet.Shapes.Range(Array("Option Button 1", "Option Button 2", _
        "Option Button 3")).Select
    ActiveSheet.Shapes.Range(Array("Option Button 1", "Option Button 2", _
        "Option Button 3", "Option Button 4")).Select
    ActiveSheet.Shapes.Range(Array("Option Button 1", "Option Button 2", _
        "Option Button 3", "Option Button 4", "Option Button 149")).Select
    ActiveSheet.Shapes.Range(Array("Option Button 1", "Option Button 2", _
        "Option Button 3", "Option Button 4", "Option Button 149", "Option Button 150" _
        )).Select
    ActiveSheet.Shapes.Range(Array("Option Button 1", "Option Button 2", _
        "Option Button 3", "Option Button 4", "Option Button 149", "Option Button 150" _
        , "Option Button 151")).Select
    ActiveSheet.Shapes.Range(Array("Option Button 1", "Option Button 2", _
        "Option Button 3", "Option Button 4", "Option Button 149", "Option Button 150" _
        , "Option Button 151", "Option Button 152")).Select
    ActiveSheet.Shapes.Range(Array("Option Button 1", "Option Button 2", _
        "Option Button 3", "Option Button 4", "Option Button 149", "Option Button 150" _
        , "Option Button 151", "Option Button 152", "Option Button 154")).Select
    ActiveSheet.Shapes.Range(Array("Option Button 1", "Option Button 2", _
        "Option Button 3", "Option Button 4", "Option Button 149", "Option Button 150" _
        , "Option Button 151", "Option Button 152", "Option Button 154", _
        "Option Button 155")).Select
    ActiveSheet.Shapes.Range(Array("Option Button 1", "Option Button 2", _
        "Option Button 3", "Option Button 4", "Option Button 149", "Option Button 150" _
        , "Option Button 151", "Option Button 152", "Option Button 154", _
        "Option Button 155", "Option Button 156")).Select
    ActiveSheet.Shapes.Range(Array("Option Button 1", "Option Button 2", _
        "Option Button 3", "Option Button 4", "Option Button 149", "Option Button 150" _
        , "Option Button 151", "Option Button 152", "Option Button 154", _
        "Option Button 155", "Option Button 156", "Option Button 157")).Select
    With Selection
        .Value = xlOff
        .LinkedCell = ""
        .Display3DShading = True
    End With
    Range("A1").Select
End Sub

[mjpmjp]

bonjour,
les options button inter agissent entre eux (par groupe...de 4 ?),

peut être avec un peu de magie ... ( et de la stratégie ?)

je te propose cette solution
1) tu met un 5° option button (invisible) par groupe, c'est lui que tu sélectionne --> ce qui désélectionne les 4 autres
2) tu nommes style "OB1..à OB27"
3) tu utilise une boucle qui sélectionne les controles("OB" & n)

@+JP

[mjpmjp]

bonjour,



la boucle,

Code :

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

1
2
3
4
5
6
 
Private Sub CommandButton1_Click()
    For n = 1 To 2
        ActiveSheet.OLEObjects("OB" & n).Object.Value = True
    Next n
End Sub

Visible,

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub CommandButton2_Click()
    If OB1.Visible = True Then
        OB1.Visible = False
        OB2.Visible = False
    Else
        OB1.Visible = True
        OB2.Visible = True
    End If
End Sub

@+JP

[pijaku]

Bonjour,

S'agissant de contrôles de formulaire, il faut procéder ainsi.

Pour un unique OptionButton :

Code :

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

1
2
3
Sub Macro1()
    ActiveSheet.Shapes("Option Button 1").OLEFormat.Object.Value = -4146
End Sub

Pour tous les OptionButton de la feuille active :

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
Sub Macro2()
Dim Shp As Shape
    'pour tous les Shapes de la feuille
    For Each Shp In ActiveSheet.Shapes
        's'il s'agit d'un contrôle de formulaire
        If Shp.Type = msoFormControl Then 'inutile, mais pour montrer que cela existe
            's'il s'agit d'un bouton d'option
            If Shp.FormControlType = xlOptionButton Then
                's'il est "ON"
                If Shp.ControlFormat.Value = 1 Then
                    'on le mets "OFF"
                    Shp.ControlFormat.Value = -4146
                End If
            End If
        End If
    'suivant...
    Next Shp
End Sub

[graphikris]

Bonjour et merci à vous deux.
Néanmoins la solution de Pijaku me semble la plus appropriée à mon souci.