XL 2016 Empêcher saisie de nombres dans une textbox ?

[Goose]

Bonjour,
je cherche un code qui me permettrai d'empêcher la saisie de nombres dans une textbox ?
j'ai essayer avec:

Private Sub txtNom_Change()
If IsNumeric(Me.txtNom) Then
Me.txtNom = ""
End If
End Sub

...mais sans succès !!
Bye

 

[cp4]

Bonsoir Goose, le forum,

Private Sub txtNom_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii >= 65 And KeyAscii <= 90 Or KeyAscii >= 97 And KeyAscii <= 122 Then
        KeyAscii = KeyAscii
    Else
        KeyAscii = 0
    End If
End Sub

Bonne soirée

 

[Dudu2]

Bonjour,

Je te suggère:

Private Sub txtNom_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If IsNumeric(Me.txtNom) Then
        MsgBox "Cette zone ne peut pas contenir un nombre"
        Cancel = True
    End If
End Sub

 

[Goose]

Magnifique, merci a vous deux !!

 

[job75]

Bonsoir Goose, cp4, Dudu2,

Le problème posé n'est pas clair.

Si vous voulez empêcher que le texte contienne des chiffres utilisez ;

Private Sub txtNom_Change()
Dim x$, i%
x = txtNom
For i = Len(x) To 1 Step -1
    If IsNumeric(Mid(x, i, 1)) Then x = Left(x, i - 1) & Mid(x, i + 1)
Next
txtNom = x
End Sub

qui fonctionne même si le texte est entré par copier-coller, contrairement à la solution de cp4.

A+

 

[patricktoulon]

bonsoir à tous

je cherche un code qui me permettrai d'empêcher la saisie de nombres dans une textbox ?

il y a une différence entre empêcher la saie de numérique et le fait que la valeur soit numérique
surtout si on vient coller une valeur copier ici ou là
donc vraiment au plus simple

Private Sub txtNom_Change()
with txtNom: if .value like"*[0-9]*" then .value="":end with
End Sub

et basta pas de nombre ni de chiffre
on empeche ainsi

1. soit de taper un nombre
2. soit de coller un nombre
3. soit de lui envoyer par vba un nombre

 

[job75]

Tu te rends compte ici cher patricktoulon qu'il est important d'utiliser correctement le français.

Un nombre ce n'est pas la même chose qu'un chiffre regardez dans votre dictionnaire.

Bonne nuit.

 

[patricktoulon]

re
bonsoir @job75
je sais très bien faire la différence