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