VBA - Excel Faire un graphique histogrammes - courbes

Version imprimable

16/11/2005, 15h07
brethomeau

VBA - Excel Faire un graphique histogrammes - courbes
Je souhaite réaliser un graphique histogramme_courbe.

Mon code est le suivant
Code:

1 2 3 ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:= _ "Courbes - Histogramme"
J'ai 4 séries, elles sont toutes représentées par un histogramme.

Pourquoi?
16/11/2005, 15h48
ouskel'n'or

N'ayant pas ta plage de données, il est difficile de répondre...
Néanmoins, cela se produit quand il y a des trous dans les x (pas d'ordonnée pour un x donné...

Tu vois si tu peux nous préciser

A+

Voila le code :

Code:

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
 
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection.NewSeries
'serie1 FPC
    ActiveChart.SeriesCollection(1).Values = _
        "=(consolidation!R" & NumeroLigne & "C5,consolidation!R" & NumeroLigne & "C9,consolidation!R" & NumeroLigne & "C13)"
    ActiveChart.SeriesCollection(1).Name = "=consolidation!R4C5"
    ActiveChart.SeriesCollection(1).XValues = _
        "=(consolidation!R3C5,consolidation!R3C9,consolidation!R3C13)"
'serie dépenses FPC
    ActiveChart.SeriesCollection(2).Values = _
        "=(consolidation!R" & NumeroLigne & "C7,consolidation!R" & NumeroLigne & "C11,consolidation!R" & NumeroLigne & "C15)"
    ActiveChart.SeriesCollection(2).Name = "=consolidation!R4C7"
    ActiveChart.SeriesCollection(2).XValues = _
        "=(consolidation!R3C7,consolidation!R3C11,consolidation!R3C15)"
'serie3 collecte pro
    ActiveChart.SeriesCollection(3).Values = _
        "=(consolidation!R" & NumeroLigne & "C6,consolidation!R" & NumeroLigne & "C10,consolidation!R" & NumeroLigne & "C14)"
    ActiveChart.SeriesCollection(3).Name = "=consolidation!R4C6"
    ActiveChart.SeriesCollection(3).XValues = _
        "=(consolidation!R3C6,consolidation!R3C10,consolidation!R3C14)"
'serie4 Dépenses pro
    ActiveChart.SeriesCollection(4).Values = _
        "=(consolidation!R" & NumeroLigne & "C8,consolidation!R" & NumeroLigne & "C12,consolidation!R" & NumeroLigne & "C16)"
    ActiveChart.SeriesCollection(4).Name = "=consolidation!R4C8"
    ActiveChart.SeriesCollection(4).XValues = _
        "=(consolidation!R3C8,consolidation!R3C12,consolidation!R3C16)"

16/11/2005, 16h40
ouskel'n'or

Excuse, j'aurais dû préciser ma demande. Dans le code que tu nous passes, il est vraiment trop hardu de vérifier tes plages.

Ma question : Exixte-t-il des X pour lesquels tu n'as aucune valeur de Y ?

Cela pouvant expliquer l'absence de courbe.

Si ce n'est pas ça, tu dis, je regarderai plus à fond, mais pour le moment, je ne vois pas d'explication.

A+
16/11/2005, 16h41
Megaxel

C'est bizarre, mais ça me dit vaguement quelquechose, ce code...
:D

Sinon, j'avoue que je ne sais pas trop comment on choisit le type de graphique. Si tu t'enregistres alors que tu crées différents types de graphique, tu ne vois pas le paramètre qui détermine le choix?
16/11/2005, 16h47
ouskel'n'or

C'est pas le pb, le premier post de brethomeau paraît correct pour avoir à la fois un barregraphe et des courbes. Et visiblement, seules les barres sont apparentes.
tu me corriges si je me trompe, brethomeau

A+

1 je n'ai pas X sans Y
2 Quand je m'enregistre j'obtiens
Code:

1 2 3 ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:= _ "Courbes - Histogramme"
comme j'ai mis

16/11/2005, 16h49
Megaxel

Ok, d'accord. Je suis vraiment nul en graphique...
Alors je me tais et je laisse les gens compétents aider ceux qui ont des soucis.
:oops:
(Mais bon, quand même, y'aurait pas un problème d'échelle, ou d'origine des axes?)