If Not IsNumeric

[Evelynetfrancois]

bonjour a tousssss
voici ma Q

If Not IsNumeric(TextBox1) Then
TextBox1 = ''
TextBox1.SetFocus
Exit Sub
End If
Pour : si c'est pas des chiffres ......................ok
ca fonctionne
mais je voudrais : si c'est pas des lettres ?
j ai mis
If IsNumeric(TextBox1) Then( en supprimant le NOT)
TextBox1 = ''
TextBox1.SetFocus
Exit Sub
End If
mais le resultat n 'est pas identic
il y a t il un code pour les lettres styles
If Not IsStringe(TextBox1) Then
TextBox1 = ''
TextBox1.SetFocus
Exit Sub
End If
par exemple

merci beaucoup pour vos idees
EetF

 

[PascalXLD]

Bonjour

Tu vas avoir du mal comme cela car par défaut la valeur d'un textbox est toujours du string même quend tu y entres des chiffres.

Donc il va falloir changer ta façon de procéder

Explique exactement ce que tu veux tester

 

[Eric C]

Bonjour le forum
Bonjour Evelynetfrancois; bonjour Pascal76 (sympa ton Blog)

Une approche reprise (et si j'ai bien compris) de notre ami mDF (que je salue au passage). Si tes valeurs ne sont pas comprises entre a & z ou A & Z (il y a intercalé 6 sigles qui ne servent pas souvent dans les saisies de TextBox mais bon....), elles ne s'affichent pas dans ton TextBox :

Dans un module :

Option Explicit

'--------------------------------
'  myDearFriend! - 03/07/2004
'--------------------------------
Public Function AutoriseFrappe(ByVal K As Integer) As Integer
'Autorise uniquement les touches numériques et :
    Select Case K
    Case Is < 65, Is > 122
        K = 0
    End Select
    AutoriseFrappe = K
End Function

Puis dans ton code de TxtBox :

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    KeyAscii = AutoriseFrappe(KeyAscii)
End Sub

Bon ouikand à toutes & à tous 😉

 

[evelyneet francois]

merci beaucoup pour votre coup de main je vais pouvoir trouver une soluce
bonne journée
a bientot
E et F