Discussion :

[vivi4561]

Bonsoir,

Seriez vous comment faire :
- Lorsqu'on a dans une UserForm, 2 "Optionbutton" qui ne s'activent pas en meme temps ? Lorsqu'on en coche un, l'autre est obligatoirement décoché (j'ai lu qu'on pouvait utiliser un "cadre" mais j'ai pas trop compris comment faire.
- Sinon lorsqu'on coche un des boutons, une zone de texte (qui est dans la UserForm) devient grisée (impossible d'écrire) et lorsqu'on choisit l'autre bouton, il est alors possible d'écrire dans la zone de texte.


Merci pour votre précieuse aide.


Vince

[mercatog]

1. Mettre le même nom dans propriété GroupName des 2 optionbutton.
2.

Code :

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

1
2
3
Private Sub OptionButton1_Change()
Me.TextBox1.Enabled = Me.OptionButton1.Value
End Sub

[zazaraignée]

Ouaip! la propriété GroupName, c'est bien.

sinon tu dessine un composant Frame et tu mets tes composants dedans. Si ceux-ci sont déjà dessinés sur la feuille, tu les coupes et tu les colles.

[Qwazerty]

Salut
[Grillé]Arf... faut soit que je tape plus vite ... soit que je soit moins bavard...[/Grillé]
Je ne saisie pas trop ta demande, avoir 2 option bouton indépendant, ça revient a utiliser un checkbox non?

Pour avoir plusieurs "groupe" de bouton qui interagissent sans se gêner, il faut utiliser la propriété GroupeName des option bouton. Ainsi, de tout les optionBoutons qui auront le même groupename, un seul pourra être activé a la fois.

2eme question:
Dans l’évènement OnChange de ton OptionBouton (ou de ton checkbox) il faut lié la proprieté Enable de ton TextBox a la propriété Check de ton OptionBouton

Code :

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

Textbox1.enabled = OptionBouton.value

++
Qwaz

[zazaraignée]

Je suis d'accord avec Qwazerty pour l'utilisation d'un checkbox dans ce cas précis. Sauf si ça rend l'interface ambiguë pour l'utilisateur.

On n'a qu'à penser à un bon vieux choix entre M et F (mâle ou femelle). Personne ne songerait à mettre un checkBox pour ce type de choix.

[vivi4561]

Re,

Nikel pour l'idée du GroupeName, ça marche bien !
Et merci pour l'événement OnChange.

Thanks !