Imposer un caratere avant le texte

camadian à dit:

Bonjour,
un peu néophyte avec VBA
je souhaiterai que lors de ma saisie via un masque
que le 1er caractère soit un "-" puis 4 chiffres ou lettres
voila mon script mais un gros bug

Private Sub TextBoxLiasse_Change()
Dim FormatLiasse As String
FormatLiasse = "-"
TextBoxVersion = Format(FormatLiasse & TextBoxLiasse)
If Len(FormatLiasse & TextBoxLiasse) > 5 Then
TextBoxLiasse = Left(FormatLiasse & TextBoxLiasse, 5)
End If

format souhaité "-1234"
Merci pour votre aide

Cliquez pour agrandir...

Private Sub TextBoxLiasse_Change()
Dim FormatLiasse As String
FormatLiasse = "[COLOR="Red"]'[/COLOR]-"
TextBoxVersion = Format(FormatLiasse & TextBoxLiasse)
If Len(FormatLiasse & TextBoxLiasse) > 5 Then
    TextBoxLiasse = Left(FormatLiasse & TextBoxLiasse, 5)
End If