Discussion :

[gruget]

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

[gruget]

excusez moi jai oublié de préciser que c'était sur Excel

[random]

adresse tes ranges avec des cell(x,y) c'est plus commode

[SfJ5Rpw8]

quand tu utilise Cells(... s'en rien devant ... il s'effectue sur la feuille active et renvoi une erreur ... si par exemple la feuille active est un graphique... est tu sur de ne pas être dans ce cas ...

pour éviter ce probléme tu peu ..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
dim sh as worksheet
set sh = thisworbook.sheets("MAfeuille")
...
...
 
....Union(sh.range(sh.cells...

[gruget]

jai bien essayé de spécifier mieux mes cell et range mais le pb au niveau de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveChart.SetSourceData Source:=Sheets("j=1mm").marange, PlotBy:=xlColumns

demeure, je n'arrive pas à spécifier une bonne plage discontinue en source sans passer en A1

random qu'entends tu par adresser mes ranges en cell(x,y)?
merci
rémi

[SilkyRoad]

bonjour

tu peux faire un essai en remplaçant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveChart.SetSourceData Source:=Sheets("j=1mm").maRange, PlotBy:=xlColumns

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveChart.SetSourceData Source:= maRange, PlotBy:=xlColumns

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 Test()
Dim maRange As Range
 
    Set maRange = Union(Range(Cells(13, 20), Cells(18, 20)), Range(Cells(13, 25), Cells(18, 25)))
 
    Charts.Add
    ActiveChart.ChartType = xlXYScatterSmooth
    ActiveChart.SetSourceData Source:=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
 
End Sub

bon apres midi
michel

[gruget]

merci SilkyRoad ca marche maintenant
merci aux autres
rémi