Obliger a saisir une zone en numerique

[gds35]

Mes AMIS du Forum Bonjours , Bonnes fêtes de fin d'Année dans la joie .
J'ai un p'tit soucis , j'ai une text Box ou je ne devrais saisir que des nombres sinon je desire ne pas passer a la zone suivante , puis je fais un calcul , si bien si de l'alfa est entré je tombe en erreur 13 . Voila le bout de mon code qu'est ce qui cloche ????

Private Sub KMS_Validate(Cancel As Boolean)
'
If KMS.Value = "" Then
Exit Sub
If Not IsNumeric(KMS.Text) Then
Cancel = True
Else
NBKMSFAIT.Caption = KMS.Value + Sheets("INDKMS").Range("C8").Value
'
End If
End If
End Sub

Merci de votre Aide , bon WE . Cordialement GDS35

 

[abc]

Re : Obliger a saisir une zone en numerique

Bonjour,
un exemple trouvé dans un bouquin,regarde ci cela te convient
A +

 

[BOISGONTIER]

Re : Obliger a saisir une zone en numerique

Bobnjour,

Saisie de numérique et dates

JB
Formation Excel VBA JB

 

[excalibur]

Re : Obliger a saisir une zone en numerique

bonjour gds35 abc BOISGONTIER le forum une autre variante ou tu peus saisir que tu numerique

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

 

[excalibur]

Re : Obliger a saisir une zone en numerique

re le fil avec module de classe cela peut etre utile pour eviter de repeter 10 fois le meme code voir ex:

 

[gds35]

Re : Obliger a saisir une zone en numerique

Merci a tous , mais pb , j'ai testé toutes les solutions que vs m'avez fournies , et meme si ma zone = alfa , je passe a la zone suivante puis tombe au moment du calcul en erreur 13 . Je continue a chercher........
Cordialement GDS35