Discussion :

[petiteabeille64]

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!!

[ucfoutu]

Bonjour,

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

[Invité]

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 :

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

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

[petiteabeille64]

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

J'ai rentré le code comme cela :

Code :

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

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!

[petiteabeille64]

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...

[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.

[petiteabeille64]

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!

[ucfoutu]

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 ?

[_Nimy_]

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 :

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

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

[tomy7]

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

[wilfried_42]

bonjour

une petite boucle pour tester les caracteres

Code :

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

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"

[ucfoutu]

Code :

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

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

[Lou Pitchoun]

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

Code :

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

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é

[ucfoutu]

Bonjour LouPitchoun,

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

Code :

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

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.