Tester la présence d'une lettre dans une textbox

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

Code:

---

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

---

l'existence de la lettre s dans textbox1

bonjour,

on peux en inventer une

comme :

Code:

---

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:

---

1 2 3 4

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

---

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

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