Problème de . et , en version française

[stabilo2]

Bonjour,

Je tourne une version française d'Excel.
Les décimales sont donc affichée après le caractère "," (virgule).
J'utilise une fenêtre pop-up dans lesquelles j'ai un TextBox et je copie la valeur trouvée dans le TextBox dans une cellule de la feuille de calcul.

Je suis obligé d'utiliser le caractère "." (point) pour entrer des nombres décimaux dans la TextBox, et ceux-ci sont écrits avec le caractère "," (virgule) lorsque je les copie dans la feuille Excel.
Si j'utilise le caratère "," dans la TextBox, seuls la composante entière de ma valeur est considérée.

Je copie les valeurs ainsi:
ActiveSheet.Cells(1,1) = val(MyForm.MyTextBox.Value)

Je voudrais modifier ma TextBox ou mon code pour rester consistent et pouvoir utiliser le caractère "," (virgule) dans les nombres décimaux de ma TextBox.

Je ne vois pas comment faire.
Merci d'avance.

 

[bqtr]

Re : Problème de . et , en version française

Bonjour stabilo2,

Je te propose ceci, si j'ai bien compris ta demande :

Range("A1") = CDbl(TextBox2)

Pour l'enregistrement dans ta feuille.
Et

Private Sub TextBox2_Change()
TextBox2 = Replace(TextBox2, ".", ",")
End Sub

Cela te permet de continuer à utiliser le point quand tu saisis tes chiffres. Mais c'est la virgule qui sera affichée dans le TextBox.

A+

 

[Paritec]

Re : Problème de . et , en version française

Bonjour Stabilo, Bqtr et le forum,
Voilà un bout de code merveilleux c'est pas de moi c'est de Robert ou Chti160 je ne sais plus mais, en tout état de cause c'est la solution à ton problème
bonne soirée à Tous
Papou


Private Sub TxtB_textbox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 46 Then KeyAscii = 44 'remplace le point par la virgule
End Sub

 

[stabilo2]

Re : Problème de . et , en version française

Bonsoir Bqtr,

Utiliser CDbl(TextBox) à la place de val(TextBox) résoud un des deux problèmes.

La substitution de "." par "," va poser problème si la macro est exécutée sur un Excel Anglais.
Dans ce cas la susbstitution ne devrait pas être exécutée.

Problème seulement partiellement résolu, donc.
Merci quand même.

 

[stabilo2]

Re : Problème de . et , en version française

Problème résolu:

Il suffit simplement de faire:
MyForm.MyTextBox.Value= ActiveSheet.Cells(1,1)

au lieu de
MyForm.MyTextBox.Value= str(ActiveSheet.Cells(1,1))