controle du type de donnée d'un Textbox

[Rico]

Salut,

je cherche a effectuer à vérifier que l'on me rentre bien un entier dans un textbox... pour le moment j'ai le code suivant (ou "nbre" est le nom de mon textbox)

--------------------------------------------------------------------------------
Private Sub nbre_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With nbre
If VarType(.Value) <> 3 Then '<= PB ICI!!!
MsgBox "Saisie incorrecte"
.SelStart = 0
.SelLength = Len(.Text)
Cancel = True
End If
End With
End Sub
----------------------------------------------------------------------------------

Si quelqu'un a la solution... merci d'avance

 

[Alain]

Bonjour,


Essayes avec :

Private Sub nbre_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("0123456789", Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End Sub


@+

 

[Rico]

C'est un peu violant comme methode... mais c'est parfait au niveau du resultat!

Merci Alain!