For i = 2 To 17 Step 3
' ********************* Test TextBox Valeur n'est pas H ou F*********************************
If Controls("TextBox" & i) <> "H" And Controls("TextBox" & i) <> "F" Then
A = MsgBox("Verifier il doit avoir Soit H ou F ,,,, ", vbCritical, "test")
Curseur
Controls("TextBox" & i) = ""
Controls("TextBox" & i).SetFocus
Exit Sub
End If
Next i
For i = 1 To 16 Step 3
' ********************* Test TextBox Valeur n'est pas des noms de familles*********************************
If Val(Controls("TextBox" & i).Value) > 0 Then
A = MsgBox("Verifier il doit y avoir un nom ,,,, ", vbCritical, "test")
Curseur
Controls("TextBox" & i) = ""
Controls("TextBox" & i).SetFocus
Exit Sub
End If
Next i
For i = 3 To 18 Step 3
' ********************* Test TextBox Valeur n'est pas des nombres*********************************
If Val(Controls("TextBox" & i).Value) = 0 Then
A = MsgBox("Verifier il doit y avoir un nombre ,,,, ", vbCritical, "test")
Curseur
Controls("TextBox" & i) = ""
Controls("TextBox" & i).SetFocus
Exit Sub
End If
Next i