Discussion :

[kawel]

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 :

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
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 !

[AlainTech]

Elle n'est pas là ton erreur:

Code :

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

ActiveChart.SeriesCollection(1).XValues = Worksheets("Résultats").Range(Cells(4, 1),Cells(50, 1))

???

[kawel]

Méga boulet que je suis, c'est la ligne du dessus qui gêne effectivement.
celle du dessous ne compte pas (celle en rouge donc).

[AlainTech]

Et tu as corrigé?
Ca fonctionne?

[kawel]

ActiveChart.SeriesCollection(1).XValues = Worksheets("Résultats").Range("Cells(4, 1):Cells(50, 1)")

En fait c'est cette ligne qui bloque.
Normalement, je remplace le 50 dans la deuxième cellule par limit_inf qui est l'indice de la fin de ma colonne de donnée. Mais ça plante...
Est-ce du au mélange de paramètre et de données numériques dans la méthode Cells() ?
Merci en tout cas Alain pour ton attention

[AlainTech]

Regarde bien la ligne telle que je l'ai écrite.

Tu as une erreur de syntaxe.