Option Explicit
Dim LeTexte As String
Dim chargement As Boolean
Private Sub TextBox1_Change()
Dim Val As String
Dim Ind As Byte
Ind = TextBox1.SelStart
Val = Left(TextBox1.Value, TextBox1.SelStart)
If Len(Val) > 12 Then
TextBox1.Value = Left(Val, 12)
Exit Sub
End If
If Len(Val) = 3 Or Len(Val) = 6 Or Len(Val) = 9 Then
Val = Val & " "
Ind = Len(Val)
End If
Val = Val & Right(LeTexte, Len(LeTexte) - Ind)
TextBox1.Value = Val
TextBox1.SelStart = Ind
End Sub
Private Sub UserForm_Initialize()
LeTexte = "___ __ __ __"
TextBox1.Value = LeTexte
TextBox1.SelStart = 0
End Sub