Mettre une tb en maj

[Pierre]

Bonjour
j'ai une textbox et je voudrais qu'elle soit seulement en lettre et en majuscule et une autre seulement en numerique
merci

 

[Eric C]

Bonjour le forum
Bonjour Pierre

Regarde le fichier joint.
@ ++ Eric C

 

[Djay]

Salut Pierre!

Pour forcer une textbox en majuscule:

Private Sub TextBox1_Change()
TextBox1 = UCase(TextBox1)
End Sub


Pour forcer une textbox en numérique:

If IsNumeric(textbox) = True Then 'Vérification si numérique
Else
tbTéléphone = Mid(tbTéléphone, 1, Len(tbTéléphone) - 1)
End If

a+