Transformer un point en virgule dans un textbox

Pierrot93

XLDnaute Barbatruc

• 22 Décembre 2010

• #2

Re : Transformer un point en virgule dans un textbox

Bonjour,

essaye ceci, à utiliser dans le module de l'usf ou de la feuile où se trouve ton "textbox" :

Code:

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

bonne fin d'après midi
@+

Edition : bonjour Jean-Marcel

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 22 Décembre 2010

• #3

Re : Transformer un point en virgule dans un textbox

Bonjour

peut-être sous cette forme

Code:

If IsNumeric(Me.TB_Qte_rebutee) = False Then
If Right(Me.TB_Qte_rebutee, 1) = "." Then
    Me.TB_Qte_rebutee = Left(Me.TB_Qte_rebutee, Len(Me.TB_Qte_rebutee) - 1) & ","
Else
    MsgBox "La valeur entrée doit être numérique ou , pour les décimales"
    Me.TB_Qte_rebutee.Value = ""
End If
End If

que de rapidité vous tous!

 

Vote positif 0 Vote négatif

B

bartelele

XLDnaute Junior

• 22 Décembre 2010

• #4

Re : Transformer un point en virgule dans un textbox

merci pour vos réponses rapide! 🙂

La réponsede jean-marcel fonctionne très bien!

Seul hic, lors de mon addition les décimales ne sont pas prises en compte... la fonction val ne gére que les entiers?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 22 Décembre 2010

• #5

Re : Transformer un point en virgule dans un textbox

Re,

pour info, la fonction "val" n'accepte que le point comme séparateur de décimale, ci-dessous extrait de l'aide vba :

Note La fonction Val ne reconnaît que le point comme séparateur décimal (.). Lors de l'utilisation d'autres séparateurs décimaux (applications internationales, par exemple), convertissez la chaîne en nombre à l'aide de la fonction CDbl.

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

S

Spoon86

XLDnaute Nouveau

• 22 Décembre 2010

• #6

Re : Transformer un point en virgule dans un textbox

Bonsoir,

simple suggestion, mais n'est-il pas possible de créer une macro qui utilise le menu "Edition -> remplacer, "." par "," .

Spoon.

 

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 23 Décembre 2010

• #7

Re : Transformer un point en virgule dans un textbox

Salut,voir sur https://www.excel-downloads.com/threads/differents-formats-textbox-dans-userform.95186/

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 23 Décembre 2010

• #8

Re : Transformer un point en virgule dans un textbox

bonjour tous
une autre méthode pour simplifier les lignes de code.... a adapter

 

Pièces jointes

• Copie de Classeur1-2.xls

  38.5 KB · Affichages: 240
• Copie de Classeur1-2.xls

  38.5 KB · Affichages: 210
• Copie de Classeur1-2.xls

  38.5 KB · Affichages: 230

Vote positif 0 Vote négatif