graphiqueRésolu

Question

Bonjour tout le monde, 
je souhaiterais avoir un seul graphique réunissant mes histogrammes et leur moyenne.
Or pour le moment j'en ai deux bien distincts que je n'arrive pas à scinder si on peut dire! 
pour le moment j'obtient un histogramme avec 3 barres par x (point d'abscisse) et de l'autre 3 courbes horizontales représentant leur moyenne.
Vu le code c'est normal, mais je n'arrive pas à les mettre sur le même graphique ! 

Sub graphique(f As Worksheet, rSource, rSource_moy As Range)


    
    Charts.Add
    ActiveChart.ChartType = xlLine
    ActiveChart.SetSourceData Source:=rSource_moy
    ActiveChart.Location where:=xlLocationAsObject, Name:=f.Name
    
    Charts.Add
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData _
       Source:=rSource, PlotBy:=xlColumns
    ActiveChart.Location where:=xlLocationAsObject, Name:=f.Name
    
   
End Sub

Merci de votre aide !!

papimcha · Accepted Answer

C'est bon j'ai trouvé !! 
Il fallait faire tous sur un même graphique et ensuite modifié celles qui m'intéresser (pour moi c'était les colonnes paires représentant les moyennes) 
voici la réponse opur ceux qui en auront besoin : 

Sub graphique(f As Worksheet, rSourceFinal As Range)
    
    Charts.Add
       ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData _
       Source:=rSource, PlotBy:=xlColumns
    ActiveChart.Location where:=xlLocationAsObject, Name:=f.Name
For i = 1 to 3
   With ActiveChart.SeriesCollection(2 * i)
            .ChartType = xlLine
   End WIth
Next i
   
End Sub

Graphique

1 réponse

Votre réponse

Discussions similaires