superposer des graphes et puis en faire la moyenne

Question

voila mon code pr tracer un graphe et jaimerai savoir le code pour superposer des graphes.
merci

'puissance
Public Sub courbe_de_puissance()
Dim mongraphe As Chart
Dim macourbe As Series
Dim ll_LigneDebut As Long
Dim ll_LigneFin As Long
Dim ls_SheetName As String



ll_LigneDebut = 3
ll_LigneFin = Worksheets("brouillon").Cells(1, 1) - 1
ls_SheetName = "moyenne"
Set mongraphe = ThisWorkbook.Charts.Add
Set macourbe = mongraphe.SeriesCollection.NewSeries
With mongraphe
    'Type de graphique
    .ChartType = xlXYScatterSmooth
    
    With mongraphe.Axes(xlValue)
    .MinimumScale = 0
    .MaximumScale = 600
    End With
    
        With macourbe
        'Plage pour les abscisses
        .XValues = _
                "=" & ls_SheetName & "!R" & ll_LigneDebut & "C1:R" & ll_LigneFin & "C1"
        'Plage pour l'ordonn&#233;e
        .Values = _
                "=" & ls_SheetName & "!R" & ll_LigneDebut & "C7:R" & ll_LigneFin & "C7"
    End With
    'Titre des abscisses
    .Axes(xlCategory, xlPrimary).HasTitle = True
    .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "r&#233;gime"
    'Titre des ordonn&#233;es
    .Axes(xlValue, xlPrimary).HasTitle = True
    .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "puissance"
    'Titre du graphique
    .HasTitle = True
    .ChartTitle.Text = "courbe de puissance"
    
End With
End Sub

mrdep1978 · Answer

Qu'entends-tu par "superposer des graphes" ? Est-ce uniquement ajouter d'autres courbes au graphique ?

dave2047 · Answer

ca serai ajouter d'autres courbes &#224; un graphe dans un premier temps puis aussi de tracer le graphe moyen sur une autre feuille graphique

mrdep1978 · Answer

Pour rajouter d'autres courbes, tu reprends ce que tu as d&#233;j&#224; fait en modifiant la plage des ordonn&#233;es

Set macourbe = mongraphe.SeriesCollection.NewSeries
With macourbe
        'Plage pour les abscisses
        .XValues = _
                "=" & ls_SheetName & "!R" & ll_LigneDebut & "C1:R" & ll_LigneFin & "C1"
        'Plage pour l'ordonn&#233;e
        .Values = _
                "=" & ls_SheetName & "!R" & ll_LigneDebut & "C6:R" & ll_LigneFin & "C6"
End With
Set macourbe = mongraphe.SeriesCollection.NewSeries
With macourbe
        'Plage pour les abscisses
        .XValues = _
                "=" & ls_SheetName & "!R" & ll_LigneDebut & "C1:R" & ll_LigneFin & "C1"
        'Plage pour l'ordonn&#233;e
        .Values = _
                "=" & ls_SheetName & "!R" & ll_LigneDebut & "C3:R" & ll_LigneFin & "C3"
End With

...

Pour la moyenne, le mieux c'est de poser une formule (=Moyenne(moyenne!A5:A7)) dans une autre colonne et de refaire un graphique en te basant sur cette colonne

dave2047 · Answer

est-il possible de le faire avec une boucle while vu ke je ne sai pa ke nombre de graphiques &#224; superposer??
mrci

mrdep1978 · Answer

Sans probl&#232;me. Le seul truc c'est de pouvoir d&#233;finir quelle est la plage de donn&#233;es &#224; utiliser en ordonn&#233;es &#224; chaque it&#233;ration.

Ex :
i=2
while i<10
   Set macourbe = mongraphe.SeriesCollection.NewSeries
   with maCourbe
      If i = 2 Then
         'Je pense qu'on peut d&#233;finir l'axe des abscisse 1 seule fois, mais &#224; v&#233;rifier
         'Plage pour les abscisses
           .XValues = _
                "=" & ls_SheetName & "!R" & ll_LigneDebut & "C1:R" & ll_LigneFin & "C1"
      End If
      'Plage pour l'ordonn&#233;e
      .Values = _
                "=" & ls_SheetName & "!R" & ll_LigneDebut & "C" & i & ":R" & ll_LigneFin & "C" & i
   End With
   i=i+1
wend

Superposer des graphes et puis en faire la moyenne

5 réponses

Discussions similaires