Private Sub textbox_identiques(nutextbox As Byte, ok As Boolean)
Dim i As Byte
For i = 1 To 7
If i <> nutextbox Then
if Me.Controls("textbox" & i).Value <> "" then
If Me.Controls("textbox" & nutextbox).Value = Me.Controls("textbox" & i).Value Then
TextBox4.Value = ""
MsgBox "vous avez deux textbox avec la même valeur !", vbCritical
Me.Controls("textbox" & nutextbox).Value = ""
Me.Controls("textbox" & nutextbox).SetFocus
ok = Not ok
Exit Sub
End If
end if
End If
Next i
End Sub