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