Private Sub CommandButton3_Click()
i = 1
If IsNull(Me.Controls("textbox" & i).Value) Or Me.Controls("textbox" & i).Value = "" Then
MsgBox "Vous devez choisir saisir un nouvel objet de visite"
Me.Controls("textbox" & i).Value = ""
Me.Controls("Textbox" & i).SetFocus
Exit Sub
End If
O.Unprotect "mdp"
With O
.ListObjects("TAB_OBJET_VISITE").ListRows(Range("TAB_OBJET_VISITE").Rows.Count).Range.Select
Selection.ListObject.ListRows.Add AlwaysInsert:=False
Selection.Offset(1, 0).Value = Me.Controls("Textbox" & i).Value
With .ListObjects("TAB_OBJET_VISITE").Sort
.Orientation = xlTopToBottom
.Apply
End With
End With
O.Protect "mdp"
Select Case MsgBox("Souhaitez-vous renseigner un nouveau objet de visite ?", vbYesNo + vbQuestion, "Titre de la MsgBox")
Case vbYes
Unload Me
OBJET_AJOUT.Show
Case vbNo
Unload Me
End Select
[B2].Activate
End Sub