[EXCEL] Calculer une tendance

Bonjour,

Voilà, j'ai un problème. J'ai besoin de calculer une tendance (données: nombres de ventes d'un produit par mois, sur les douzes derniers mois.)

Apparemment, Excel calcule des Tendances, mais je n'ai pas excel...:(

Est-ce que vous pourriez me dire à quoi ressemble la formule? Je ne la trouve pas.

Merci beaucoup de votre aide!

à partir d'un graphique ca donne ca:

Code:

1
2
3
4
5
6
 ActiveSheet.ChartObjects("Graphique 6").Activate
    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SeriesCollection(1).Points(13).Select
    ActiveChart.SeriesCollection(1).Trendlines.Add(Type:=xlPolynomial, Order:=2 _
        , Forward:=0, Backward:=0, DisplayEquation:=True, DisplayRSquared:= _
        False).Select

rémi

oups dsl le points.select sert à rien

ok merci.

Mais y' a pas une formule générale?

bonjour

Il existe les formules Tendance et DroiteReg

bon apres midi
michel

ok merci, mais je rappelle que je n'ai pas excel, je travaille avec vb6, mais je fais appel au gens qui connaissent excel et qui pourraient m'indiquer une formule.

regarde ca

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
 
 
Option Base 1
 
Function stat(matxy() As Variant) As Variant
'la fonction recoit en paramètres une matrice de taille (x,2)
'où x est quelconque
'matxy(x,1)=valeur x
'matxy(x,2)=valeur y
les valeurs nulles sont écartées du calcul
 
Dim rep(14, 2) As Variant
Dim nbval As Long
Dim somx As Double
Dim somx2 As Double
Dim somy As Double
Dim somy2
Dim somxy As Double
Dim prodecar As Double
Dim dimension As Long
Dim moyx As Double
Dim moyy As Double
Dim boucle As Long
For boucle = 1 To UBound(matxy)
If Not (IsEmpty(matxy(boucle, 1)) Or IsEmpty(matxy(boucle, 2))) Then
nbval = nbval + 1
somx = somx + matxy(boucle, 1)
somy = somy + matxy(boucle, 2)
somxy = somxy + (matxy(boucle, 1) * matxy(boucle, 2))
somx2 = somx2 + (matxy(boucle, 1) * matxy(boucle, 1))
somy2 = somy2 + (matxy(boucle, 2) * matxy(boucle, 2))
End If
Next boucle
rep(1, 1) = "nombre valeurs: "
rep(1, 2) = nbval
rep(2, 1) = "somme des x: "
rep(2, 2) = somx
rep(3, 1) = "somme des y: "
rep(3, 2) = somy
rep(4, 1) = "somme des xy: "
rep(4, 2) = somxy
rep(5, 1) = "somme des x2: "
rep(5, 2) = somx2
rep(6, 1) = "pente: "
rep(6, 2) = ((nbval * somxy) - (somx * somy)) / ((nbval * somx2) - (somx * somx))
rep(7, 1) = "ordonnée origine: "
rep(7, 2) = (somy / nbval) - (rep(6, 2) * (somx / nbval))
rep(8, 1) = "moyenne x: "
moyx = somx / nbval
rep(8, 2) = moyx
rep(9, 1) = "moyenne y: "
moyy = somy / nbval
rep(9, 2) = moyy
rep(10, 1) = "écart type p x: "
rep(10, 2) = (((somx2 * nbval) - (somx * somx)) / (nbval * nbval)) ^ 0.5
rep(11, 1) = "écart type p y: "
rep(11, 2) = (((somy2 * nbval) - (somy * somy)) / (nbval * nbval)) ^ 0.5
For boucle = 1 To UBound(matxy)
If Not (IsEmpty(matxy(boucle, 1)) Or IsEmpty(matxy(boucle, 2))) Then
prodecar = prodecar + ((matxy(boucle, 1) - moyx) * (matxy(boucle, 2) - moyx))
End If
Next boucle
rep(12, 1) = "covariance: "
rep(12, 2) = prodecar / nbval
rep(13, 1) = "coefficient de corrélation: "
rep(13, 2) = rep(12, 2) / (rep(11, 2) * rep(10, 2))
rep(14, 1) = "coefficient détermination: "
rep(14, 2) = rep(13, 2) * rep(13, 2)
stat = rep
 
End Function
 
 
Sub testemat()
Dim mat(100, 2) As Variant
Dim rep As Variant
Dim x As Long
For x = 1 To 100
mat(x, 1) = x
mat(x, 2) = (x * 3.5) + Rnd()
Next x
rep = stat(mat)
    For x = 1 To 14
    Debug.Print (rep(x, 1) & rep(x, 2))
    Next x
Debug.Print "tendance pour 101:" & (rep(6, 2) * 101) + rep(7, 2)
End Sub

merci beaucoup

j'étais en train de regarder ça

Merci pour votre aide