Créer un graph avec des données variables

Version imprimable

Bonjours,
Je cherche à créer un graphique, mais le nombre de données varient pour chaque requète. Comment faire ??

Voila la macro que j'ai pour l'instant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Macro1(AndFiltre)
    Range("A5:A19,B5:B19").Select
    Range("B5").Activate
    Charts.Add
    ActiveChart.ChartType = xlBarClustered
    ActiveChart.SetSourceData Source:=Sheets("Arrêt machine").Range("A5:B19"), _
        PlotBy:=xlColumns
    ActiveChart.SeriesCollection(1).XValues = "='Arrêt machine'!R5C3:R19C3"
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Arrêt machine"
    With ActiveChart
        .HasTitle = False
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Code Défaut"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Nombre d'arrêt"
    End With
    ActiveChart.HasLegend = False
End Sub

Il ne faudrai pas que l'on prenne les données de A5 jusqu'à A19 mais de A5 jusqu'à ce que l'on est plus de données dans les cellules

Bonjour
2 solutions :
1 - tu demandes à la macro de sélectionner la zone en cours à partir de B5 et tu désactives la ligne avec le SetSourceData (et oui ça marche quand même)
Cela donnerait (à vérifier)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub Macro1(AndFiltre) Range("B5").CurrentRegion.Select Charts.Add ActiveChart.ChartType = xlBarClustered 'ActiveChart.SetSourceData Source:=Sheets("Arrêt machine").Range("A5:B19"), _ PlotBy:=xlColumns ActiveChart.SeriesCollection(1).XValues = "='Arrêt machine'!R5C3:R19C3" ActiveChart.Location Where:=xlLocationAsObject, Name:="Arrêt machine" With ActiveChart .HasTitle = False .Axes(xlCategory, xlPrimary).HasTitle = True .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Code Défaut" .Axes(xlValue, xlPrimary).HasTitle = True .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Nombre d'arrêt" End With ActiveChart.HasLegend = False End Sub
2-tu définis un Nom à ta zone après l'avoir sélectionnée (CurrentRegion) et tu utilises ce Nom dans le SetSourceData

Bon courage
;)

20/04/2010, 09h52
Damien.020

En effet, avec la 1er méthode, le graph s'adapte à la quantitée de valeur. ça c'est nikel, le problème qui ce pose maintenant c'est que les données sont abérantes ! Je ne sais pas pourquoi. En tout cas merci