Remplacer Point par Virgule

[Cutbill1234]

Bonjour à tous,

Je sais que la question à déja été posée mais le problème est que les réponses ne me conviennent pas, d'ou ce post.

Voila mon problème : J'ai créer un userform sur lesquel j'ai inseré plusieurs zone de textes (15) elle-même liées à des cellules par le ControlSource. Dans ces zones de textes j'ai besoin de rentrer des nombres decimaux mais si j'utilise le point du pavé numérique ça ne marche pas. Mais ça marche avec la virgule du clavier. Comment faire en sorte, étant donné que j'ai plusieurs userform du même type dans ce classeur pour que le point soit remplacé par la virgule dans tout le classeur et si possible uniquement celui la.

D'avance merci de votre aide

Cutbill

 

[dg62]

Bonjour


Il suffit de modifier tes options régionnales dans le panneau de config.

 

[Léa]

Bonjour,

Un jour en traînant sur le Net j'ai trouvé une bidouille qui pourrait répondre à ta question. Je t'avoue que je ne l'ai pas testée, car je voulais trouver plus simple, mais jusqu'à présent je n'ai pas trouvé

Cette bidouille permet donc d'avoir un point sans être obligé d'appuyer sur la touche Majuscule.

- Charger le fichier “System” dans ResEdit et ouvrir le type de ressource KCHR.

- Ouvrir la ressource en fonction du clavier utilisé (US = ressource ID 0, France = ressource ID 1, France numérique = ressource ID 1111...etc.) Par exemple, si vous utilisez le clavier français, ouvrir la ressource ID 1, normalement nommé 'France'.

Un superbe éditeur s'affiche. En bas, se trouve la représentation graphique d'un clavier evec à droite le pavé numérique (et la virgule que nous allons modifier...) Dans la partie du haut à gauche, se trouve le tableau des caractères ASCII. Localiser le caractère “.” (point) dans ce tableau.

Il suffit maintenant de le sélectionner et de le glisser jusqu'à la virgule du pavé numérique. Le remplacement est automatique et immédiat.

Procéder à la même opération en appuyant sur la touche “Majuscule”, puis sur la touche “Option”, puis encore sur la touche “Contrôle” et avec les combinaisons de touches Majuscule-Option et Majuscule-Contrôle. Puis faire de même avec la touche Verrouillage Majuscule enfoncée.

Ne pas faire de même avec la touche “Commande”, cette touche ne participant pas à la sélection car elle est utilisée pour les raccourcis clavier.

Sauvegarder le fichier “System”, quitter ResEdit et redémarrer...

Je tiens bien sur à préciser que ce n'est pas de moi, mais je ne peux citer l'auteur que de façon anonyme car je ne me souviens plus de son nom

Bonne journée
Léa

 

[Cutbill1234]

Bonjour dg62, Léa,

Le fichier va être mis en réseau et je ne me vois pas changer les configurations de tous les pc. Il me faut donc quelque chose pour ce classeur uniquement. J'en demande beaucoup, je sais.

D'avance merci

Cutbill

 

[Léa]

je pense à un truc basique

si tu utilisais la fonction remplacer
c'est peut-être ridicule ce que je te dis, mais si ça te convient tu pourrais codifier cette action en VBA

J'espère que mon idée puisse te faire avancer

Léa

 

[Hervé]

Bonjour tout le monde,


2 méthodes :

Private Sub TextBox1_Change()
TextBox1 = Application.WorksheetFunction.Substitute(TextBox1.Value, '.', ',')
End Sub

Private Sub TextBox2_Change()
TextBox2 = Replace(TextBox2.Value, '.', ',')
End Sub

sinon, si tu as beaucoup de textbox, tu peut passer par un module de classe, comme dans l'exemple de didierMdf en pièce jointe.

A plus [file name=ClassPointEnVirgule.zip size=16475]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ClassPointEnVirgule.zip[/file]

Message édité par: Hervé, à: 04/03/2005 13:46

 

[Eric C]

Bonjour le forum
Bonjour Cutbill, bonjour Léa & & bonjour Hervé

Une autre possibilité en plus de celles évoquées :
Lien supprimé

 

[Abel]

Bonjour Cutbill1234, le fil

Un autre Lien supprimé qui pourra peut être t'aider.

Abel.

 

[Cutbill1234]

Rebonjour à tous,

J'ai testé en faisant comme le fichier de Hervé, mais chez moi j'ai un truc qui coince :

Private Sub UserForm_Initialize()
Dim Ctrl As Control
Dim N As Byte
For Each Ctrl In Me.Controls
If TypeName(Ctrl) = 'TextBox' Then
N = N + 1
Set GTxt(N).GroupTxt = Ctrl
End If
Next Ctrl
End Sub

il me met une erreur sur GTxt

Savez vous pourquoi ais-je oublié quelque chose ?

D'avance merci

Cutbill

 

[Hervé]

Re

As-tu pensé à déclarer en tête du module de l'userform :

Dim GTxt(15) As New Classe1

15, si tu as 15 textbox

sinon essaye de mettre une pièce jointe.

Le fichier n'est pas de moi, cutbill, mais de didier_MdF.

a plus

 

[Cutbill1234]

Re,

J'ai fais ce que tu m'a dit Hervé mais maintenant il me souligne :
.GroupTxt =

J'ai du mal à tout comprendre sur ce coup là.

D'avance merci

Cutbill

 

[Hervé]

re

difficile de t'aider, as-tu bien copier le module de classe ?

rvalerie@wanadoo.fr , si tu veux m'envoyer ton fichier.

a plus

 

[Cutbill1234]

Bonjour Hervé, bonjour à tous,

Je t'ai envoyé le fichier à ton adresse mail

D'avance merci

Cutbill