XL 2010 Recherche avec legende d'un Option Bouton

[ebac1]

Bonjour,
Dans un userform j'ai plusieurs option bouton :

1 recuperer la legende d'un option bouton
2 recherche de la legende dans une feuille
3 integrer le resultat dans une TextBox

Je n'arrive pas à récupérer la legende, pouvez-vous m'aider, ci-joint un fichier en exemple
Merci d'avance

 

[pierrejean]

Bonjour ebac1

Private Sub OptB1_Click()
Dim Cel As Range
   
    If Me.OptB1 = True Then
        Set Cel = Feuil2.Range("A:A").Find(Me.OptB1.Caption, LookIn:=xlValues, lookat:=xlWhole)
        If Not Cel Is Nothing Then
           ' Cel.Select
            Me.TextBox1 = Cel.Offset(, 2)    'ref
           
    End If
     End If
         
End Sub

 

[ebac1]

Merci Pierrejean, pour cette rapidité, je ne m'etais aperçu de la subtilité
enore merci et bonnes fêtes à toi et les tiens