Format d'une cellule

[Cougar]

Bonjour le forum,

Voici donc mon problème. Dans mon USF, si le textbox contient un nombre le code continu, si c'est des lettre il quitte le code.

Donc comment spécifier pour différencier entre nombre et lettre dans un Textbox.

For j = 1 To 24
If Controls("TextBox" & j) = "caractère" Then
Controls("TextBox" & j) = ""
End If
Next

Merci

 

[Pierrot93]

Re : Format d'une cellule

Bonjour Cougar

essaye peut être la fonction "isnumeric" :

If IsNumeric(Controls("TextBox" & j)) Then

bonne fin d'après midi
@+

 

[pierrejean]

Re : Format d'une cellule

bonjour Cougar
A tester:
Avec une fonction de controle

Function y_a_un_caractere(variable)
y_a_un_caractere = False
For n = 1 To Len(variable)
  If Asc(Mid(variable, n, 1)) < 47 Or Asc(Mid(variable, n, 1)) > 57 Then
    y_a_un_caractere = True
    Exit Function
  End If
Next n
End Function
 
 
Sub test()
For j = 1 To 24
If y_a_un_caractere(Controls("TextBox" & j)) Then
Controls("TextBox" & j) = ""
End If
Next
End Sub

edit:Salut Pierrot
ton code est un peu plus simple !!! Bravo

 

[Cougar]

Re : Format d'une cellule

Bonjour Pierrot,

Merci pour la solution.

Ma question était mal posée mais j'ai 99%. J'ai modifié :

If Not IsNumeric(Controls("TextBox" & j))