bonjour à tous
voila je veux créer un graphe à partir d'une plage discontinue.
le truc c que je me suis mis en ref L1C1 pour pouvoir mettre des indices par la suite. j'ai essayé le code donnée par l'enregistreur mais il utilise forcément la référence A1 et je ne sais pas itérer avec.
J'ai donc essayé de l'adapter en créant une range union mais apparement cela ne marche pas dans les arguments. il me met : la methode 'cells' de l'objet '_global' a échoué.
voici mon code en A1 et en L1C1
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Range("T7:T12,Y7:Y12").Select
    Range("Y7").Activate
    Charts.Add
    ActiveChart.ChartType = xlXYScatterSmooth
    ActiveChart.SetSourceData Source:=Sheets("j=1mm").Range("T7:T12,Y7:Y12"), _
        PlotBy:=xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:="j=1mm"
    With ActiveChart
        .HasTitle = False
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "qf en l/h"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Pm en Pa"
    End With
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
Dim marange As Range
'
    Set marange = Union(Range(Cells(13, 20), Cells(18, 20)), Range(Cells(13, 25), Cells(18, 25)))
    marange.Select
    Cells(13, 20).Activate
    Charts.Add
    ActiveChart.ChartType = xlXYScatterSmooth
    ActiveChart.SetSourceData Source:=Sheets("j=1mm").marange, _
        PlotBy:=xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:="j=1mm"
    With ActiveChart
        .HasTitle = False
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "qf en l/h"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Pm en Pa"
    End With
voili voila
merci
rémi