Discussion :

[poilou2607]

Bonjour,
Je bloque sur la synthaxe à écrire pour construire un graphique avec VBA...
Je vous laisse un fichier exemple :

http://www.cijoint.fr/cjlink.php?fil...ijYzdDXjJ.xlsm

Pouvez vous lancer la macro "graphe" et m'expliquez pourquoi cela bloque à la ligne : ajout d'un graphe ?

Merci d'avance de votre aide

[Invité]

Bonjour

Beaucoup de membres du forum ne téléchargent pas les fichiers, il serait bon que tu mettes sur le forum le code qui pose problème en signalant la ligne, tu auras plus de réponses.

Philippe

[poilou2607]

L'erreur se situe à la 4ième ligne

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
 Sheets("Données").Select
    Range("A3:A25,D3:H25").Select
    Range("D3").Activate
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range( _
        "'Données'!$A$3:$A$25;'Données'!$D$3:$H$25")
    ActiveChart.ChartType = xlStockVOHLC
    ActiveChart.SeriesCollection(1).Name = "=""Volume"""
    ActiveChart.SeriesCollection(1).Values = "=MonPortefeuille.xlsm!donneev1"
    ActiveChart.SeriesCollection(2).Name = "=""Ouverture"""
    ActiveChart.SeriesCollection(2).Values = "=MonPortefeuille.xlsm!donneeo1"
    ActiveChart.SeriesCollection(3).Name = "=""Plus Bas"""
    ActiveChart.SeriesCollection(3).Values = "=MonPortefeuille.xlsm!donneepb1"
    ActiveChart.SeriesCollection(4).Name = "=""Plus Bas"""
    ActiveChart.SeriesCollection(4).Values = "=MonPortefeuille.xlsm!donneeph1"
    ActiveChart.SeriesCollection(5).Name = "=""Cloture"""
    ActiveChart.SeriesCollection(5).Values = "=MonPortefeuille.xlsm!donneef1"
    ActiveChart.SeriesCollection(5).XValues = "=MonPortefeuille.xlsm!donneet1"
    ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="OPBPHC"
    ActiveChart.ApplyLayout (1)
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.ChartTitle.Select
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.ChartTitle.Text = "Action ....."
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.ChartArea.Select

Merci d'avance

[babaothe]

Bonjour,
Commence (avant toute autre chose) par tester l'existence :
Ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
10
.......
    ActiveChart.ChartTitle.Text = "Action ....."
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ........
    If ActiveChart.ChartArea is nothing then
       msgbox "pas de chartarea !"
    else
       msgbox "une Chartarea est bien là et je la sélectionne"
       ActiveChart.ChartArea.Select
    end if

ce sera à mon avis un bon début de révélation et compréhension.

EDIT : il arrive parfois que des choses bizarres interviennent (c'est hélàs ainsi !)
Recommence un nouveau classeur ===>>> Colle dans ce classeur tout ton code ===>>> essaye à nouveau ===>>> il y a quelquefois des surprises

[poilou2607]

Bonjour,
j'ai vérifié que mon graphe existait bien..., mais pas moyen , ma macro ne fonctionne pas.

J'ai pensé alors à créer une fonction qui me renverrait le graphe avec les caractéristiques de ces lignes de code... mais je ne vois pas comment faire non plus ...?

Merci de votre aide

[cb_60]

Bonjour
tu peux tester cela:

Code :

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

1
2
3
4
5
6
7
 
    Charts.Add
    With ActiveChart
        .ChartType = xlStockVOHLC
        .SetSourceData Source:=Sheets("données").Range("A3:A22,D3:H22"), PlotBy:=xlColumns
        .Location Where:=xlLocationAsObject, Name:="données"
    End With

à mettre à la place des 5 premieres lignes de ta macro, je n'ai pas excel 2007 sur le PC