Forcer un format nombre dans une TextBox

Bonjour à tous,

Dans un formulaire, j'ai 3 TextBox, 2 contiennent un montant et doivent être au format 0.00€ et une autre format 00.

J'ai fais ce code mais rien ne se passe, comment dois-je procéder ? Merci par avance

Code:

---

1 2 3 4

Private Sub Txt1_AfterUpdate() Txt1.Value = Format(Txt1.Value, "0.00€") End Sub

---

Bonjour

Citation:

---

mais rien ne se passe

---

L'évènement dont tu te sers n'interviens qu'en quittant la textbox. Sinon non.

Pour mémoire (aide interne VBA)

Citation:

---

L'événement AfterUpdate se produit après l'événement BeforeUpdate et avant l'événement Exit pour le contrôle actif et avant l'événement Enter pour le contrôle suivant dans l'ordre de tabulation

---

Ton code marche chez moi à CES conditions-là.

Bonjour,
Merci pour ta réponse
J'ai bien compris l’événement qui sera déclenché c'est pour cela que je l'ai appliqué, mais chez moi ça ne fonctionne pas. Le format reste affiché 0.00

Voici un fichier exemple :Pièce jointe 326512

Ah ?
on va y voir clair --->>
1) et qu'as tu saisi, lorsque reste ainsi affiché ?
2) mets donc cette ligne en première ligne

Code:

---

msgbox "coucou"

---

lance, saisis, donne le focus à n'importe quel autre contrôle de ton userform et dis-moi si coucou s'affiche
J'attends

Citation:

---

Voici un fichier exemple :Classeur1.xlsm

---

Lis donc ma signature !!!!!!!!!

Non rien ne s'affiche

Après avoir ajouté une autre TextBox ça fonctionne :calim2::calim2:

J'ai également remarqué que si je mets une virgule à la place du point ça fonctionne. Comment cela se fait-il ?

[QUOTE
Lis donc ma signature !!!!!!!!![/QUOTE]

Oui, je m'en suis aperçu lorsque j'ai validé ma réponse, toutes mes excuses

J'ai fait ça et ça fonctionne, mais ce n'est pas l'idéal :

Code:

---

1 2 3 4 5

Private Sub Txt1_AfterUpdate() Txt1 = Format(Txt1.Value, "0.00 €") Me.Txt1 = Replace(Me.Txt1, ",", ".") 'après la validation je remplace la virgule par un point End Sub

---

Citation:

---

Après avoir ajouté une autre TextBox ça fonctionne

---

Pardi ! relis ce que j'ai pris la peine de t'exposer du comportement de cet évènement .

Citation:

---

J'ai également remarqué que si je mets une virgule à la place du point ça fonctionne. Comment cela se fait-il ?

---

Drôle de question... -->> réponse du berger à la bergère --->> format s'applique à du numérique, ce que n'est pas par exemple 1.1 si le séparateur décimal en cours sur ta machine est la virgule

Au passage : c'est bien à toi (il me semble) que nous avons pris la peine d'exposer l'importance de toujours, typer, toujours préciser les propriétés utilisées, non ???
Alors ? Corrige/complète-moi les petites choses en rouge ici, veux-tu ?

Code:

---

1 2	Txt1 = Format(Txt1.Value, "0.00 €") Me.Txt1 = Replace(Me.Txt1, ",", ".") 'après la validation je remplace la virgule par un point

---

EDIT : non, ce n'était pas toi. Mais tu vas en profiter --->> lis toute cette discussion --->>
https://www.developpez.net/forums/d1...a/#post9759979

bonsoir

Code:

---

1 2 3 4 5 6

Private Sub TextBox1_AfterUpdate() TextBox1.value= Format(Replace(TextBox1.Text, ".", ","), "0.00 €") End Sub Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then TextBox1.value = Format(Replace(TextBox1.Text, ".", ","), "0.00 €") End Sub

---

Bonjour Patrick
Si même un Expert s'y met à omettre la précision de la propriété utilisée, ma foi ...
Comment espérer convaincre d'éviter ce genre de négligence ?
Veux-tu bien s'il te plait éditer ton code et y remédier ? Donne le bon exemple.

Salut, voir ceci

voila c'est fait Mr le redresseur de tords ,dé fonceur de portes ouvertes ;):ptdr:

1) Merci pour tous de donner ce bon exemple

2)

Citation:

---

fonceur de portes ouvertes

---

T'es sûr que "foncer", c'est "forcer" ?J :lol:
A moins que ce ne soit "poncer" (ce que je fais quelquefois sur une porte, bien évidemment alors ouverte, en vue de la repeindre).

Ceci dit : C'est le contraire, que veut le demandeur. Il a d'ailleurs tort de le vouloir, ce contraire, mais laissons-le venir ...

Citation:

---

Sinon, je ne vois pas où tu veux en venir

---

