Problème Textbox keypress

LANGAZOU Messages postés 100 Statut Membre -  
 Maurice -
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

  1. Maurice
     
    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