[AC-2003] Tester si une variable n'est pas un entier

Bon j'ai revu quelques élements, notament l'évenement sur lequele on place le code, mais sinon, ça me va nikel.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub txtStockMinimum_AfterUpdate()
 
 Dim i
 If Not IsNull(Me.txtStockMinimum) Then
 
 i = Me.txtStockMinimum
 If (Not IsNumeric(i)) Or (IsNumeric(i) And Int(i) < CDbl(i)) Then
  MsgBox "Le stock minmum doit être un nombre entier"
  Me.txtStockMinimum = ""
  Cancel = True
 End If
 
 Else
 Exit Sub
 End If
 
End Sub

Merci à tous