Empêcher accents dans un ComboBox

Bonsoir à Tous,

J'ai trouvé ce code qui empêche les accents dans un ComboBox. Mais il bloque aussi la barre d'espacement et les chiffres.

Que dois-je ajouter ou enlever pour que les chiffres et la barre d'espacement fonctionne ?

Merci

Jean

Private Sub TextBox_Recherche_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Empêcher les Accents dans le TextBox'
Select Case KeyAscii
Case 97 To 122
'Caracteres alpha min'
Case 65 To 90
'Caracteres alpha Maj'
Case 8
'Retour Chariot'
Case Else
KeyAscii = 0
End Select
End Sub

Salut Moe Kolisse,

Google est ton ami...

Private Sub TextBox_Recherche_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Empêcher les Accents dans le TextBox'
Select Case KeyAscii
Case 97 To 122
'Caracteres alpha min'
Case 65 To 90
'Caracteres alpha Maj'
Case 8
'Retour Chariot'
case 32
'Barre espace
case 48 to 57
'Chiffres
Case Else
KeyAscii = 0
End Select
End Sub

Mais, retour Charriot devrait être le 10, sauf erreur! A tester!

Déso pour la demande précédente : j'étais de sortie! Hips!

A+

Bonjour,

Quelle idée d'empêcher les accents ! C'est une amputation !!

Curulis : retour chariot = 13, saut de ligne = 10

Bonjour curulis57 & MFerrand,

Excuser pour le délai de réponse.

Ça fonctionne très bien.

Merci Beaucoup à vous Deux.

Jean

Bonjour MFerrand

13 et 10! Bien d'accord, je les utilise tout le temps... mais tu as vu l'heure à la..; hips... quelle j'ai mis ça?

J'étais dans un de ces brouillards!

A+