problème de virgules avec "Split"
Bonjour à tous,
J'ai écrit le code suivant (qui me permet de récupérer les coefficients d'une courbe de tendance)
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
26
27
28
29
30
31
| Sub Macro1()
Sheets("Feuil2").Activate
ActiveSheet.ChartObjects("Graphique 1").Activate
Formule = ActiveSheet.ChartObjects("Graphique 1").Chart.SeriesCollection(1).Trendlines(1).DataLabel.Text
Formule = Replace(Formule, "y = ", "")
Formule = Replace(Formule, " + ", " ")
Formule = Replace(Formule, " - ", " ")
Formule = Replace(Formule, "x3", " ")
Formule = Replace(Formule, "x2 ", " ")
Formule = Replace(Formule, "x", " ")
Tableau = Split(Formule, " ")
coeff3 = Split(Tableau(0), ",")
coeff2 = Split(Tableau(1), ",")
coeff1 = Split(Tableau(2), ",")
coeff0 = Split(Tableau(3), ",")
k = UBound(Tableau)
For j = 0 To k
Worksheets("Feuil2").Cells(j + 26, 3).Value = Tableau(j)
Next j
End Sub |
Le souci, c'est que mes coefficients qui comprtent des virgules les perdent. par exemple là ou je devrais avoir "5,9524" j'ai "59 524".
J'ai essayé de remplacer les virgules par des points, mais j'ai toijours le même problème
Quelqu'un a une idée ?
