OptionButtons dans Frame

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:

---

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

Bonsoir,

Citation:

---

Envoyé par Jess1970

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:

---

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

---

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:

---

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

---

Citation:

---

Envoyé par Jess1970

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.

Citation:

---

Envoyé par anasecu

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
:oops:

Bonjour,

Tu pourrais utiliser ce genre de code :

Code:

---

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 ?

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.

Bonjour unparia,

Les trois boutons d'option sont dans un Frame et doivent piloter un autre Frame ;)

Bonjour Theze
Et ?
Sur quoi sont donc ces deux Frames ?
En te rappelant qu'un contrôle activex Frame placé sur une feuille de calcul est TRES différent d'un contrôle Frame placé sur un userform.;)
Amitiés

Sur un UserForm (d'après le fichier joint et vu sur un autre forum !)

Citation:

---

d'après le fichier joint et vu sur un autre forum !

---

Euh ...
Aucun fichier joint ici (que je n'aurais de toutes manières pas ouvert). ;)
Si Jess1970 veut de l'aide ICI, il lui appartient d'être complet et précis ICI.

Citation:

---

Si Jess1970 veut de l'aide ICI, il lui appartient d'être complet et précis ICI.

---

Tout à fait d'accord !

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

Code:

---

1 2 3

Private Sub OptionButton3_Click() Frame11.Visible = OptionButton3 End Sub

---

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

je remplace donc ceci:

Code:

---

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:

---

1 2 3

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

---

;)

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 :ave:

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:

---

OptionButton1_Click()

---

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

Code:

---

OptionButton1_Change()

---