détecter du texte dans une textbox

Version imprimable

04/04/2008, 11h08
petiteabeille64

détecter du texte dans une textbox

Bonjour,

Je réalise actuellement un progamme de calcul avec des texbox dans lesquelles les utilisateurs doivent entrer des nombres. J'aimerai réaliser un test qui envoie un message d'erreur si l'utilisateur a entré du texte dans ces textbox.

J'ai testé IsNumeric mais ce test est très compliqué à ajouter à mon code. j'ai aussi tenté IsString mais Excel ne le connait pas!

Avez-vous des idées?

Merci d'avance!!
04/04/2008, 11h12
ucfoutu

Bonjour,

Essaye simplement avec l'opérateur Like, c'est encore le plus simple

Bonjour

Si tu veux-être sûr qu'il ne saisisse que des chiffres, tu peux utiliser ce type de code sur l'évènement KeyPress de ta zone de texte
Code:

1 2 3 4 5 6 Private Sub txtAnnee_KeyPress(KeyAscii As Integer) ' ===== pour ne saisir que des chiffres ===== If InStr("1234567890" & Chr(8), Chr$(KeyAscii)) = 0 Then KeyAscii = 0 End If End Sub
Ainsi il n'y aura que la saisie de chiffres qui passera, si des lettres sont affichées au clavier, rien ne se mettra dans la zone de texte.
Et pas besoin de message, ils comprendront tout de suite ;)

Starec

Ca pourra peut-être t'aider : voici ce que j'avais trouvé pour imposer dans un textbox un format de deux lettres (pas plus et pas de chiffres)
Code:

1 2 3 4 5 6 7 8 9 'Impose le format de 1 à 2 lettres pour le poinçon Private Sub TextBox2_Change() TextBox2.MaxLength = 2 'nb caractères maxi autorisé dans le textbox On Error Resume Next If IsNumeric(Right(TextBox2, 1)) Then TextBox2 = Left(TextBox2, Len(TextBox2) - 1) End If End Sub
Edit : je me suis faite coiffer au poteau, et avec une réponse plus exacte, flûte :mrgreen:

04/04/2008, 11h14
tomy7

ou son ces textbox sur ta sheet ou sur un userform?

bonjour

une petite boucle pour tester les caracteres

Code:

1
2
3
4
5
For i = 1 to len(textbox1.value)
     if instr(mid(textbox1.value,i,1),"0123456789.") = 0 then exit for
next i
 
if i<= len(textbox1.value) then msgbox "Il y a du texte ici"

Code:

1
2
3
4
5
6
7
8
9
Private Sub Command1_Click()
 Dim toto As String
  toto = "1234a56"
  If Not toto Like String(Len(toto), "#") Then
    MsgBox "pas bon"
  Else
    MsgBox "bon"
  End If
End Sub

Allez, j'y mets aussi ma contribution (que j'ai prise sur un article de SilkyRoad)

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub txt1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 
    'Stocke la valeur dans la cellule correpondante
    If IsNumeric(txt1) Then
        ActiveWorkbook.Sheets("Feuil1").Range("I2") = txt1
        Else
            MsgBox "Un nombre est requis pour ce champ", vbExclamation + vbOKOnly, "Nombre attendu"
            txt1.SetFocus
    End If
 
End Sub

Je ne vois pas en quoi IsNumeric est compliqué :koi:

04/04/2008, 11h26
petiteabeille64

presque...
je pense que ce que tu proposes serait lidéal pour moi.

J'ai rentré le code comme cela :
Code:

1 2 3 4 5 6 7 Private Sub TextBoxSurf_KeyPress(KeyAscii As Integer) If InStr("1234567890" & Chr(8), Chr$(KeyAscii)) = 0 Then KeyAscii = 0 End If End Sub
mais cela m'envoie un message d'erreur
"la déclaration de la procédure ne correspond pas à la description de l'événement ou de la procédure du même nom"

Je ne comprends pas trop quoi changer...

Sinon, comment marche "Like"?

Merci!
04/04/2008, 11h27
ucfoutu

Bonjour LouPitchoun,

Faut malgré tout se méfier un peu, car sont également nériques certaines expressions...

Code:

If IsNumeric("2E3") Then MsgBox "oui" Else MsgBox "non"

==>> petiteabeille64

Like est à voir dans ton aide en ligne (sur ta machine)
Je t'en ai mis le code plus haut, adapté à ton cas.
04/04/2008, 11h31
petiteabeille64

Lou Pitchoun

merci pour ta réponse.
IsNumeric n'est pas compliqué en soi mais n'est pas très pratique pour mon code. J'aimerai en effet faire les tests pour être sure que toutes les text box sont des nombres, PUIS faire les calculs. Or IsNumeric m'oblige à intégrer le test au programme de calcul qui est déja énoooorme. A moins que je puisse faire un test IsNumeric sur plusieurs text box à la fois...:bug:
04/04/2008, 11h40
Lou Pitchoun

@ ucfoutu : je n'avais pas fait attention à ce genre de chose.
Merci pour l'info. ;)

@ petiteabeille64 :

Soit tu testes tous tes contrôles dans un boucle avant de lancer ton calcul, soit Tu les testes tous lors de la perte du focus ou à la sortie soit tu testes toutes les touches pressées sur le textbox.
04/04/2008, 12h14
petiteabeille64

merci!

merci à tous pour vos réponses!
j'ai finalement fait le test avec IsNumeric par contre certaines textbox peuvent rester vides. dans ce cas IsNumeric sort un message d'erreur. Comment faire pour qu'il accepte aussi les cases vides?
j'ai pensé faire un test if IsNumeric() Or is Empty () mais si quelqun connait quelque chose de moins lourd (je dois faire le test sur une dizaine de textbox...)

Merci!
04/04/2008, 13h02
ucfoutu

Citation:

Envoyé par petiteabeille64

Comment faire pour qu'il accepte aussi les cases vides?

Lorsqu'une chaine est vide elle contient "" ou (mieux) la longueur est nulle (len(chaine) = 0)
Il te suffit donc de ne pas faire le test (exit sub, par exemple, ... ou encore une condition If ... then ..) que si la chaîne n'est pas vide !!!
Où est le problème ?