Discussion :

[swissmade]

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 :

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

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 :

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

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

[AlainTech]

Code :

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

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

[jfontaine]

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

[swissmade]

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)

Code :

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

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

C'est top! ca ca marche nikel
Merci beaucoup