Discussion :

[LANGAZOU]

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.

[gnain]

Bonjour,

1) j'ai des textbox ou je veux taper uniquement des chiffres

uniquement des chiffres

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub TextBox1_Change()
If Not IsNumeric(TextBox1.Text) Then
    TextBox1.Text = Left(TextBox1.Text, Len(TextBox1.Text) - 1)
End If
End Sub

... et d'autres avec uniquement des lettres .

uniquement des lettres

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub TextBox3_Change()
    If IsNumeric(Right(TextBox3.Text, 1)) Then
        TextBox3.Text = Left(TextBox3.Text, Len(TextBox3.Text) - 1)
    End If
End Sub

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.

remplace . par ,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub TextBox2_Change()
    TextBox2.Text = Replace(TextBox2.Text, ".", ",")
End Sub

[LANGAZOU]

Bonjour gnain,

Merci beaucoup et bonne journée ;-)