Discussion :

[Floyd-44]

Bonjour,

Dans mon je souhaite afficher un N° de tél à renvoyer dans mon tableau je lui dis:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub TxtTel1_Change()
    TxtTel1.Value = Format(TxtTel1.Value, "## ## ## ## ##")
End Sub

Il Affiche n'affiche pas le "0" devant ce que je comprends:


Quand je dis:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub TxtTel1_Change()
    TxtTel1.Value = Format(TxtTel1.Value, "0# ## ## ## ##")
End Sub

Il saisie de droite à gauche et complète avec des "0" sur la gauche, ca me dérange:


une fois la saisie finie, j'ai ce que je veux:


J'ai alors essayé ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub TxtTel1_Change()
  If Len(TxtTel1) = 10 Then
    TxtTel1.Value = Format(TxtTel1.Value, "0# ## ## ## ##")
  End If
End Sub

Le résultat est parfait.

Le problème, qui est aussi valable pour les autres solutions au dessus, est que si je me trompe et veux effacer avec "backspace", à partir du moment ou je supprime le 4ème caractère, il me replace de "0" à gauche

pour finir comme ça quand je vais au bout:


Une idée peut être?
Merci