combobox sans caractères spéciaux

[Jacques25]

Bonsoir à tous,

Est il possible d'interdire dans la saisie d'une combobox les caractères suivant :
+ - * / @ & '
Et si oui, merci de me dire comment faire.

Merci d'avance à tous.

j'ai oublié est il possible aussi d'interdire les espaces??

Jacques

Message édité par: jacques25, à: 30/11/2005 20:41

 

[Charly2]

Bonsoir Jacques,

Voici le code :

Dim InChange As Boolean

Private Sub ComboBox1_Change()
  If Not InChange then
    Inchange = True
    If Mid(Combobox1, Len(Combobox1) - 1, 1) Like 'TesExclusions' Then
      ComboBox1=Mid(ComboBox1, 1, Len(ComboBox1) - 1)
    End If
    InChange = False
  End If
End Sub

Amicalement
Charly

 

[Jacques25]

Merci charly2,

Je vais essayer ça quand je serais chez moi, juste une petite question, mes caractères interdit est ce que je dois les séparer par des virgules ou des points virgules ou autre chose?
Et pour l'espace comment dois je le faire apparaitre (entre guillemet ou autre)?

Merci

Jacques

 

[Charly2]

Bonjour Jacques, bonjour à toutes et à tous

Voici ce que tu peux écrire pour ta Combobox :

Dim InChange As Boolean

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

Surtout, place le tiret en dernier

A+
Charly

 

[Jacques25]

Salut Charly2, bonsoir le forum,

Merci beaucoup, ça marche c'est formidable.

@ plus

Jacques