Discussion :

[bissdu91]

Dans mon application je veux controler la saisie dans un Textbox,c-a-d interdire la saisie du texte dans un TextBox prévu recevoir du numérique et je me demande comment faire?
Merci pour votre aide!

[ced600]

Bon la phrase n'est pas tres clair, mais je cros comprendre que tu veux n'autoriser que la saisie de chiffre dans une texte box, non ?

Mais que veux tu faire exactement ? A chaque fois que l'on tape une lettre dans la texte box elle ne s'affiche pas ? Ou une fois le texte ecrit dans la texte box, et une fois que l'on a appuye sur un bouton valide, on controle le contenu et l'on annule la saisie s'il y a autre chose que des chiffres ?

Je ne crois pas que la première solution soit possible dans une textbox car tout ce qui est saisie dans une textbox est du texte, même les chiffres.

Pour la deuxième ce n'est pas très compliqué, il suffit de controler les caractères contenus dans ta chaine de charactères.
Du genre tu texte s'ils font partis d'un ensemble que tu as définis comme cela [0,1,2,3,4,5,6,7,8,9].

[B@rberousse]

Je propose :

sur une feuille Form1, une zone de texte Text1 et un bouton Command1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Command1_Click()
 
If Not IsNumeric(Form1.Text1.Text) Then
    MsgBox "Valeur numerique obligatoire"
    Form1.Text1.SelStart = 1
    Form1.Text1.SelLength = Len(Form1.Text1.Text)
    Exit Sub
End If
 
End Sub

[ced600]

Je ne savais qu'il existait une fonction IsNumeric !!!
Cela simplifie les choses.

[ProgElecT]

une autre façon, a la saisie du nombre ICI
la partie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 Case 8 'autorisation de <--- suppr
 '(la touche Suppr, <- et -> n'est pas detecté comme KeyAscii)
 Case 48 To 57 'autorisation de toutes les touches numeriques (0 à 9)
 'sinon annule la derniere touche
 Case Else: KeyAscii = 0 ': Beep

étant peut être suffisante pour toi.

[bissdu91]

Merci!
J'ai essayé le IsNumeric et ça marche très bien!Je vais essayer les autres propositions aussi!

[ucfoutu]

Bonjour,
Ah !...

Allons donc (à essayer)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Command1_Click()
  Text1.Text = "30,9"
  If IsNumeric(Text1.Text) Then MsgBox "ok" Else MsgBox "pas OK"
  Text1.Text = "30.9"
  If IsNumeric(Text1.Text) Then MsgBox "ok" Else MsgBox "pas OK"
End Sub

Bonne continuation...

EDIT :
Et j'ajoute (pour la route) :

Text1.Text = "30E2"
If IsNumeric(Text1.Text) Then MsgBox "ok" Else MsgBox "pas OK"