Empécher la saisie dans un textbox de /

[Yvon]

Bonsoir à tous,

Y a t il un moyen d'empécher la saisie de certain caractères dans une textbox, comme les espaces, slash, ':' etc...

Par avance merci

Yvon

 

[Temjeh]

Bonsoir

Modifie ceci:

CellTest = TextBox1.Value
For x = 1 To Len(CellTest)
Car = Mid(CellTest, x, 1)
If Car = ':' Or Car = '!' Or Car = '-' Or Car = '/' Or Car = ' ' _
Or Car = '.' Or Car = ';' Or Car = ',' Or Car = '\\' Then
MsgBox 'Pas de caractères spéciaux', vbOKOnly, 'Erreur de caractères'
Exit Sub
End If
Next

A+

Temjeh

 

[Mytå]

Salut Yvon, Temjeh et le forum

Un bout de code de Charly2

Dim InChange As Boolean 

Private Sub TextBox1_Change() 
  If Not InChange Then 
    InChange = True 
    With Me 
      If Right(.TextBox1, 1) Like '[+/@&' *-]' Then 
        .TextBox1 = Left(.TextBox1, Len(.TextBox1) - 1) 
      End If 
    End With 
    InChange = False 
  End If 
End Sub

Mytå

Message édité par: Mytå, à: 24/05/2006 04:04

 

[AV]

Ave,

En subodorant que tu veux une saisie exclusivement numérique (sinon adapte)

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii 57 Then
KeyAscii = 0
End If
End Sub

AV [aaa]

 

[ChTi160]

Bonjour Yvon
Bonjour le fil
j'ai du mal a joindre du texte ???
je vais retenter ou mettre un fichier

le fichier exemple

Message édité par: Chti160, à: 24/05/2006 17:32

 

[ChTi160]

oupssssssssssss Problème lol
le voila j'espère [file name=Caractere.zip size=10068]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Caractere.zip[/file]

 

[Yvon]

bonjour ChTi160, Mytå, Temjeh, le Forum,

Merci à tous de vos propositions, j'ai retenu la proposition de Temjeh, le code de AV est interressant et simple mais je n'ai pas réussi àle faire fonctionner en l'état, dommage parce qu'il n'est pas restrictif à une variété de carractères.

a++
Yvon

 

[ChTi160]

bon j'ai réussi Lol
Excuses

 

[AV]

Re,

''... le code de AV est interressant et simple mais je n'ai pas réussi àle faire fonctionner en l'état, dommage parce qu'il n'est pas restrictif à une variété de carractères...''

Ben oui difficile à faire tourner en l'état !
Problème de copier/coller et des opérateurs logiques non acceptés ....

Avec les remplacements qui vont bien à faire :

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii inférieurà 49 Or KeyAscii supérieurà 57 Then
KeyAscii = 0
End If
End Sub

Un exemple de saisie Année/Mois/Jour
AV [aaa] [file name=TextBoxDate.zip size=9077]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TextBoxDate.zip[/file]