Recupération données de l'option bouton dans un textbox

[Damien76]

Bonjour

Dans un userform j'ai plusieurs frame avec des boutons option, pour ne pas me tromper j'aimerais que dés que je clique sur un option bouton il s'incrit directement sur un textbox ou label . Cela me permet de valider correctement. Merci pour votre aide.

J'ai essayé avec ceci mais en vain :

Dim Ctrl As Control

For Each Ctrl In Frame9.Controls
If Ctrl.Object.Value = True Then
Textbox4 = Ctrl.Object.Caption
Exit For
End If
Next Ctrl

 

[Pierrot93]

Re : Recupération données de l'option bouton dans un textbox

Bonjour,

regarde peut être ceci, enfin si j'ai bien compris, pas sur...

A placer dans le module de l'userform :

Private Sub OptionButton1_Click()
If OptionButton1 Then TextBox1 = OptionButton1.Caption
End Sub

bonne journée
@+

 

[Damien76]

Re : Recupération données de l'option bouton dans un textbox

Bonjour Pierrot93

Merci pour cette réponse, mais le problème est que j'ai plusieurs frame de +/- 30 optionbutton donc dès que je clique sur l'un ou l'autre j'aimerais qu'il s'affiche directement dans un textbox ou label. J'espère que ceci pour t'aider d'avantage
En tous les cas un grand merci pour la reponse si rapide

 

[Pierrot93]

Re : Recupération données de l'option bouton dans un textbox

Re,

bah... soit tu mets le code proposé dans l'événement click de chaque "optiobutton", sinon fais une recherche sur le forum sur les modules de classe, tu trouveras plein d'exemples....