Utiliser uniquement le séparateur point dans Excel et VBA)

Bonjour,

Dans le fichier que j'utilise, suite à des problèmes avec les séparateurs décimaux "point" et "virgule », j'ai décider de n'utiliser que le "point" (plus simple avec le clavier numérique)

J'ai donc dans les Options Excel modifié le séparateur "," par "."

J'utilise dans mon fichier une Userform avec différentes TextBox chargées soit par des cellules de ma feuille Excel:

Code:

---

TextBoxLongueurFournisseur.Value = Sheets("Table").Range("AA1").Value

---

soit par des calculs entre TextBox:

Code:

---

TextBoxPoidsTolePourFournisseur.Value = TextBoxDensite * TextBoxDimensionTolePourFournisseur * TextBoxEpaisseurTole.Value

---

Voici mon premier problème:

Lorsque je charge une Textbox avec la valeur d'une cellule (cf code précédent) il apparait avec une "virgule" malgré que j'ai changé le séparateur.

Pour modifier cela j'ai utilisé un code que j'ai trouvé:

Code:

---

1 2 3 4 5 6 7 8

Private Sub TextBoxLongueurFournisseur_Change()   Dim Sep$ Sep = Application.International(xlDecimalSeparator) TextBoxLongueurFournisseur = Replace(TextBoxLongueurFournisseur, ".", Sep) TextBoxLongueurFournisseur = Replace(TextBoxLongueurFournisseur, ",", Sep)   End Sub

---

Grace à cela, j'ai bien ma valeur chargée dans la textbox avec un point mais voila mon deuxième problème:
les calculs des autres TextBox ne se réalisent plus car VBA effectue ses calculs avec la Virgule comme séparateur. :cry:

Dans ma feuille Excel de par les Option, le séparateur est désormais un point. :)
Je souhaiterai que dans VBA pour les calculs et dans les toutes les TextBox de mon Userform (environ 40 TextBox) le séparateur décimal soit aussi un point

Auriez-vous une solution?

Merci pour votre aide

Cdt Bruno

Salut, plutôt que d'agir ainsi, cela t'évitera qqs désagréments et surprises avec des fichiers "standards". Ajouter le code suiavnt pour le fichier concerné.

Code:

---

1 2 3 4 5 6 7 8 9

Option Explicit   Private Sub Workbook_Open() With Application .DecimalSeparator = "." .ThousandsSeparator = "," .UseSystemSeparators = False End With End Sub

---

Tu peux aussi rétablir à la fermeture la configuration standard, par exemple

Code:

---

1 2 3 4 5 6 7

Private Sub workbook_BeforeClose(Cancel As Boolean) With Application .DecimalSeparator = "," .ThousandsSeparator = " " .UseSystemSeparators = False End With End Sub

---

Bonjour et merci de cette réponse.

J'ai essayé le code que tu m'as donné et j'ai l’impression qu'il modifie le séparateur uniquement dans la feuille de calcul (action équivalente mais par macro de quand j'allais dans les options Excel).

Quand je charge une TextBox la virgule apparaît toujours :-(

Du coup lorsque j'effectue un produit de textbox par exemple, il me renvoie une erreur de type car il multiplie des nombres avec des virgules et avec des points :cry:

Les calculs VBA peuvent-ils se faire avec des points comme séparateur de décimales?

Merci de votre aide!!

Re, de la lecture : saisie numérique dans une TextBox

Malheureusement, ce tutoriel permet de faire le contraire de ce que j'ai besoin. Je souhaiterai que le point fasse office de séparateur dans Visual Basic et non pas "interdire le point comme saisie."

J'ai beau chercher, je n'arrive à rien :-(

si je modifie une valeur "3,57" par la valeur "4,57" tout fonctionne or si je modifie une valeur "3,57" par la valeur "4.57" au clavier numérique j'ai une erreur type :cry:

pour un gain de temps, je ne souhaite pas interdire la saisie 4.57 comme dans le tuto.

Merci pour votre patience!

Salut, tu sembles attendre du tout cuit, il n'est pas interdit de modifier le tuto pour qu'il fasse le contraire.

Bonjour, je ne pense pas "avoir attendu du tout cuit" ;-) vu que je n'ai pas arrête d'essayer de résoudre ce problème depuis hier !!

J'ai d'ailleurs trouvé une solution assez simple qui permet de transformer le format texte en format chiffre, et me permet de faire mes calculs entre textbox sans problème de "virgule" et de "point"

Lorsque j'avais un conflit j'ai utilisé:

Code:

---

Val(Replace(Me.TextBox1, ",", "."))

---

ainsi si j'ai un calcul entre plusieurs textbox pour que "." et "," ne soit plus source d'erreur type j'utilise la syntaxe suivante:

Code:

---

Me.TextBox3 = Val(Replace(Me.TextBox1, ",", ".")) *Val(Replace(Me.TextBox2, ",", "."))

---

Merci pour votre aide en tous cas !!

Cdt Bruno