point et virgule

[gildas lechat]

Bonjour le forum,

Cela fait un petit moment que je n'ai pas solicité votre aide..

Alors voila,

j'utilise un userform avec plusieurs texbox dans cette userform.

J'aimerai que, chaque fois que l'utilisateur utilise le point du clavier numérique (.), le point se transforme en virgule (,).

Merci de votre aide
Gildas

 

[Pierrot93]

Re : point et virgule

Bonjour,

essaye ceci, à utiliser dans le module de ton usf :

Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = 46 Then KeyAscii = 44
End Sub

bon après midi
@+

 

[gilbert_RGI]

Re : point et virgule

Bonjour

voir du coté de Application.DecimalSeparator ou Application.ThousandsSeparator ou encore Application.UseSystemSeparators dans l'aide

 

[gildas lechat]

Re : point et virgule

Meri Pierrot, Merci Gilbert,

Pierrot,
Cela fonctionne,
J'ai aissi essayé le code ci dessous et ca fonctionnne aussi.

Private Sub TextBox1_Change()
TextBox1 = Replace(TextBox1, ".", ",")
End Sub

Cependant , le code est lié à un Textbox.
Si je veux avoir le même code applicable à tout les textbox de l'userfom, est il possible d'avoir un code ( sans le répéter sur tout les textbox?
Merci

 

[Pierrot93]

Re : point et virgule

Re, bonjour Gilbert

oui, regarde du coté des modules de classe, une petite recherche sur le forum te donnera pas mal d'exemples...

 

[gildas lechat]

Re : point et virgule

Merci pierrot

C'est réglé
Gildas