Discussion :

[keke5493]

Bonjour,

J'essaie de créer des graphiques de façon automatique avec VBA.
la plage de données des graphiques ainsi que leurs nombres de series sont dynamiques. De plus les graphiques doivent apparaître dans un autre classeur excel que celui où se trouvent les données, exemple:

classeur 'BDD.xls', feuille Alexandrie contient la plage de donnée.
classeur 'BDD.xls', feuille Alexandrie_results contient des informations sur la BDD d'alexandrie (comme le nombre de séries).
classeur 'Alexandrie.xls' feuille Feuil1 doit contenir les graphiques.

J'ai passé déjà beaucoup de temps à trouver une solution mais en vain. Voici une partie de mon code:

Code :

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

1
2
3
4
5
6
7
Set w_port = Application.ActiveWorkbook.Worksheets(port)
Set w_rslt = Application.ActiveWorkbook.Worksheets(port & "_results")
Set w_grph = Workbooks(port & ".xls").Worksheets("Feuil1")
 
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Union(w_port.Range(Cells(gr_ini(1), 5), Cells(gr_fin(1), 5)), w_port.Range(Cells(gr_ini(1), 11), Cells(gr_fin(1), 11))),   PlotBy:=xlColumns

et l'erreur est la suivante: "la méthode cells de l'objet global a echoué".


Je pense avoir un probleme de feuille active mais j'en suis pas sure et surtout je n'arrive pas à résoudre mon probleme. J'ai cherché sur plusieurs forums et je n'ai pas rencontré de solution a mon probleme.

merci à tous pour votre aide.

[keke5493]

Bon j'ai finalement trouvé la solution! Voila ce qui fonctionne:

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
    w_grph.Activate
    Charts.Add
    ActiveChart.ChartType = xlXYScatter
    ActiveChart.SetSourceData Source:=w_grph.Range("A1"), PlotBy:=xlColumns
    For j = 1 To nb_group
        ActiveChart.SeriesCollection.NewSeries
    Next
    For j = 1 To nb_group
        ActiveChart.SeriesCollection(j).Name = "groupe " & j
        ActiveChart.SeriesCollection(j).XValues = _
                "='[" & BDD & "]" & port & "'!R" & gr_ini(j) & "C5:R" & gr_fin(j) & "C5"
        ActiveChart.SeriesCollection(j).Values = _
                "='[" & BDD & "]" & port & "'!R" & gr_ini(j) & "C" & 42 & ":R" & gr_fin(j) & "C" & 42
    Next
    ActiveChart.Location Where:=xlLocationAsObject, Name:=w_grph.Name

Je me prennais la tête sur le setsourcedata qui peut etre contourné finalement.

bonne journée