Dim kp As Boolean 'mémorise la variable
Private Sub TextBox1_KeyPress(ByVal K As MSForms.ReturnInteger)
kp = True
End Sub
Private Sub TextBox1_Change()
Static flag As Boolean
If flag Then Exit Sub
Dim s%, t$, i%, x$
With TextBox1
s = .SelStart 'mémorise
'---format 00 00 00 00 00---
t = 0 & Val(Replace(.Text, " ", ""))
For i = 1 To 10 Step 2
x = x & " " & Val(Mid(t, i, 1)) & Val(Mid(t, i + 1, 1))
Next
flag = True: .Text = Mid(x, 2): flag = False
'---sélection---
.SelStart = s + kp * (Mid(.Text, s + 1, 1) = " ")
.SelLength = -kp
kp = False 'RAZ
'---entrée dans la feuille de calcul---
[B5].NumberFormat = "0#\ ##\ ##\ ##\ ##"
[B5] = Val(Replace(.Text, " ", ""))
End With
End Sub
Private Sub UserForm_Initialize()
kp = True
TextBox1 = 0
End Sub