Format Textbox, erreur

[Geraldine]

bonjour le forum,

j'ai un petit probleme sur des textbox, je m'explique :

J'ai 3 textbox, une textbox4 = une valeur fixe (par exemple 100), et saisies possible dans la texbox3 ou dans la texbox 5.
Si je rentre la valeur 20 dans texbox3 ça donne texbox5 = 5 soit 100/20
Si je rentre la valeur 4 dans texbox5 ça donne texbox3 = 25 soit 100/4

Mon problème c'est que je veux inserer le code

TextBox5 = Format(TextBox5.Value, "#,##0.00")
et TextBox3 = Format(TextBox3.Value, "#,##0.00")

et mes saisies deviennent difficile, soit par exemple, je tape 19.00, il insere rapidement 1.009 et si je ne met pas le code format, il me sort un vingtaine de chiffres après la virgule.

Private Sub TextBox3_Change()
Me.TextBox5.Value = Val(Replace(Me.TextBox4, ",", ".")) / Val(Replace(Me.TextBox3, ",", "."))
End Sub

Private Sub TextBox5_Change()
Me.TextBox3.Value = Val(Replace(Me.TextBox4, ",", ".")) / Val(Replace(Me.TextBox5, ",", "."))
End Sub

Merci, Géraldine

 

[porcinet82]

Re : Format Textbox, erreur

Salut,

Le problème vient du fait que tu utilises l'évènement Change, donc a chaque fois que tu modifies ton Textbox (a chaque nombre saisie donc), la procédure est lancée.
Utilises plutot l'évèvement Private Sub TextBox1_LostFocus() qui sera activé seulement lorsque tu quitteras le Textbox.

@+

 

[Geraldine]

Re : Format Textbox, erreur

re et bonjour porcinet82,

avec l'utilisation de Private Sub TextBox1_LostFocus(), le calcul ne se fait plus

Private Sub TextBox5_LostFocus()
Me.TextBox3.Value = Val(Replace(Me.TextBox4, ",", ".")) / Val(Replace(Me.TextBox5, ",", "."))
TextBox3 = Format(TextBox3.Value, "#,##0.00")
End Sub

@

 

[porcinet82]

Re : Format Textbox, erreur

re,

Je viens de faire le test avec 3 textbox et des que je sors du textbox5, le calul est effectué dans le textbox3 avec le bon format.
C'est quoi le problèmle au juste? Sinon un petit bout de ton fichier permettrait peut etre d'eclaircir un peu les choses.

@+

 

[Gael]

Re : Format Textbox, erreur

Bonjour Géraldine, bonjour Porcinet, Bonjour à tous,

Une autre solution est de désactiver provisoirement l'évènement Change:

Private Sub TextBox3_Change()
Application.EnableEvents = False
Me.TextBox5.Value = Val(Replace(Me.TextBox4, ",", ".")) / Val(Replace(Me.TextBox3, ",", "."))
Application.EnableEvents = true
End Sub

@+

Gael

 

[Geraldine]

Re : Format Textbox, erreur

re,
je comprend pas pourquoi, je joint un petit fichier,

merci

 

[Geraldine]

Re : Format Textbox, erreur

re et bonjour gael,

ça ne fonctionne pas inseres-tu

Application.EnableEvents = False
Application.EnableEvents = true

dans textbox3 et textbox5 ?

merci, géraldine

 

[Geraldine]

Re : Format Textbox, erreur

re le bon fichier, avec mes petits soucis de saisies

 

[Gael]

Re : Format Textbox, erreur

Re,

Ci-joint un exemple à partir du fichier de Porcinet en utilisant l'évènement "After_update".

@+

Gael

PS: avec l'évènement change et Application.EnableEvents = False, ça ne marche pas car on ne peut insérer qu'un seul chiffre dans les textbox. Dès que l'on tape un chiffre, l'évènement change se déclenche et les calculs s'exécutent. Il est donc impossible de taper 2 chiffres.

@+

Gael

 

[porcinet82]

Re : Format Textbox, erreur

re, Salut Gael 🙂,

Bon et bien je reviens après la bataille, mais j'en profite pour saluer Gael que je n'avais pas croisé depuis un petit moment.

Au plaisir,

@+

 

[Geraldine]

Re : Format Textbox, erreur

oui c'est super comme ça merci gael et porcinet (meme après la bataille)

@ cordialment géraldine

 

[Gael]

Re : Format Textbox, erreur

Re,

Porcinet, comme je n'ai jamais très bien compris ces problèmes de Focus, j'ai voulu mieux comprendre et j'ai essayé sans succès de faire fonctionner ta solution avec Lost_focus.

En fait, comme pour Géraldine, ça ne marche pas chez moi et ce que je ne comprends pas, c'est qu'aucune option style "Focus" n'est proposée dans la liste des évènements proposés par VBA pour les contrôles Textbox.

Du coup, je ne vois pas pourquoi ça marche chez toi. Y-a-t-il une option particulière à préciser pour gérer les Focus?

Merci de ta réponse.

@+

Gael

 

[porcinet82]

Re : Format Textbox, erreur

re,

En faite, étant fainéant, j'avais fait le test sur une feuille et non sur un USF en pensant que les evenements seraient identiques et avec ta question, je m'appercois que ca n'est pas le cas, donc ma solution ne risquait pas de fonctionner !!!
Sinon, la solution qui correspondrait sur le USF a ce que je proposais serait l'evenement Exit

Voili, voilou,

@+

 

[Gael]

Re : Format Textbox, erreur

Re,

Merci, je comprends mieux maintenant.

"Fainéant", "Têtu" et "Curieux" sont des qualités indispensables en informatique, tu en as déjà au moins une...

@+

Gael

 

[porcinet82]

Re : Format Textbox, erreur

re,

Arfff... Je suis également un peu trop borné au gout de certains, moi je ne trouve pas 😛

Au plaisir,

@+