Discussion :

[Slooby]

Bonjour,

Cette question date un peu mais étant en stage, je rencontre le même problème.

Pour modifier la plage du ActiveChart.SeriesCollection(1).XValues il faut mettre la plage au format VBA, et non Excel.

Par exemple il faut mettre:

Code :

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

ActiveChart.SeriesCollection(1).XValues = Worksheets("Ma_feuille").Range("A1: D1")

Mais maintenant je rencontre un autre problème:
Comment lui attribuer une plage discontinue ?

En effet, je souhaiterai sélectionner des données du style:

Code :

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

Worksheets("Ma_feuille").Range("A1: D1, "F1:J1")

Mais dans ce cas, VBA réagis comme si j'avais sélectionner le plage A1:J1.

Pouvez vous me renseigner ?
Merci.

EDIT:

Je viens de trouver la réponse. Il faut mettre une Union de plage

Code :

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

1
2
3
4
Dim maRange As Range
Set maRange = Union(Worksheets("ma_feuille").Range("C28:G28"), Worksheets("ma_feuille").Range("J28:N28"))
 
ActiveChart.SeriesCollection(1).Values = maRange

Voilà !

[Daniel.C]

Bonjour,

Code :

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

ActiveChart.SeriesCollection(1).XValues = Range("A1:D1;F1:J1")

[Slooby]

Daniel C.

J'ai vérifié ta proposition, mais elle ne passe pas chez moi.

Certes dans un graphique EXCEL tu sépares tes plages de cellules par un ";" mais en VBA je ne pense pas que l'objet RANGE accepte le ";"

Vois-tu ce que je veux dire ?

[Daniel.C]

Union ne fonctionne pas non plus pour les abscisses, ce qui était demandé.

[Daniel.C]

Au temps pour moi. La première année flagrante de l'année ! Il fallait voir une virgule au lieu d'un point-virgule. Les deux codes sont équivalents :

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
Sub test1()
    With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
        Set marange = Union(Range("A3:A6"), Range("A8:A12"))
        .Values = marange
        Set marange = Union(Range("B3:B6"), Range("B8:B12"))
        .XValues = marange
    End With
End Sub
Sub test2()
    With ActiveSheet.ChartObjects(1).Chart.SeriesCollection.NewSeries
        .Add
        Set marange = Range("A3:A6,A8:A12")
        .Values = marange
        Set marange = Range("B3:B6,B8:B12")
        .XValues = marange
    End With
End Sub