Groupe d'options

For Each Ctrl in Me.Frame1.Controls
If ctrl.Value = True Then Me.TextBox1 = Ctrl.Caption : Exit for
Next Ctrl

'--------------------------------------
'dans un module standard
Option Explicit

Public Collect As Collection
'--------------------------------------

'--------------------------------------
'à placer dans le module objet du UserForm
Option Explicit

Private Sub UserForm_Initialize()
    Dim Obj As Control
    Dim Cl As Classe1
        
    Set Collect = New Collection
    
    'boucle sur les objets du Frame
    For Each Obj In Me.Frame1.Controls
        'verifie s'il s'agit d'un optionButton
        If TypeOf Obj Is MSForms.OptionButton Then
            Set Cl = New Classe1
            Set Cl.Opt = Obj
            Collect.Add Cl
        End If
    Next Obj
End Sub
'--------------------------------------

'--------------------------------------
'dans un module de classe nommé "Classe1"
Option Explicit

Public WithEvents Opt As MSForms.OptionButton

'exemple pour gérer l'evenement clic de l'objet optionButton
Private Sub Opt_Click()
    UserForm1.TextBox1 = Opt.Caption
End Sub
'--------------------------------------