Problème Textbox keypress

Fermé
LANGAZOU Messages postés 95 Date d'inscription vendredi 16 janvier 2015 Statut Membre Dernière intervention 8 novembre 2015 - 28 janv. 2015 à 18:55
 Maurice - 28 janv. 2015 à 19:10
Bonjour,

j'ai deux problèmes avec mon USERFORM qui sont les suivants:

1) j'ai des textbox ou je veux taper uniquement des chiffres et d'autres avec uniquement des lettres .

2) j'ai un textbox ou je vais taper des taux dessus ,je veux que lorsque je tape un point il la remplace par virgule automatiquement.

Merci pour votre réponse.

1 réponse

Bonjour
en principe on remplace la virgule par le point

Private Sub TextBox6_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
   Select Case KeyAscii
      Case 46, 48 To 57 '0 à 9 sont acceptes & .
         KeyAscii = KeyAscii
      Case 44
         KeyAscii = 46
   Case Else 'elimine toute autre entree
      KeyAscii = 0
   End Select
End Sub

A+
Maurice
0