Dim ?? as ??

Question

Bonjour,
J ai besoin d aide,
J ai une fenetre ou les utilisateurs doivent saisir un chiffre, entier ou a virgule.
Mais il y a toujours un petit malin pour entrer du text...
Comment imposer que la zone de texte soit Numerique?
Ou qu il convertisse la variable saisie en chiffre. J ai essaye la fonction: CLong(var)
Mais il cree une erreur.
D avance merci aux personnes bien veillante qui m aideront.

odan71 · Answer

slt luckyrobby places ce bout de code dans l'evenemnent KeyPress de ton champ texte: 'n'autorise que les chiffresIf KeyAscii 110 Or KeyAscii 190 Or KeyAscii = 45 Or KeyAscii = 46 Or KeyAscii = 8 Or KeyAscii = 37 Or KeyAscii = 39 Then Exit Sub If (KeyAscii <> 48 And KeyAscii <> 49 And KeyAscii <> 50 And KeyAscii <> 51 And KeyAscii <> 52 _ And KeyAscii <> 53 And KeyAscii <> 54 And KeyAscii <> 55 And KeyAscii <> 56 And KeyAscii <> 57) Then KeyAscii = 0 Exit Sub End If "Si tu téléphones à une voyante et qu'elle ne décroche pas avant que ça sonne, raccroche." -- Jean-Claude Vandamme odan71

luckyrobby · Answer

je vais essayer.
Merci

Quelqu'un veux une Guiness ?

jrivet · Answer

Salut, 

Ou sinon plus simple, mais avec la meme idee


Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 Then ' touche DEL
    If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End If
End Sub

@+
Julien
-----------------------------------------------------------
 :big)  Essai ca sinon on trouvera autre chose  ;) 
-----------------------------------------------------------

jrivet · Answer

re,
Petite precision en fait, j ai filtrer ici simplement lettre et pas lettre, effectivement dans mon cas on peut pas entrer de chiffre a virgule (petite erreur de ma part).

mets que ce passe t il si on entre ca: ....1254%n

et bien avec la methode de odan71 l utilisateur peut le rentrer donc il faut se proteger de ces cas la aussi
@+
Julien
-----------------------------------------------------------
 :big)  Essai ca sinon on trouvera autre chose  ;) 
-----------------------------------------------------------

gandalflegris007 · Answer

Bonjour à tous,

pourquoi pas tout simplement attendre la fin de la saisie utilisateur et faire un contrôle de validité avec un IsNumeric.
Si le contrôle révèle une erreur, alerte l'utilisateur en lui demandant de modifier sa saisie.

Guich

valtrase · Answer

Si Si jrivet ta méthode est bonne seulement VB ne reconnais pas la virgule pour les entrée numérique mais le point.
il est évident que l'on doit attendre la fin de la saisie pour controler si l'entrée est bonne.
Nous avons déja donné des soluces en cherchant bien dans les topics ..........
_______________________________________

Jean-Paul

Le Savoir n'a de valeur que s'il est partagé

Dim ?? as ??

6 réponses

Discussions similaires