Graphique

Résolu
Signaler
Messages postés
7
Date d'inscription
jeudi 17 avril 2008
Statut
Membre
Dernière intervention
23 avril 2008
-
Messages postés
7
Date d'inscription
jeudi 17 avril 2008
Statut
Membre
Dernière intervention
23 avril 2008
-
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 !!

1 réponse

Messages postés
7
Date d'inscription
jeudi 17 avril 2008
Statut
Membre
Dernière intervention
23 avril 2008

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