Discussion :

[melouille56]

Bonjour,

Je souhaiterais, après la saisie d'un montant X dans une TextBox de mon UserForm, remplacer la virgule par un point (en vérifiant d'abord la présence d'une virgule dans le montant saisit).

J'ai bien tenté ca...

Code :

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

1
2
3
4
5
6
7
Private Sub Amount1_AfterUpdate()
 
If InStr(1, Controls("Amount1").Text, ",") <> 0 Then
    Controls("Amount1").Text.Replace What:=",", Replacement:="."
End If
 
End Sub

...avec plein d'espoir mais évidemment, comme je le craignais, ca ne marche pas.

Quelqu'un aurait-il une petite idée ?

[Jean-Philippe André]

dans afterupdate
me.text_box.text = replace(me.text_box.text,",",".")
avec un test pour éviter de tourner à l'infiini