Discussion :

[Sécateur]

Bonjour à tous,

Je viens de lire le tutoriel de Didier Gonard (voir ici) sur la façon d'obliger la saisie de valeurs numériques dans une TextBox.

Extrémement intéressant ! J'aurais cependant une petite (peut-être pas si petite que cela) question :

Je suis en train de développer une application sous Excel avec quelques UserForms et quelques TextBoxes. Cette application devrait ensuite être distribuée dans de multiples pays avec des paramètres régionaux sans doute très différents. De plus, je pense que la majorité des utilisateurs utiliseront le clavier numérique pour saisir les différentes valeurs (virgule en France, point sur clavier anglo-saxon, ...).

Quelqu'un aurait-il une solution universelle pour gérer le séparateur de décimal ? Pourquoi n'y a-t-il pas de "ValueBox" (pardon pour le néologisme) en VBA ?

Grand merci pour votre aide !

[PPz78]

En espérant que cela te donnes l'occasion de faire le tour du monde pour tester ton application dans les différents pays ;+))

[JeanSairien]

Bonjour,

N'étant pas un expert en VBA, je ferais un test sur le langage du clavier AZERTY ou QWERTY puis j'utiliserais ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Ici cela remplace les . par des virgules. Et je l'adapterais en fonction du langage du clavier.

En espérant que cela réponde un tant soit peu à ta question.

[Sécateur]

Merci à tous,

Oui, en effet, j'ai testé cette méthode Replace et je pense qu'elle devrait convenir. C'est un peu cafouilleux entre l'affichage dans la TextBox, la valeur à traiter dans VBA et l'écriture dans la feuille Excel. Mais bon, je devrais m'en sortir avec cela.

Et si cela ne marche pas, je ferai ce que propose PPz78, je ferai le tour du monde (je crains qu'il ne soit que virtuel, malheureusement ...)

Merci encore et bonne soirée