Point virgule dans textbox

[Temjeh]

Bonsoir à tous

J'ai ceci comme code:

If TextBox1 = "" Then
MsgBox "Entrez au moins un montant!!"
Else
ActiveCell.Value = TextBox1.Value + ActiveCell.Value
TextBox1 = ""
TextBox2.Value = ActiveCell.Value
TextBox2.Value = Format(TextBox2.Value, "# ###.00")
End If

Le prob est qu'il bug si je met un point dans textbox aulieu de la vigule

Y-a-t-il une solution?

Merci

A++

Temjeh

 

[Temjeh]

Merci j'ai trouvé avec l'option régional du clavier

Si on a mieux allez-si

Merci

 

[myDearFriend]

Bonsoir Temjeh,


Pour ma part, je vois deux façons de faire :

1) Tu remplaces :
   ActiveCell.Value = TextBox1.Value + ActiveCell.Value
   par
   ActiveCell.Value = Val(TextBox1.Value) + ActiveCell.Value


2) Tu ajoutes cette procédure :

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

   qui remplacera le "." (point) par une "," (virgule) lors de la saisie dans le TextBox1.


Cordialement.

Didier_mDF

 

[Temjeh]

Merci beaucoup Didier_mDF

J'ai opter pour la solution no1

C'est parfait que je mette la virgule ou le point ca fonctionne


A++

Temjeh