Autres correlation automatique

[roger44]

Bonjour
Colonnes A et B donnent une corrélation entre date et comptage vélos dans la rue A à Nantes qui est utilisée pour prédire la circulation probable à l'époque dans la rue B.
Il manque deux valeurs rue A. Si jamais on les retrouve, on aimerais que la prédiction rue B se met à jour automatiquement. Est-ce possible?

Merci

 

[Gardien de phare]

Bonjour,
Mettre les sources en "tableaux structurés" Excel si la version le permet...

 

[sylvanu]

Bonjour Roger, Gardien de phare,

Deux possibilités à ma connaissance :
1- Passer par Droitereg en matriciel. Le problème c'est qu'il n'aime pas les "trous" dans les échantillons
2- Aller "piquer" l'équation dans le graphique et en extraire les coefficients
En PJ un exemple avec la macro qui se déclenche dès qu'une valeur change en colonne A ou B.
En espérant que cela marche sur votre version XL, j'ai vu qu'il s'agissait d'un xls.

Sub Extract_Polynom()
Chaine = ""
Set Feuille = ActiveWorkbook.Worksheets(1)
With Feuille.ChartObjects(1).Chart          ' Dans graphique
    With .SeriesCollection(1).Trendlines(1) ' Courbe de tendance
        .Type = xlPolynomial                ' polynomiale
        .Order = 4                          ' ordre 4
        .DisplayEquation = True
        .DisplayRSquared = False
        Chaine = .DataLabel.Text
    End With
End With
tablo = Split(Chaine, "x")                  ' tranfert équation dans tablo
For i = 0 To 4
    tablo(i) = Replace(tablo(i), ",", ".")  ' remplacement séprateur décimal
Next i
[E3] = Val(Mid(tablo(0), 5))                ' extraction des coef.
[E4] = Val(Mid(tablo(1), 3))
[E5] = Val(Mid(tablo(2), 3))
[E6] = Val(Mid(tablo(3), 3))
[E7] = Val(Mid(tablo(4), 2))
End Sub