valeur convertie automatiquement par mon userform?!

Bonjour
Voila mon problème
J'ai un userform qui me permet de changer des valeurs (ex: 1.234).
Malheureusement lorsqu'il prend les valeur deja existante dans les cellules il les convertis en string et met un , (virgule) (ex: 1,234)
Comment faire pour que ca ne me le fasse pas?

voici mon code d'origine:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
UserForm6.TextBox2.Value = Feuil2.Range("CADCHF")
    UserForm6.TextBox3.Value = Feuil2.Range("CADEUR")
    UserForm6.TextBox4.Value = Feuil2.Range("CADUSD")
    UserForm6.TextBox5.Value = Feuil2.Range("CHFCAD")
    UserForm6.TextBox7.Value = Feuil2.Range("CHFEUR")
    UserForm6.TextBox8.Value = Feuil2.Range("CHFUSD")
    UserForm6.TextBox9.Value = Feuil2.Range("EURCAD")
    UserForm6.TextBox10.Value = Feuil2.Range("EURCHF")
    UserForm6.TextBox12.Value = Feuil2.Range("EURUSD")
    UserForm6.TextBox13.Value = Feuil2.Range("USDCAD")
    UserForm6.TextBox14.Value = Feuil2.Range("USDCHF")
    UserForm6.TextBox15.Value = Feuil2.Range("USDEUR")
    UserForm6.Show
    Feuil2.Range("CADCHF") = UserForm6.TextBox2.Value
    Feuil2.Range("CADEUR") = UserForm6.TextBox3.Value
    Feuil2.Range("CADUSD") = UserForm6.TextBox4.Value
    Feuil2.Range("CHFCAD") = UserForm6.TextBox5.Value
    Feuil2.Range("CHFEUR") = UserForm6.TextBox7.Value
    Feuil2.Range("CHFUSD") = UserForm6.TextBox8.Value
    Feuil2.Range("EURCAD") = UserForm6.TextBox9.Value
    Feuil2.Range("EURCHF") = UserForm6.TextBox10.Value
    Feuil2.Range("EURUSD") = UserForm6.TextBox12.Value
    Feuil2.Range("USDCAD") = UserForm6.TextBox13.Value
    Feuil2.Range("USDCHF") = UserForm6.TextBox14.Value
    Feuil2.Range("USDEUR") = UserForm6.TextBox15.Value

j'ai essayé ca ma ca ne marche pas non plus

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
UserForm6.TextBox2.Value = CDbl(Feuil2.Range("CADCHF"))
    UserForm6.TextBox3.Value = CDbl(Feuil2.Range("CADEUR"))
    UserForm6.TextBox4.Value = CDbl(Feuil2.Range("CADUSD"))
    UserForm6.TextBox5.Value = CDbl(Feuil2.Range("CHFCAD"))
    UserForm6.TextBox7.Value = CDbl(Feuil2.Range("CHFEUR"))
    UserForm6.TextBox8.Value = CDbl(Feuil2.Range("CHFUSD"))
    UserForm6.TextBox9.Value = CDbl(Feuil2.Range("EURCAD"))
    UserForm6.TextBox10.Value = CDbl(Feuil2.Range("EURCHF"))
    UserForm6.TextBox12.Value = CDbl(Feuil2.Range("EURUSD"))
    UserForm6.TextBox13.Value = CDbl(Feuil2.Range("USDCAD"))
    UserForm6.TextBox14.Value = CDbl(Feuil2.Range("USDCHF"))
    UserForm6.TextBox15.Value = CDbl(Feuil2.Range("USDEUR"))
    UserForm6.Show
    Feuil2.Range("CADCHF") = UserForm6.TextBox2.Value
    Feuil2.Range("CADEUR") = UserForm6.TextBox3.Value
    Feuil2.Range("CADUSD") = UserForm6.TextBox4.Value
    Feuil2.Range("CHFCAD") = UserForm6.TextBox5.Value
    Feuil2.Range("CHFEUR") = UserForm6.TextBox7.Value
    Feuil2.Range("CHFUSD") = UserForm6.TextBox8.Value
    Feuil2.Range("EURCAD") = UserForm6.TextBox9.Value
    Feuil2.Range("EURCHF") = UserForm6.TextBox10.Value
    Feuil2.Range("EURUSD") = UserForm6.TextBox12.Value
    Feuil2.Range("USDCAD") = UserForm6.TextBox13.Value
    Feuil2.Range("USDCHF") = UserForm6.TextBox14.Value
    Feuil2.Range("USDEUR") = UserForm6.TextBox15.Value

d'avance merci

Code:

UserForm6.TextBox2 = Replace(Feuil2.Range("CADCHF").Value, ",", ".")

Sans modifier ton code en allant modifier le symbole décimal des paramètres régionaux de windows

Citation:

Envoyé par jfontaine

Sans modifier ton code en allant modifier le symbole décimal des paramètres régionaux de windows

J'avais deja essayé ca mais ca ne résou rien.
En fait ca inverse le proble (les . deviennent des , et vice verca)

Citation:

Envoyé par AlainTech

Code:

UserForm6.TextBox2 = Replace(Feuil2.Range("CADCHF").Value, ",", ".")

C'est top! ca ca marche nikel
Merci beaucoup :king: