Discussion :

[Jess1970]

Bonsoir,

Est-il possible d'assembler dans une Frame plusieurs OptionButtons afin de mieux se repérer dans les nombreuses ligne d'un programme.
Exemple:

Code :

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

1
2
3
4
5
6
7
8
Private Sub Frame5_Click()
 
If OptionButton3_Click.Value = True Then Frame11.Visible = True
 
If OptionButton4.Value = True Then Frame11.Visible = False
 
If OptionButton5.Value = True Then Frame11.Visible = False
End Sub

Par avance merci

[anasecu]

Bonsoir,

Est-il possible d'assembler dans une Frame plusieurs OptionButtons afin de mieux se repérer dans les nombreuses ligne d'un programme.

Tu peux plutôt écrire

Code :

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

1
2
3
4
5
Private Sub Frame5_Click()
If OptionButton3 Then Frame11.Visible = True
If OptionButton4 Then Frame11.Visible = False
If OptionButton5 Then Frame11.Visible = False
End Sub

[Jess1970]

Bonsoir anasecu,

J'ai déjà testé cette méthode, mais elle ne fonctionne pas.

Aurais-je fait qqchose de faux ou alors une option a mettre qqpart ?

J'ai viens de tester ça, mais pareil. Marche pas

Code :

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

1
2
3
4
5
6
7
Private Sub Frame5_Click()
With OptionButton3_Click().OptionButton4_Click().OptionButton5_Click()
If OptionButton3 = True Then Frame11.Visible = True
If OptionButton4 = True Then Frame11.Visible = False
If OptionButton5 = True Then Frame11.Visible = False
End With
End Sub

[anasecu]

J'ai déjà testé cette méthode, mais elle ne fonctionne pas.

Si tes 3 options sont dans la même Frame, il ne peut y en avoir qu'un seul positionné et le code fonctionne,
c'est à dire qu'il effectue la fonction qui lui est demandée.

[Jess1970]

Si tes 3 options sont dans la même Frame, il ne peut y en avoir qu'un seul positionné et le code fonctionne,
c'est à dire qu'il effectue la fonction qui lui est demandée.

Pas sûr de tout comprendre ta réponse

[Theze]

Bonjour,

Tu pourrais utiliser ce genre de 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
 
Private Sub OptionButton3_Click()
    Afficher
End Sub
Private Sub OptionButton4_Click()
    Afficher
End Sub
Private Sub OptionButton5_Click()
    Afficher
End Sub
 
Private Sub Afficher()
 
    'Frame caché si OptionButton5 et OptionButton3 décochés
    Frame11.Visible = OptionButton4.Value = (OptionButton5.Value And OptionButton3.Value = False)
 
End Sub

Par contre, cette ligne est'elle juste " OptionButton3_Click.Value" ou alors la présence de "_Click" est une erreur ?

[unparia]

Bonjour

Bien malin est celui qui serait capable de deviner :
- si tous ces contrôles sont sur une feuille de calcul ou sur un userform (comportement d'un Frame totalement différent)
- si les optionbuttons dont il s'agit sont dans le Frame11 ou à mettre dans un autre frame.

[Invité]

Bonjour,
Comme dit précédemment il suffit de cocher n'importe quel OptionButton autre que OptionButton3 pour décocher OptionButton3!

Code :

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

1
2
3
Private Sub OptionButton3_Click()
Frame11.Visible = OptionButton3
End Sub

[patricktoulon]

je pige pas l'interet de passer par le click de la frame 5 mais bon

je remplace donc ceci:

Code :

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

1
2
3
4
5
6
7
8
Private Sub Frame5_Click()
 
If OptionButton3_Click.Value = True Then Frame11.Visible = True
 
If OptionButton4.Value = True Then Frame11.Visible = False
 
If OptionButton5.Value = True Then Frame11.Visible = False
End Sub

par cela

Code :

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

1
2
3
Private Sub Frame5_Click()
 Frame1.Visible = OptionButton3.Value
End Sub

[Jess1970]

Bonjour à vous tous,

J'avoue, j'ai posé la même question sur un autre forum pour avoir des comparaisons de réponse.

Promis, je ne le ferais plus

J'ai trouvé la réponse a mon problème et c'est vraiment tout con..
Quant tu clic sur un OptionButton c'est

Code :

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

OptionButton1_Click()

qui apparaît. Alors que pour que cela fonctionne bien, il faut changer par

Code :

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

OptionButton1_Change()