Discussion :

[CélineM]

Bonjour,
J'essaie de faire un graphique courbe histogramme seulement mon programme bloque sur la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveChart.SeriesCollection(3).Values = "=Rapport1!R5C13:R16C13"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:= _
        "Courbes - Histogramme"
    ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("B8:C20"), PlotBy _
        :=xlColumns
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).Values = "=Feuil1!R9C3:R20C3"
    ActiveChart.SeriesCollection(1).Name = "=Feuil1!R8C3"
    ActiveChart.SeriesCollection(2).Values = "=Feuil1!R9C2:R20C2"
    ActiveChart.SeriesCollection(2).Name = "=Feuil1!R8C2"
 ActiveChart.SeriesCollection(3).Values = "=Rapport1!R5C13:R16C13"  :  ActiveChart.SeriesCollection(3).Name = "=""Objectif"""
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
    With ActiveChart
        .HasTitle = False
    .Axes(xlCategory, xlPrimary).HasTitle = False
      .Axes(xlValue, xlPrimary).HasTitle = False
        .Axes(xlCategory, xlSecondary).HasTitle = False
        .Axes(xlValue, xlSecondary).HasTitle = False
    End With

je comprends pas cela peut il venir de cellule selectionner n'ayant aucune valeur????

[SilkyRoad]

bonsoir

Refait un essai en ajoutant préalablement une nouvelle série

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
  ActiveChart.SeriesCollection.NewSeries
 ActiveChart.SeriesCollection(3).Values = "=Rapport1!R5C13:R16C13"

michel