Userform et textbox

[fmoore]

Bonjour,

Quand je lance mon userform j'ai les textbox suivants :

TextBox3 = Sheets("Feuil1").Range("C3") * 100
TextBox4 = Sheets("Feuil1").Range("C6")
TextBox5 = Sheets("Feuil1").Range("C5")
TextBox1 = Sheets("Feuil1").Range("C1")
TextBox2 = Sheets("Feuil1").Range("C2")
TextBox6 = Sheets("Feuil1").Range("F2")

Tout fonctionne bien sauf quand il a des décimales ça inscrit 5,72 au lieu de 5.72. Je dois avoir le point et non la virgule sinon par la suite ma commande ne fonctionne pas.

Avez-vous une idée de comment je peux le faire, j'ai essayé de plusieurs façons et rien ne fonctionne.

Merci de votre temps !

 

[fmoore]

Même quand je change dans ce style
TextBox5.Value = Format(Range("C5").Value, "0.00")
il continue de m'inscrire le chiffre avec une virgule.

 

[cathodique]

Bonsoir fmoore ,

Une textbox ne peut que du texte qu'il faut convertir selon tes besoins.
Avec Les paramètres régionaux français dans Excel le séparateur de décimaux est la virgule.
Par contre dans le VBE, les paramètres sont toujours en anglais d'où une corvée supplémentaire
pour la langue de Molière.

Avec un petit fichier, avec données anonymes on comprendrait mieux ton souci.

Bonne soirée.

 

[fmoore]

Bonjour,

Dans l'optique d'aide au suivant, j'inscris les formules que j'ai enfin réussi à changer mes , en . avec les formules suivantes :

TextBox3.Value = Replace(Range("C3").Value * 100, ",", ".")
TextBox4.Value = Replace(Range("C6").Value, ",", ".")
TextBox5.Value = Replace(Range("C5").Value, ",", ".")
TextBox1 = Sheets("Feuil1").Range("C1")
TextBox2 = Sheets("Feuil1").Range("C2")
TextBox6 = Sheets("Feuil1").Range("F2")

Merci de votre temps !

 

[Dranreb]

Bonsoir.
Il y a quand même aussi = Trim$(Str$([C3].Value * 100)).
Se reconvertit en numérique par Val(…) au lieu de CDbl(…)