code en vb

Question

salut,
je veux avoir un code qui permet de saisir dans une zone de texte uniquement du texte et n'accepte pas de numéro et le contraire(l'inverse="de saisir dans la zone de texte que des numéro donc pas de texte)
merci d'avance

Utilisateur anonyme · Answer

Salut,

Exemples ici :

http://www.codyx.org/snippet_textbox-numerique-seulement_53.aspx


http://www.codyx.org/snippet_autoriser-saisie-chiffres-dans-champ-texte_119.aspx






__________
Kenji

Dolphin Boy · Answer

"Je veux" ? Comme on répond dans certaines provinces, je te répondrai "même le roi dit nous voulons !".
En tous cas ta question montre que tu n'as pas tellement cherché sur le site.

hellouma · Answer

merci beaucoup
mais il reste une chose svp 
aidez moi à trouver  comment sans saisir tout les caracétres sauf les numéro(code sur vb)

hellouma · Answer

merci beaucoup
mais il reste une chose svp 
aidez moi à trouver  comment sans saisir tout les caracétres sauf les numéro(code sur vb)

hellouma · Answer

dzl
je veux dire merci au début
puis aider moi à trouver comment écrire tout les caractéres sauf les numéros svp!!

Utilisateur anonyme · Answer

Faut réfléchire un peu, il suffit de faire l'inverse :




Private Sub
 BoitePasAChiffres_KeyPress(KeyAscii As Integer)
'Keypress

Dim chaine
chaine = "0123456789 "
If InStr(1, chaine, Chr(KeyAscii)) 0 And Not KeyAscii 8 Then
    'KeyAscii = 8 est la touche Del
    'On bloque ce qui est compris dans la variable chaine sauf la touche Del

    Beep
    KeyAscii = 0
    'On assign un KeyAscii vide à la text boxEnd If
End Sub








__________
Kenji

Utilisateur anonyme · Answer

La copie a raté :



Private Sub BoitePasAChiffres_KeyPress(KeyAscii As Integer)
'Keypress

Dim chaine
chaine = "0123456789 "
If InStr(1, chaine, Chr(KeyAscii)) <> 0 And Not KeyAscii = 8 Then

    'KeyAscii = 8 est la touche Del
    'On bloque ce qui est compris dans la variable chaine sauf la touche Del

    Beep
    KeyAscii = 0
    'On assign un KeyAscii vide à la text box
End If
End Sub,

----

(Coloration syntaxique automatique par Kenji)





__________
Kenji

hellouma · Answer

merci beaucoup vous étes trés gentil

jrivet · Answer

Salut,
[auteurdetail.aspx?ID=931567 hellouma]
Si tu estimes que ton problème est résolu pense a appuyé sur réponse acceptée sur le ou les posts qui ont pu t'aider.

@+: Ju£i?n
Pensez: Réponse acceptée

Code en vb

9 réponses

Votre réponse

Discussions similaires