Imposer un caratere avant le texte

[camadian]

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

 

[GBI]

Re : Imposer un caratere avant le texte

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

Bonjour Camadian
Essaies avec ca:

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

 

[camadian]

Re : Imposer un caratere avant le texte

Bonjour,
Merci pour cette solus mais toujours KO
le système me retourne directement '-'-'
Si tu as une autre proposition elle sera la bien venu
Mais je vais voir si je peux contourner le pb

 

[pierrejean]

Re : Imposer un caratere avant le texte

bonjour camadian

Salut GBI

A tester:

Private Sub TextBox1_Change()
If Len(TextBox1) < 5 Then
 If Left(TextBox1, 1) <> "-" Then
   TextBox1 = "-" & TextBox1
 End If
Else
SendKeys "{ENTER}"
End If
End Sub

 

[camadian]

Re : Imposer un caratere avant le texte

Un grand merci
Rapide et ca fonctionne