Bonjour à tous et Bonne Année,
C'est de la très bonne recherche. Par contre, j'aurai souhaité écrire le n° de de CGSS exp : 1 12 97 407 824 85 avec les espaces en utilisant le code suivant que j'ai fait pour le n° de téléphone regroupé par 3 chifres.
Dim test As String
Select Case TBTelBur.TextLength
Case 1
test = TBTelBur.Text & "."
TBTelBur.Text = test
Case 5
test = TBTelBur.Text & "."
TBTelBur.Text = test
Case 9
test = TBTelBur.Text & "."
TBTelBur.Text = test
Case Else
End Select
Merci de votre aide
Amicalement
Noel