Private Sub TextBox1_Change()
[COLOR="DarkRed"]'Ecriture majuscule
TextBox1 = UCase(TextBox1)[/COLOR]
'Limite le Nb de caractère à 31
If Len(TextBox1) > 31 Then
MsgBox (" ATTENTION !!!!!!!" & vbLf & vbLf & "Le nombre de caractère ou espace ne doit pas être supérieure à 31." & vbLf & "Veuillez renommer le nouveau matériel")
TextBox1.Value = Left(TextBox1.Value, Len(TextBox1.Value) - 1)
End If
'N'autorise que certain caractère
For pos = 1 To Len(TextBox1.Value)
carac = Mid(TextBox1.Value, pos, 1)
If Not carac Like "[A-Z]" _
And Not carac Like "[0-9]" _
And Not carac = "-" _
And Not carac = "'" _
And Not carac = " " _
And Not carac = "." _
And Not carac = "&" Then
MsgBox "Ce caractère est interdit."
TextBox1.Value = Left(TextBox1.Value, Len(TextBox1.Value) - 1)
End If
Next
End Sub