Automatisation courbe de tendance Excel

seblg29 -  
Frenchie83 Messages postés 2254 Statut Membre -
Bonjour,

Je souhaiterais automatiser l'ajout d'une courbe de tendance sous Excel.
Cependant, je souhaiterais que la courbe de tendance s'ajuste de façon linéaire ou polynomial d'ordre 2 en fonction de mes données.
Auriez vous une idée pour développer cela sous Excel ou vba ?

D'avance merci pour vos idées.

Sebastien

1 réponse

  1.
    Frenchie83 Messages postés 2254 Statut Membre 339
     
    Bonjour,
    Auriez vous une idée pour développer cela sous Excel ou vba ? oui
    Utilisez l'enregistreur de macro pour créer une courbe de tendance, sélectionnez tour à tour "Polynomiale d'ordre 2" puis "Linéaire" . Regarder le code obtenu, modifiez le pour l'adapter à vos besoins et qu'il réagisse en fonction de vos données. Ce qui donne quelque chose comme ceci: 
    Sub CourbeDeTendance()
    Application.ScreenUpdating = False
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.SeriesCollection(2).Trendlines(2).Select
    
    'Suivant le type de données, on choisit
    If MesDonnees = "Choix 1" Then
        'courbe de tendance polynomiale d'ordre 2
        With Selection
            .Type = xlPolynomial
            .Order = 2
        End With
    
    ElseIf MesDonnees = "Choix 2" Then
        'Courbe de tendance linéaire
        Selection.Type = xlLinear
    End If
End Sub

    A vous de jouer
    Cdlt
    0