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