gros pb . et , dans textbox

[pl]

Merci de votre aide car je ne vois pas de solution

Mon ordinateur est configuré en ", " . Donc mon clavier numérique me fourni une "," quand je tape sur le ".".

Par contre à l'intérieur des textbox et seulement dedans, le clavier numérique me fourni un"." et non une "," et considère donc la valeur en texte.

Y-a-t'il dans vba un moyen de configuré la "," ou le "." ? ou autre chose?

Merci de votre aide

 

[sylsyl]

salut pl,

je pense que le code suivant mis dans ta UserForm devrait resoudre le pb :

Private Sub TextBox1_Change()
If Right(TextBox1.Text, 1) = "." Then
TextBox1.Text = Left(TextBox1.Text, Len(TextBox1.Text) - 1) + ","
End If
End Sub

A chaque fois que tu ajoute un charactere dans la TextBox1, la procedure teste ce charactere (if) et si c'est un point alors elle remplace ce charactere par une virgule.
En fait elle remplace le texte par le meme texte sans le point (TextBox1.Text = Left(TextBox1.Text, Len(TextBox1.Text) - 1) ) puis ajoute une virgule (concatenatoin: + ",")

Voila.

A++, Sylsyl.

 

[pl]

merci Sylsyl,


Connais-tu la raison de ce pb ou de cette spécificité ?
(que le choix régional de windows( , ou .) ne soit pas actif dans les saisies des textbox)

est-ce encore une petite surprise d'excel!


Merci pour ton aide

 

[sylsyl]

Re,

N'ai aucune idee. Surtout si la saisie fonctionne bien dans les cellules du classeur.

Ou alors peut-etre que VBA lit directement le code Ascii de la touche sans passer par "l'interpreteur" windows...

 

[pl]

je ne vois pas d'autre solution àl a question que la tienne.

Merci de ta réponse.

Pour info j'ai opté pour un contrôle à la saisie

Private Sub T73_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If Chr(KeyAscii) = "." Then KeyAscii = Asc(",")

End Sub

 

[Denis]

Bonjour pl et tout le forum
essais de regarder dans le panneau de configuration (Démarrer / Paramètres)
tu vas trouver paramètres régionaux et la tu contrôle si tu as bien le point pour séparateur
Salut @+
Denis

 

[pl]

C'est la tout le problème tous les paramètres sont en virgule, la feuille excel accepte la virgule mais pas les textbox.

mystère