Discussion :

[housemiouzic]

Bonjour a tous

j'ai un graphique a bulle avec plusieurs bulles et j'aimerai récupérer les coordonnées X et Y de chaque bulles.
Toutes mes bulles se trouvent dans la SerieCollection(1)

j'ai bien fait ma boucle sur toutes les bulles

Code :

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

ActiveChart.SeriesCollection(1).Points.Count

mais j'ai alors pensé à utiliser la méthode Value pour récupérer la valeur mais ca ne marche pas : ActiveChart.SeriesCollection(1).Points(i).Value

j'ai beau chercher je ne trouve pas.


merci d'avance

[SilkyRoad]

bonsoir


Tu peux tester

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
Sub extractionDonneesGraphique()
    Dim Ch As Chart
    Dim J As Integer
    Dim X As Integer
 
    'Définit le premier graphique de la Feuil1:
    Set Ch = Worksheets("Feuil1").ChartObjects(1).Chart
 
 
    'Compte le nombre de données
    J = UBound(Ch.SeriesCollection(1).Values)
 
    Worksheets("Feuil2").Cells(1, 1) = "Abscisses"
 
    'Ecrit les données d'abscisses dans la Feuil2.
    With Worksheets("Feuil2")
        .Range(.Cells(2, 1), .Cells(J + 1, 1)) = _
            Application.Transpose(Ch.SeriesCollection(1).XValues)
    End With
 
    'Boucle sur les sériee du graphique et écrit les valeurs d'ordonnées à
    'la suite dans la Feuil2.
    For X = 1 To Ch.SeriesCollection.Count
        'Extrait le nom de la série
        Worksheets("Feuil2").Cells(1, X + 1) = Ch.SeriesCollection(X).Name
 
        With Worksheets("Feuil2")
            .Range(.Cells(2, X + 1), .Cells(J + 1, X + 1)) = _
                Application.Transpose(Ch.SeriesCollection(X).Values)
        End With
    Next
End Sub

Comment extraire les valeurs de chaque série d'un graphique ?


bonne soirée
michel

[housemiouzic]

merci ca marche nikel !