Discussion :

[lipaika]

Bonjour, je veux récupérer tous les paramètres graphiques d'un orkbook dans lequel plusieurs feuilles de graphiques existent.

L'idée est de créer une feuille d'"architecture" des documents graphiques.

Pour le moment je récupére la feuille, le titre des graphiques, les éléments de la légende (ou serie). Mais je voudrais récupérer les plages de données qui sont référencées pour une série données.

voici mon code :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Sub Architecture_Graphique()
Dim titre As String
 
Set NewSheet = Sheets.Add(Type:=xlWorksheet)
NewSheet.Name = "Architecture"
NewSheet.Cells(1, 1).Value = "Name of the sheet"
NewSheet.Cells(1, 2).Value = "Chart Title"
NewSheet.Cells(1, 3).Value = "Chart Number"
NewSheet.Cells(1, 4).Value = "Chart Name"
NewSheet.Cells(1, 5).Value = "Chart Series Name"
NewSheet.Cells(1, 6).Value = "Chart Series Range"
 
i = 2
For Each feuil In Sheets
    nom = feuil.Name
    NewSheet.Cells(i, 1).Value = nom
    i = i + 1
    For Each cho In Worksheets(nom).ChartObjects
           If cho.Chart.HasTitle = True Then
 
                   NewSheet.Cells(i, 2).Value = cho.Chart.ChartTitle.Text   'chart title
                   NewSheet.Cells(i, 3).Value = "Graphe N° " & cho.Index    'chart number
                   NewSheet.Cells(i, 4).Value = cho.Name             'chart name
                   For Each serie In cho.Chart.SeriesCollection
                        i = i + 1
                        On Error Resume Next
                        NewSheet.Cells(i, 5).Value = serie.Name
                        NewSheet.Cells(i, 6).Value = serie.????
 
                   Next serie
                   i = i + 2
 
           End If
        Next cho
Next feuil
 
End Sub

Merci de votre aide

[cafeine]

Hello,

Merci d'utiliser les balises code ...

Sinon pour récupérer ça, tu peux toujours prendre la formule et découper la chaine ... ça donne ...

Code :

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

NewSheet.Cells(i, 6).Value = split(serie.formula,",")(2)

[lipaika]

Merci beaucoup, j'y avais pas pensé...