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