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

cp4

XLDnaute Barbatruc

• 23 Octobre 2021

• #2

Bonsoir Goose, le forum,

VB:

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 23 Octobre 2021

• #3

Bonjour,

Je te suggère:

VB:

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

 

Vote positif 0 Vote négatif

G

Goose

XLDnaute Occasionnel

• 23 Octobre 2021

• #4

Magnifique, merci a vous deux !!

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Octobre 2021

• #5

Bonsoir Goose, cp4, Dudu2,

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

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

VB:

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+

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 23 Octobre 2021

• #6

bonsoir à tous

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

Cliquez pour agrandir...

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

VB:

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Octobre 2021

• #7

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.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 24 Octobre 2021

• #8

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

 

Vote positif 0 Vote négatif