Private Sub CheckBox30_Click()
If CheckBox30 And TextBox2 = "" Then
MsgBox "Vous devez renseigner la TextBox2 !", vbCritical, "ATTENTION"
CheckBox30 = False
Exit Sub
End If
If CheckBox30 Then
TextBox1.Text = TextBox1.Text & " " & Label1.Caption & " " & TextBox2.Text
Else
If TextBox1.Text Like "*" & Label1 & "*" Then
TextBox1.Text = Split(TextBox1.Text, " " & Label1)(0)
Else
If TextBox2 <> "" Then
MsgBox "Vous avez modifié la TextBox1 !", vbCritical, "ATTENTION"
TextBox1.Text = ""
End If
End If
End If
End Sub