Textbox numérique (le + simple) version amélioré avec backspace qui fonctionne

Contenu du snippet

Bein c'est pas tres compliquer on ne peut ecrire que des chiffres dans un textbox. En plus il prend en charge le backspace (effacer).

Source / Exemple :


Private Sub text1_keyPress(KeyAscii As Integer)
If Chr(KeyAscii) = "." Then KeyAscii = Asc(",") ' detecte le point et la virgule et remplace
'le point par une virgule
If KeyAscii = 8 Then 'Regarde si appuyer sur BACKSPACE
KeyAscii = 8 ' Si oui ... On efface
Else
If InStr("0123456789.,", Chr(KeyAscii)) = 0 Then 'contrôle de saisie
KeyAscii = 0 'caractère incorect, donc il ne s'ecrit pas
End If
End If
End Sub

Conclusion :


Enfin corrigé ... j'espere que vous allez l'aimer

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.