Interdire entrée de texte

P

pat1545.

XLDnaute Accro

• 20 Mai 2005

• #2

Salut Alicia,

ceci peut etre ?

If Not IsNumeric(TextBox1) Then



Patrick

 

Vote positif 0 Vote négatif

A

ALICIA

Guest

• 20 Mai 2005

• #3

Hello Pat1545

Coucou, merci pour ta reponse mais puis je te demander une precision?

If Not IsNumeric(TextBox1) Then
C'est pour ; ' Si l'entrée du textbox n'est pas un chiffre' ????

Merci

Bisous

 

Vote positif 0 Vote négatif

P

pat1545.

XLDnaute Accro

• 20 Mai 2005

• #4

J'ai essayé et il n'est autorisé que des chiffres...

Patrick

 

Vote positif 0 Vote négatif

A

ALICIA

Guest

• 20 Mai 2005

• #5

Merci Pat

 

Vote positif 0 Vote négatif

A

ALICIA

Guest

• 20 Mai 2005

• #6

Re Pat,

Je viens d'essayer, mais je ne comprnd pas bien ta formule...

Qu'est ce que je dois mettre en dessous de
If Not IsNumeric(TextBox1) Then

???

Merci

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 21 Mai 2005

• #7

Bonjour le forum
Bonjour Alicia, bonjour Patrick

Pour t'aider un peu plus, tu entres ceci :

Code:

Private Sub TextBox1_Change()
If Not IsNumeric(TextBox1) Then
MsgBox 'Vous ne pouvez entrer que des chiffres', vbCritical
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1)
End If
End Sub

Bon ouikand à toutes & à tous

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 21 Mai 2005

• #8

Bonjour le forum
Bonjour Alicia, bonjour Patrick

Pour t'aider un peu plus, tu entres ceci :

Code:

Private Sub TextBox1_Change()
If Not IsNumeric(TextBox1) Then
MsgBox 'Vous ne pouvez entrer que des chiffres', vbCritical
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1)
End If
End Sub

Bon ouikand à toutes & à tous

 

Vote positif 0 Vote négatif

A

ALICIA

Guest

• 21 Mai 2005

• #9

Re Pat, Lut Eric

Merci Eric c'est exactement ca qu'il me fallait

A+

Bises

 

Vote positif 0 Vote négatif