Créer un graph avec une plage de donnée variable

Version imprimable

Bonjour,

J'aimerai faire un graph avec une plage de donnée dont je ne connai pas la longueur, comment faire ??
J'ai une petite idée avec la fonction "CurrentRegion" mais je n'y arrive pas.
Voila mon code :

Code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Range("B5").CurrentRegion.Select
    Charts.Add
    ActiveChart.ChartType = xlBarClustered
    ActiveChart.SetSourceData Source:=Sheets("Arrêt machine").Range("A5:A19"), _
        PlotBy:=xlColumns
    ActiveChart.SeriesCollection(1).XValues = "='Arrêt machine'!R5C2:R20C2"
    ActiveChart.SeriesCollection(1).Values = "='Arrêt machine'!R5C1:R20C1"
    ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Graphique"
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = _
        "Nombre d'arrêt machine + code arrêt de la journée sélectionnée"
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Code arrêt"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Nombre d'arrêt dans la journée"
    End With
    ActiveChart.HasLegend = False
    ActiveChart.HasDataTable = False

bonjour Damien,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
x = Sheets("Arrêt machine").Range("A65536").End(xlUp).Row
Charts.Add
 With ActiveChart
    .ChartType = xlBarClustered
    .SetSourceData Source:=Sheets("Arrêt machine").Range("A1:B" & x), PlotBy:=xlColumns
    .SeriesCollection(1).XValues = "='Arrêt machine'!R2C1:R" & x & "C1"
    .SeriesCollection(1).Values = "='Arrêt machine'!R2C2:R" & x & "C2"
    .Location Where:=xlLocationAsNewSheet, Name:="Graphique"
    .HasTitle = True
    .ChartTitle.Characters.Text = "Nombre d'arrêt machine + code arrêt de la journée sélectionnée"
    .Axes(xlCategory, xlPrimary).HasTitle = True
    .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Code arrêt"
    .Axes(xlValue, xlPrimary).HasTitle = True
    .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Nombre d'arrêt dans la journée"
    .HasLegend = False
    .HasDataTable = False
 End With

30/04/2010, 08h56
Damien.020

Ok, ça fonctionne, le graph est bien tracé avec une plage variable, le problème est qu'il me met sur l'axe des ordonnée proche du 0, une autre valeur 0 avec marqué "code arrêt" en face. Je ne voit pas pourquoi

Il me prend 3 graduations, et me rajoute "code arrêt" sur l'axe des ordonné......étrange
30/04/2010, 09h04
Damien.020

En faite je pense qu'il prend le titre qui ce trouve au dessus des valeurs, il faudrai un code disant de commencer à prendre les valeurs a partir de A5 ou B5