Private Sub CommandButton1_Click()
Dim i As Integer
Application.EnableEvents = True
Début:
If TextBox1.Value = 0 Or TextBox2.Value = "" Or TextBox3.Value = "" Or TextBox4.Value = "" Or (OptionButton1.Value = False And OptionButton2.Value = False And OptionButton3.Value = False And OptionButton4.Value = False) Then
For i = 1 To 5
Label5.Visible = True
Label5.ForeColor = &HFFFF&
Label5.BackColor = &HFF&
Attente (4000)
Beep
Label5.BackColor = &HFFFF&
Label5.ForeColor = &HFF&
Attente (4000)
Beep
Label5.BackColor = &H8000000F
Label5.Visible = False
Next
Exit Sub
End If