[VBA-E]range discontinue pour un graphique

Version imprimable

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:

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:

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

22/03/2006, 11h06
gruget

excusez moi jai oublié de préciser que c'était sur Excel
22/03/2006, 11h24
random

adresse tes ranges avec des cell(x,y) c'est plus commode
22/03/2006, 11h31
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:

1 2 3 4 5 6 7 dim sh as worksheet set sh = thisworbook.sheets("MAfeuille") ... ... ....Union(sh.range(sh.cells...
22/03/2006, 11h49
gruget

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

Code:

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

bonjour

tu peux faire un essai en remplaçant

Code:

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

par

Code:

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

Code:

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

23/03/2006, 12h02
gruget

merci SilkyRoad ca marche maintenant
merci aux autres
rémi