Discussion :

[vinystic]

Bonjour à tous,

Je cherche à savoir comment retrouver, à partir de VBA, le numéro de colonne de Values et XValues d'un graphique existant.

Merci

[James007]

Je ne suis pas sûr de bien comprendre ...
Tu veux parler des Series de données ... Series 1,2,3 ???
Et avec quel critère de recherche veux tu effectuer ta requête ... ???

[vinystic]

Je voudrais connaitre la colonne de donnée utilisée pour la serieColllection(1) d'un graphique existant du style:

Code :

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

msgbox  ActiveChart.SeriesCollection(1).XValues.Column

Merci

[SilkyRoad]

bonsoir


tu peux adapter :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Test()
    MsgBox Range(RecupPlageDonnesGraph( _
        ActiveSheet.ChartObjects(1), 1)).Column
End Sub
 
 
Function RecupPlageDonnesGraph(Ch As ChartObject, NumSerie As Integer) As String
    Dim Tableau() As String
 
    Tableau = Split(Ch.Chart.SeriesCollection(NumSerie).Formula, ",")
    RecupPlageDonnesGraph = Tableau(2)
End Function

bonne soirée
michel

[vinystic]

merci