aide sur user form

    '.Cells(K, "p").Offset(1).Value = Me.féminin.Value * -1
    '********************************
    Dim Ctrl As Control
    
    For Each Ctrl In FrameSexe.Controls
        If Ctrl.Object.Value = True Then
            MsgBox Ctrl.Object.Caption
            .Cells(K, "p").Offset(1).Value = Ctrl.Object.Caption
            Exit For
        End If
    Next Ctrl
    '*******************************

'Bouton radio sur le sexe des patients
'1 = Homme, 0 = Femme
'If Rg(MonIndex, 16) = 1 Then
'****************************************
If Rg(MonIndex, 16) = "Féminin" Then
    Me.féminin.Value = True
    Me.masculin.Value = False
End If
    
If Rg(MonIndex, 16) = "Masculin" Then
    Me.féminin.Value = False
    Me.masculin.Value = True
End If

If Rg(MonIndex, 16) = "" Then
    Me.féminin.Value = False
    Me.masculin.Value = False
End If