Eviter Doublons

Private Sub OKbutton_Click()
Dim action As Boolean
Dim numdossard As Integer
Dim i As Integer
Dim numtemps As Variant
If saisie.Dossard.Text = "" Or saisie.Temps.Text = "" Then
GoTo fin
End If
numdossard = saisie.Dossard.Text
numtemps = saisie.Temps.Text
action = False
[COLOR=red]For i = 1 To 500 Step 1[/COLOR]
[COLOR=red]  If Cells(i + 2, 1) = numdossard Then[/COLOR]
[COLOR=red]     If Cells(i + 2, 9) <> "NA" Then[/COLOR]
[COLOR=red]       saisie.Hide[/COLOR]
[COLOR=red]       MsgBox ("ATTENTION, un temps a déjà été enregistré")[/COLOR]
[COLOR=red]       Rows(i + 2).Select[/COLOR]
[COLOR=red]       action = True[/COLOR]
[COLOR=red]       Exit For[/COLOR]
[COLOR=red]     End If[/COLOR]
[COLOR=red]     If Cells(i + 2, 9) = "NA" Then[/COLOR]
[COLOR=red]       Cells(i + 2, 9) = numtemps[/COLOR]
[COLOR=red]       Cells(i + 2, 9).Select[/COLOR]
[COLOR=red]       saisie.Dossard.Text = ""[/COLOR]
[COLOR=red]       saisie.Temps.Text = ""[/COLOR]
[COLOR=red]       saisie.Dossard.SetFocus[/COLOR]
[COLOR=red]       tempsprec = numtemps[/COLOR]
[COLOR=red]       dossardprec = numdossard[/COLOR]
[COLOR=red]       action = True[/COLOR]
[COLOR=red]       Exit For[/COLOR]
[COLOR=red]     End If[/COLOR]
  End If
 Next i
 If action = False Then
 saisie.Hide
 MsgBox ("Le dossard n'a pas été enregistré")
 End If
fin: