Bonjour,
Pour la recherche > dans la macro "Private Sub obG2()
" > modifie ceci ( marqué << modif )...
...
...
UserForm85.ComboBox1.Clear
col = IIf(UserForm85.OptionButton3.Value = True, 2, 3) ' << modif
With Sheets("basededonnéespatient")
...
...
Pour la création > dans la macro " Private Sub CommandButton1_Click()
" > modifie ceci ( marqué << ajout ou << modif )
Private Sub CommandButton1_Click()
' Valider
Dim dest As Range
With Sheets("basededonnéespatient")
If nl = 0 Then
Set dest = .Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0)
Else
Set dest = .Cells(nl, 1)
End If
End With
x = 1 ' << modif
Application.EnableEvents = False ' << ajout
dest.Offset(0, x).Value = Me.Controls("TextBox1").Value
dest.Offset(0, x + 1).Value = Me.Controls("TextBox" & x + 1).Value
Application.EnableEvents = True ' << ajout
Unload Me
UserForm85.Show
End Sub
ric