Discussion :

[brunounours]

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 :

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

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

soit par des calculs entre TextBox:

Code :

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

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 :

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

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.

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

[kiki29]

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 :

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

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 :

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

1
2
3
4
5
6
7
Private Sub workbook_BeforeClose(Cancel As Boolean)
    With Application
        .DecimalSeparator = ","
        .ThousandsSeparator = " "
        .UseSystemSeparators = False
    End With
End Sub

[brunounours]

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

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

Merci de votre aide!!

[kiki29]

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

[brunounours]

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

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

Merci pour votre patience!

[kiki29]

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

[brunounours]

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 :

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

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 :

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

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

Merci pour votre aide en tous cas !!

Cdt Bruno