Discussion :

[Damien.020]

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 :

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

[fgiambelluco]

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 :

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

[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