Mettre une tb en maj

Bonjour le forum
Bonjour Pierre

Regarde le fichier joint.
@ ++ Eric C

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+