Normalement, la propriété .visible d'un controle Groupe d'Options (avec boutons options) permet de rendre visible ou invisible le groupe et les boutons d'options associés.
Cependant avec le code suivant, je constate que la propriété .visible n'influence que le cadre, les boutons restant invisibles.
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
Dim ctl As Control
 
For Each ctl In Me      'pour tous les controles du formulaire...
    If ctl.Name <> "GOrenouv" Then ctl.Visible = False
    If ctl.ControlType = acCheckBox Then                     'si le controle est une case à cocher...
         ctl.Value = False
    End If
    If ctl.ControlType = acTextBox Then 'si le controle est une zône de texte...
           ctl.Value = ""
    End If
    If ctl.ControlType = acOptionGroup Then                     'si le controle est un groupe d'option...
        ctl.Value = ""
    End If
    If ctl.ControlType = acListBox Then                     'si le controle est une zône de liste...
        ctl.Value = ""
    End If
Next ctl
L'écriture suivante donne le même résultat curieux :
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
Dim ctl As Control
For Each ctl In Me      'pour tous les controles du formulaire...
    ctl.Visible = False
    If ctl.ControlType = acCheckBox Then                     'si le controle est une case à cocher...
         ctl.Value = False
    End If
    If ctl.ControlType = acTextBox Then 'si le controle est une zône de texte...
           ctl.Value = ""
    End If
    If ctl.ControlType = acOptionGroup Then                     'si le controle est un groupe d'option...
        ctl.Value = ""
    End If
    If ctl.ControlType = acListBox Then                     'si le controle est une zône de liste...
        ctl.Value = ""
    End If
Next ctl
Me.GOrenouv.Visible = True
Comment expliquer cette réponse. Un groupe d'options n'est-il pas assimilable à un controle ? Quelle serait la bonne écriture ?
Merci de votre réponse.