Récupérer le choix fait par l'utilisateur parmi plusieurs optionbutton

[alias_2003]

Bonsoir,
Je cherche désespérément à récupérer le choix qui a été fait par l'utilisateur parmi plusieurs optionbutton lors de la suppression d'une ligne, afin de le copier dans une autre feuille.
Le fichier joint contient le code de suppression de la ligne.
Merci beaucoup !
Bonne fin de journée,
Amicalement

 

[patoq]

Re : Récupérer le choix fait par l'utilisateur parmi plusieurs optionbutton

Bonsoir

Comme ça peut être :

Private Sub CBut_Valider_Click()
Ligne = ActiveCell.Row
With Sheets("Supprimer")
        Dl = Feuil2.Cells(Rows.Count, 1).End(xlUp).Row + 1
       Feuil2.Range("A" & Dl) = ActiveCell.Offset(0, -1).Value
       Feuil2.Range("B" & Dl) = ActiveCell.Value
       If Opt_Name = True Then Feuil2.Range("C" & Dl) = Opt_Name.Caption
       If Opt_Name2 = True Then Feuil2.Range("C" & Dl) = Opt_Name2.Caption
       If Opt_Name3 = True Then Feuil2.Range("C" & Dl) = TextBox1
           
    End With

Rows(Ligne).Delete
UserForm3.Hide

End Sub