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

[78chris]

BOnjour

Les # représentent des chiffres facultatifs donc normal

Il faut "00 00 00 00 00"

[Floyd-44]

Il faut "00 00 00 00 00"

Ca change pas malheureusement, J'ai toujours le même problème quand je reviens en arrière, il me complète à gauche avec des "0"

[patricktoulon]

bonjour
le formatage commence toujours a droite si chiffre manquant les zero se place forcement devant
il faut les ajouter les zeros a la chaine du textbox avant de formater

Code :

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

1
2
3
4
5
Sub test1()
chaine = "03034"
MsgBox "formatage sans les zero en plus apres  " & Format(chaine, " @@ @@ @@ @@ @@ ")
MsgBox "formatage avec les zero apres " & Format(Mid(chaine & "0000000000", 1, 10), " @@ @@ @@ @@ @@ ")
End Sub

c'est du string alors les zero eventuellement devant restent




[/CODE]maintenant si le contexte est dynamique (au taper de touche)alors la c'est une autre histoire format ne suffit pas il faut intercepter dans le change ou keypress,ou keydown etc.....

[Floyd-44]

Merci Patrick mais ca ne marche pas...!
si je mets " @@ @@ @@ @@ @@ ", Je peux effacer mais je reviens pas en début de txtbox. Puis quand je resaisi, je n'ai plus les espaces
si je mets "@@ @@ @@ @@ @@", je ne peux pas tout effacer.

Je comprends pas, pourtant Excel a un format spécial N° de Tel, on devrait y avoir accès non?

[patricktoulon]

je crois que tu parle de traitement dynamique
pour ce resuktat et pouvoir revenir en arriere ou modifier c'est un peu plus complexe que ca


sinon oui le format telephone fonctionne avec une chainne il faut separer les tranches en double guillemet
et pour les zero apres tu n'a cas travailler a l'envers de l'envers c'est rigolo

Code :

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

1
2
3
4
5
Sub Macro1()
    Dim chaine$
    chaine = StrReverse(Format(StrReverse(23561), "0#"" ""##"" ""##"" ""##"" ""##"))
    Debug.Print chaine
End Sub

mais pour du dynamique entierement controlé du 1er au dernier chiffre tapé ,c'est une autre paire de manchene crois pas que c'est si facile

[Pierre Fauconnier]

Merci[...]
Je comprends pas, pourtant Excel a un format spécial N° de Tel, on devrait y avoir accès non?

Attention aux formats régionaux d'Excel... C'est une vraie mer*** (je pense notamment, mais pas que, aux codes postaux français...)

A ne jamais utiliser!

De plus, ce dont tu parles est un format (foireux) de cellule, mais ne joue absolument pas côté VBA.

[Pierre Fauconnier]

Salut.

Le plus simple serait de laisser la personne saisir le numéro sans gérer les évènements ni la saisie en temps réel, et de vérifier a posteriori si la saisie est cohérente par rapport à ce qu'on attend (sur l'Exit ou autre).

Les codes donnés ici ne prévoient pas tous les cas de figure et vont créer des crises de nerf chez tes utilisateurs en cas d'erreur de saisie et de tentatives de correction

Il est à mon avis préférable, et de loin, de vérifier après coup que de foutre l'utilisateur dans la panade avec du code qui est censé l'aider mais qui en fait le fout dedans.

[Theze]

Bonjour,

Les codes donnés ici ne prévoient pas tous les cas de figure et vont créer des crises de nerf chez tes utilisateurs

Oui bien sûr mais les codes donnés ici sont des pistes, c'est à Floyd-44 de vérifier la cohérence des valeurs entrées ! La question porte sur le formatage dans le TextBox pas de savoir si ce ne sont que des chiffres et non des lettres, si ce sont exclusivement des n° Français donc, à 5 groupes de 2 chiffres ou des n° d'autres pays ! Le formatage est là principalement pour faciliter la saisie je pense ?

[Pierre Fauconnier]

Salut Theze

[...]Le formatage est là principalement pour faciliter la saisie je pense ?

Ben... Justement


Avec le code que tu donnes, voici ce que j'obtiens dans le textbox en y saisissant 0123456789




Quant à celui de Patrick, si j'efface un chiffre saisi, par exemple 3 dans 0123 45... pour le saisir à nouveau, j'obtiens ceci et après le 8, je ne sais plus saisir...



C'est vrai que ça facilite la saisie...

Bor***. Testez un minimum vos codes avant de les poster svp. (et ce n'est pas une attaque personnelle, mais y a un minimum, quand même )


Je n'ai même pas parlé ici du fait que, sauf à être franco-français, ca va poser un sérieux problème pour la saisie d'un numéro étranger. Dans une économie de plus en plus mondialisée, je pense qu'imaginer un n° de tél uniquement au format français est un peu étroit comme angle de vue