Discussion :

[Damien.020]

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 :

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

[sabzzz]

bonjour Damien,

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

[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

[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