Detecter un integer

Je voudrais créé une condition qui signale une erreur si elle detecte autre chose qu'un entier dans une variable.
J'avais fait ceci :

If Variable = "" Or somme <= 0 Or somme > 9999 Then
message = "Veuillez saisir un entier valide"
titre = "Erreur"
Float = MsgBox(message, 10, titre)
Exit Sub

Mais si Variable contient par exemple une chaine de caractere, la detection ne marche pas et le programme plante.

Comment faire ?

Merci

JC

if int(variable) <>variable then
msgbox "la variable n'est pas un entier"
end if

essaye ca, je ne sais pas si c'est la meilleur solution mais ca doit marcher...
a voir

Et non cela ne marche pas, j'ai un plantage :

"erreur d'execution '13'
Type incompatible"

JC

heu, apres avoir relu, ma solution ne peut pas marcher, tu veux aussi que ca marche pour les caractères, donc ca colle pas...

sinon, vu le message d'erreur que tu veux afficher, il semblerait que tu veuille limiter la saisie dans un textbox ou autre composant par des nombres entiers

Tu peux faire cela, il y a des sources qui te disent comment ici...


Option Explicit
'# Déclaration de quelques API
Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const ES_NUMBER As Long = &H2000&
Private Const GWL_STYLE As Long = -16

Private Sub Form_Load()
MakeNumericOnly Text1' si c'est le textbox text1
End Sub

Private Sub MakeNumericOnly(Obj As Object)
'# Cette variable contiendra le Style de notre Controle :
'# il s'agit d'une combinaison de differentes valeurs...
Dim Style As Long

'# On récupère le style actuel
Style = GetWindowLong(Obj.hwnd, GWL_STYLE)

'# On ajoute le style ES_NUMBER...
Style = Style Or ES_NUMBER

'# et on replace le tout dans le Controle
SetWindowLong Obj.hwnd, GWL_STYLE, Style
End Sub

sympa, on dit merci a renfield

il doit y en avoir d'autres, je le site parce que je trouve qu'il le merite bien en passant
allez, bonne chance a toi, en esperant que ca t'aide un peu

ça a l'air bien compliqué, je croyais qu'il y avait une fonction standard qui permettait de le faire.

Effectivement, il s'agit d'une textbox, qui renvoi une somme à une base de donnée. Il faut donc interdire une autre entrée qu'un entier

Je vais quand meme essayer...

JC

si je comprend bien tu ve juste pouvoir rentrer un integer dans un textbox?
pas de caractère?
et controler la longeur?
t'as des nombres négatifs possible??

si je comprend bien tu ve juste pouvoir rentrer un integer dans un textbox?
pas de caractère?
et controler la longeur?
t'as des nombres négatifs possible??

non pas de nombre negatif possible, juste un entier positif

JC

Private Sub Text1_KeyPress(KeyAscii As Integer) Dim p As Integer Dim z As Integer Select Case KeyAscii Case 8: Case 48 To 57: p = Text1.SelStart z = Len(Text1) - p If Val(Left$(Text1, p) & Chr$(KeyAscii) & Right$(Text1, z)) > 9999 Then KeyAscii = 0 Case Else: KeyAscii = 0 End Select End Sub

Daniel

moi j'utilise ca
ds keypress tjs

If KeyAscii = &H8 Then
Exit Sub
End If
If KeyAscii = vbKeyReturn Then
KeyAscii = 0
Call Command1_Click ' par ex
Exit Sub
End If
If KeyAscii > 47 And KeyAscii < 58 Then
Else
KeyAscii = 0
End If

et puis mets ta propriété ds ta textbox maxlength à (nbe de chiffres max ds un integer)