Textbox et format

Je viens de réaliser que tu désires que l'affichage soit formaté 'live', donc pendant l'édition du nombre...
Ho! la-la-la-la! Bobinette! :aie:

Je suggère alors d'utiliser un autre composant : le MaskEdBox. Mais il a lui aussi ses contraintes, ses avantages et ses inconvénients.

Tu le trouveras dans les composants supplémentaires (Ctrl + T) sous le nom Microsoft Masked Edit Control 6.0 (avec ou sans un SP3 - service pack 3 - selon ce que tu as installé comme Service Pack).

Bon, Bruce207 ...

Avant quoi que ce soit d'autre : on ne traite JAMAIS une question technique par MP (je ne répondrai donc pas à ton MP et te prie de ne pas recommencer, s'il te plait)

Pour en revenir à nos moutons, tu veux le beurre (les espaces séparant les milliers) et l'argent du beurre (le formatage avec décimales alors que VB n'est pas capable de deviner, lors de la saisie, si tu en es aux décimales ou à l'entier ...) ===>> sacrée "bobinette" donc, comme le dit fort bien zazaraignée (que je salue).

Ce sont toutefois là des acrobaties (et j'ai toujours bien aimé monter aux agrès).

Alors :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

Option Explicit     Private Sub Text1_KeyPress(KeyAscii As Integer) Dim filtre As String, toto As String, I As Integer Dim ou As Integer, titi As String, pos As Integer, entier As Long, deci As String entier = Val(Text1.Text) pos = InStr(Text1.Text, ",") If pos > 0 Then deci = Mid(Text1.Text, pos + 1) Else deci = "00" End If If KeyAscii = 8 Then Text1.Text = "" Exit Sub End If If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0: Exit Sub toto = Chr(KeyAscii) filtre = "# " ou = Text1.SelStart KeyAscii = 0 For I = 1 To 6 filtre = filtre & String(3, "##") & " " Next If ou < InStr(Text1.Text, ",") Or Text1.Text = "" Then Text1.Text = Trim(Format(entier & toto, filtre)) & "," & deci If Text1.Text <> "" Then Text1.SelStart = InStr(Text1.Text, ",") - 1 Else titi = Text1.Text If ou < Len(Text1.Text) Then Mid(titi, ou + 1, 1) = toto Text1.Text = titi Text1.SelStart = ou + 1 End If End Sub

---

Il m'a toutefois fallu mettre un peu d'eau dans mon vin : l'effacement arrière effacera tout (sinon : pas possible à gérer)

Tout est formaté au fur et à mesure de la frappe.
Pour frapper les décimales : use de la flêche pour te placer là où il convient et frappe tes decimales.

C'est encore à perfectionner, j'en suis sûr, mais j'arrête là.

Ceci étant dit et fait : j'espère que ce n'est pas un travail à présenter à un notateur, car tu ne seras à mon avis pas en mesure de comprendre et expliquer cette ... acrobatie ...:lol:

Bonne chance.

Je crois que notre erreur viens du fait que l'on s'entête tous à vouloir utiliser la fonction Format...

Je m'explique : Ne serait-il pas plus judicieux de construire à la dure une chaîne pour affichage - dans une variable globale privée, par exemple - en y ajoutant le dernier caractère valide tapé, à la position du curseur. On pourrait ensuite, remplacer le contenu du textbox par le contenu formaté - oui, oui, cette fois-ci avec la fonction Format - de la variable globale privée sus-mentionnée.

Je n'ai pas encore testé...

Avant que j'oublie, par caractère valide, je veux dire que l'événement KeyPress (ou mieux, KeyDown ou KeyUp) permet de contrôler ce qui est tapé. et de n'accepter que ce qui nous convient. Alors que l'événement Change, lui, attrape tout changement effectué sans distinction de race ni de couleur... Difficile de faire quelque vérification que ce soit... Mais je crois que ça avait déjà été mentionné... Non?

Bonjour zazaraignée,

On peut faire autrement (et avec l'évènement Change, en plus) en utilisant l'opérateur Like (je crois avoir déjà eu l'occasion de le montrer)...;)

Cependant, notre ami ne veut pas uniquement vérifier la cohérence ! Il veut en plus le formatage "à la volée" avec des espaces pour séparer les milliers ... et les décimales affichées dans le même temps !

Comment VB saurait-il si ce que l'on frappe est la partie décimale ou la partie entière ? Comment saurait-il qu'on en est encore à la saisie de la partie entière ou si l'on en a fini avec, pour passer aux décimales ?
On peut gérér, mais à condition d'imposer à l'utilisateur de frapper le séparateur décimal (ce qui ferait perdre le formatage automatique souhaité en cas d'arrêt de saisie sur un nombre entier).
Voilà voilà !

• Une variable booléenne pour déterminer si on a tapé une virgule (ou un point)
• La position du curseur et ce qui l'entoure (un espace à gauche ou à droite ou pas du tout...)

Mais je persiste à croire que c'est fendre les cheveux en quatre que de vouloir 'voir' le format pendant la saisie. Même Excel ne le fait pas !

Bonsoir, zazaraignée,

Essaye de mettre en application (tu vas vite comprendre ;))

N'oublie pas que s'il tape 2, il veut voir s'afficher (à la volée) 2,00
s'il tape ensuite 345, il veut avoir à la volée 2 345,00
etc...
Ce n'est de surcroit pas lui qui doit frapper la virgule
Il doit enfin pouvoir frapper 2 345,67 sans avoir (à la place) 234 567,00
(par exemple) :lol:

Je mets très bien en application et je continue et persiste à croire que c'est de la programmation lourde.

Je vous laisse donc fendre les cheveux en 4.

Remarque, si le client tient absolument à voir un format précis en cours de saisie...

Amusez vous bien! Je décroche.