Comment saisir en format Monétaire sous VBA

[Pierrot]

Bonsoir à tous,

J'ai un problème pour lequel je n'ai pas trouvé de solution satisfaisante.

J'utilise une userform avec une textbox destinée à la saisie d'un prix dans un format monétaire( càd avec séparateur de milliers et avec 2 décimales). Exemple : 10500,50 correspond à 10 500,50 en format monétaire.

Voilà ce que j'ai fait :
Private Sub Prix_Change()
Prix.Value=Format(Prix.value,'#,###.00')

Dès que j'ai saisi le 1er chiffre,le curseur saute et se positionne après la 2ème décimale >> ce qui rend la saisie très difficile donc trop contraignante.Ce que je souhaite c'est de retrouver la même facilté de
saisie que dans une feuille Excel et pour le même format.

Merci d'avance pour votre aide

 

[Hervé]

Bonsoir pierrot, le forum

Essaye de placer ton code dans un évenement afterupdate().

Celui-ci ne se déclenchera que lorsque le textbox perdra le focus.

salut

 

[Pierrot]

Bonsoir Hervé

Merci pour ta réponse si rapide.
J'ai suivi ton conseil et placé mon code dans un évènement after update et çà a très bien marché.

Merci encore une fois pour ton aide.
Cordialement
Pierrot