Bonsoir Yvouille Cfnc3 frangy le forum
si ton Textbox s'appelle T1 le code de ton textbox sera
Code: Tout sélectionner
Private Sub T1_Change()
If Len(T1) = 2 Then T1 = T1 & "-"
If Len(T1) = 6 Then T1 = T1 & "-"
If Len(T1) > 9 Then T1 = Mid(T1, 1, 9)
End Sub
a+
Papou