Discussion :

[NEC14]

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 :

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

1
2
3
4
 
Private Sub Txt1_AfterUpdate()
Txt1.Value = Format(Txt1.Value, "0.00€")
End Sub

[unparia]

Bonjour

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)

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à.

[NEC14]

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 :Classeur1.xlsm

[unparia]

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 :

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

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

Voici un fichier exemple :Classeur1.xlsm

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

[NEC14]

Non rien ne s'affiche

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

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

[NEC14]

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

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

[NEC14]

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

Code :

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

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

[unparia]

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 .

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 :

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

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

[patricktoulon]

bonsoir

Code :

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

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

[unparia]

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.

[kiki29]

Salut, voir ceci

[patricktoulon]

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

[unparia]

1) Merci pour tous de donner ce bon exemple

2)

fonceur de portes ouvertes

T'es sûr que "foncer", c'est "forcer" ?J
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 ...

[unparia]

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

[NEC14]

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.

[unparia]

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 ...

[NEC14]

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

Code :

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

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

[unparia]

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.

[NEC14]

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.

[patricktoulon]

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 :

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

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
c'est bo!! la vie non?