copier le 'Caption' d'un bouton radio

[Laurent]

Bonjour,

J'ai dans une frame 3 boutons radios.
J'aimerais que lorsque je clique sur un bouton par exemple,
la cellule 'A1' prennent la valeur du Caption du bouton radio selectionné.

range('A1').value = ... ?

Merci pour votre aide

Laurent

 

[Hellboy]

Bonjour Laurent

Je te donne un exemple:

Private Sub OptionButton1_Click()
Sheets(1).Range('A1').Value = UserForm1.OptionButton1.Caption
End Sub