Discussion :

[doubiste_59]

Bonjour,

comme l'indique le titre, je voudrais pouvoir vérifier s'il y a une lettre dans la valeur de ma textbox mais je ne sais pas dire :
if (TextBox.Value contient une lettre) ...
Y aurait-il une fonction capable de faire ça ?

Merci

[mercatog]

Code :

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

if instr(TextBox1.value,"s")>0

l'existence de la lettre s dans textbox1

[mayekeul]

bonjour,

on peux en inventer une

comme :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Function ContainText(T As variant) As Boolean
Dim I
 
ContainText = False
 
T=cstr(T)
 
For I = 1 To Len(T)
    If not IsNumeric(Left(T, I)) Then ContainText = True
Next I
 
End Function

edit:
note que je pense que l'on pourrait simplement faire

Code :

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

1
2
3
4
 
'si il contient du texte la ligne suivante renvoie vrai
if not isnumeric(textbox1.text) then 
.....

[doubiste_59]

Merci pour vos réponses.

Mercatog : ce n'est pas tout à fait ce que je veux, je veux voir s'il y a une lettre, n'importe laquelle, pas une en particulier.

Mayekeul: je vais essayer ça.

[hbc87]

En utilisant not(isnumeric), ça ne marchera pas car un symbole va indiqué TRUE.