[VBA-E] Données sources d'un graphique
Bonjour tout le monde,
Je me décide a poster bien que je sens que ma question est très conne mais vraiment je vois pas pourquoi ça ne marche pas et je ne trouve pas d'exemples m'éclairant dans le forum.
Je souhaite tracer un graphique (c'est ma première fois) de type histogramme à partir d'une colonne contenant les abscisses et une autre les ordonnées. En gros, c un graphique de répartition de classe avec le nombre d'éléments en ordonnée pour chaque classe en abscisse.
Le problème est que la séelection de la plag en semble pas fonctionner lorsque l'on met un paramètre dans Cells().
Voici mon code :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| 'Traçage du graphique de répartition par taille
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Résultats").Range("A3:B17"), PlotBy:=xlColumns
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = Worksheets("Résultats").Range("Cells(4, 1):Cells(50, 1)")
ActiveChart.SeriesCollection(1).Values = Range("Cells(4, 2), Cells(limit_inf, 2)")
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="régions=f(taille)"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Nombre de régions en fonction de la taille en pixels"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Taille des régions"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Nombre de pixels par région"
End With
ActiveChart.HasLegend = False
ActiveChart.PlotArea.Select |
Limit_inf étant la dernière ligne de ma plage qui commence à la 4ème ligne.
VB me donne le message suivant : "Erreur définie par l'application ou par l'objet" (erreur 1004). Je ne comprend absolument pas ce que cela signifie :?
Bref si quelqu'un peut me dire pkoi ma sélection ne fonctionne pas...
Dslé si la question est très con mais ca fait un moment que je bataille
tcho !