Il n'est jamais adroit d'utiliser un séparateur autre que celui défini par défaut (celui décidé en configuration) .
Les raisons sont nombreuses :
1) Utilisation directe de Isnumeric
2) convivialité
3) le contenu d'une textbox sera toujours (forcément) de type String. Son exploitation devra donc toujours nécessiter une conversion en numérique -->>
Utilisation de Val (si le . y est comme séparateur)
Utilisation de cdbl (par exemple) si le séparateur saisi y est autre que le .
Conversion pour conversion (puisque de toute mùanière inévitable) , autant en choisir une universelle (pour tout dans l'application). Cela évitera des étourderies ici et/ou là .

Bon dimanche

Bonjour à tous,

J'ai supprimé ma dernière réponse que je trouvais inutile car elle ne répondait aux attentes.
Je me suis penché sur plusieurs tuto trouvé dans ce forum, je vais essayé de trouver la solution que tu attends.

Merci Patrick pour ton intervention, je vais regarder ta proposition de plus près.

Je suis attentif à toutes remarques utiles, mais si parfois je les trouve un peu agressive, ce n'est là que mon ressenti. J'apprécie ce que vous faites pour que ce forum puisse être aussi actif.

Ne jamais voir de l'agressivité là où il y a volonté d'alerter.
Si je vois un pêcheur qui fait une erreur (surtout si susceptible d'endommager son matos; un plomb d'un poids con compatible avec sa canne, par exemple) --->> je le lui dis -->> et je ne manque pas de lui dire (cela lui servira dorénavant pour toute autre canne) qu'il éviterait ce genre d'erreur en lisant ce qui est imprimé sur sa canne.

Il fait ensuite comme IL l'entend. Et s'il se sent "agressé, c'est sa seule affaire. Ma conscience, elle, est tranquille. ;)
Bon dimanche

PS : amuse-toi (tu vas vite comprendre) à te mettre dans la peau d'un anglophone qui saisirait "1,224.32" (qui est ce que nous écrivons "1224,32") dans ta textbox et applique ensuite ton Replace puis essaye d'utiliser le résultat (que ce soit pour un calcul ou pour affecter ce résultat à une cellule). Je te laisse voir ...

Est-ce cela que tu attends ? J'ai remarqué que si je ne mets pas une virgule, le résultat sera = 0

Code:

---

1 2 3 4 5 6 7 8

Private Sub Txt1_AfterUpdate() Dim T As Double If IsNumeric(Me.Txt1) Then T = CDbl(Me.Txt1) End If Me.Txt1.Value = Format(T, "0.00 €") End Sub

---

Force le séparateur décimal "normal" (la virgule donc pour ta machine)
Interdis la saisie du point (où que ce soit dans la saisie) . Tu trouveras sur ce site une foultitude de discussions, etc ... te permettant de contrôler les saisies.
Vérifie par la fonction Isnumeric
Convertis ensuite par une fonction de conversion en numérique chaque fois que tu dois utiliser la valeur de cette textbox.
Voilà. C'est aussi simple que cela.

Merci pour ta réponse. Cependant je rencontre un problème. Je ne sais pas quel séparateur décimal vont utiliser les utilisateurs. Certain préfère le point et d'autre la virgule. Donc , je dois envisager les 2 cas.
J'ai pu parcourir pas mal de tuto, je n'ai pas toujours tout compris, mais je vais les reprendre.
Je vais creuser pour trouver une solution.

re
allez juste pour m'amuser un peu avec ca
formatage dynamique a chaque touche tapées

je te propose l'interception dynamique da la touche tapée
gestion de la touche back et suppr en supplément
remplacement du point par la virgule par le remplacement du keyascii

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 46 Then TextBox1.Tag = "" If TextBox1.Tag <> "" Then If KeyCode = 8 Then TextBox1.Tag = Mid(TextBox1.Tag, 1, Len(TextBox1.Tag) - 1) End If End Sub Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If "0123456789,." Like "*" & Chr(KeyAscii) & "*" Then If InStr(TextBox1, ",") = 1 Then If Len(Split(TextBox1.Tag, ",")(1)) = 2 Then KeyAscii = 0 End If If KeyAscii = 46 Then KeyAscii = 44 TextBox1.Tag = TextBox1.Tag & Chr$(KeyAscii) KeyAscii = 0 End If End Sub Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If TextBox1.Tag <> "" Then TextBox1.Value = Format(CDbl(TextBox1.Tag), "0.00 €") TextBox1.SelStart = Len(TextBox1.Tag) + 1 End Sub

---

je te laisse deviner comment en ajoutant une simple chose tu peux choisir de faire apparaitre le point ou la virgule avec ce code

je t'aide un peu

ce qui s'affiche dans le textbox c'est le formatage de son tag alors comment fait on ?

en même temps des la première touche tapé tu a même un masque de saisie :ptdr:
c'est bo!! la vie non?