Userform et textbox

fmoore

XLDnaute Junior
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

XLDnaute Junior
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

XLDnaute Accro
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

XLDnaute Junior
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

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

Discussions similaires


Haut Bas