Discussion :

[khany]

Hello !

J'ai vite effectué une recherche MSChart ce matin avant la foule mais je n'ai rien trouvé de similaire à mon prob.

Ayant un graphe classique en batons, j'aimerai tracer une ligne rouge sur le graphe qui montre la moyenne de mes batons.

Exemple :
Baton 1 = 50
Baton 2 = 75
Baton 3 = 10
Baton 4 = 45

les valeurs sont tjrs comprise entre 0 et 100

Je désire tracer une ligne horizontale à la valeur moyenne 50+75+10+45 = 180/4 = 45 sur mon axe vertical

Est-ce possible :

MERCI

[bidou]

tu peux ajouter une série en ligne qui vaut 45.
Parce que comme mschart n'est pas container, tu ne pourras pas ajouter un controle de type line.

[khany]

Merci ! je vais regarder à ca !
j'avais essayé avec Line et zorder 0 mais effectivement, je n'arrivais pas à placer le contrôle correctement.

Je croyais que MSChart n'acceptait pas 2 types de graphe différents : comme quoi faut pas toujrs écouter les rumeurs

MERCI

[khany]

Salut tout le monde !

Je sais, ce post revient de loin mais j'ai bien profité du congé de Pâques pour oublier un peu VB


Si j'essaye d'appliquer la solution proposée, tout mon graphe prend l'option de ma nouvelle série "Ligne" et je perds mes bâtonnets.

Ca ne m'arrange pas ca

Merci !

[bidou]

il faut passer le type du graphique en combinaison (VtChChartType2dCombination)

[khany]

Salut !

Merci, j'ai vu juste après mais , désolée pour les questions aussi bêtes car j'utilise MSChart pour la première fois, je ne vois pas ma ligne en faisant :

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
 
 
Private Sub Form_Load()
 
    With Graph
        .chartType = VtChChartType2dCombination
 
        .ColumnCount = 5
        .RowCount = 1
 
        .Row = 1
        .Column = 1
        .SeriesType = VtChSeriesType2dBar
        .Data = 45
        .Column = 2
        .SeriesType = VtChSeriesType2dBar
        .Data = 10
        .Column = 3
        .SeriesType = VtChSeriesType2dBar
        .Data = 90
        .Column = 4
        .SeriesType = VtChSeriesType2dBar
        .Data = 19
 
        .Column = 5
        .SeriesType = VtChSeriesType2dLine
        .Data = 41
 
 
    End With
End Sub

L'exemple est bête et simple pour me familiariser et j'ai sûrement omis une précision pour avoir ma ligne horizontale qui traverse mes 4 bâtonnets. Implicitement, je sens que je dois lui dire d'où part cette ligne et ou elle s'arrête mais ...... suis perdue


Merci aux as du Chart !!

[khany]

Salut tout le monde !

Vraiment désolée de vous ennuyer avec cette bête question mais sur le forum, j'ai pêché bcp d'aide (20 post sur MSChart chacun ayant un centre d'intérêt), sur le Net j'ai trouvé 3 exemples de config du MSChart mais aucun exemple permettant de combiner 2 styles dans mon graphe.

J'espère que vous pourrez m'aider (voir petit exemple bête dans post ci-dessus)

MERCI beaucoup

[bidou]

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
Private Sub Command1_Click()
Dim compteur As Long, ArrData(1 To 4, 1 To 3) As Variant
 
For compteur = 1 To 4
    ArrData(compteur, 1) = "toto"
    ArrData(compteur, 2) = Choose(compteur, 45, 10, 90, 19)
    ArrData(compteur, 3) = 41
Next compteur
With MSChart1
    .chartType = VtChChartType2dCombination
    .ChartData = ArrData
    With .Plot.SeriesCollection
        With .Item(1)
            .SeriesType = VtChSeriesType2dBar
            .Position.Order = 1
        End With
        With .Item(2)
            .SeriesType = VtChSeriesType2dLine
            .Position.Order = 0
        End With
    End With
End With
 
End Sub

dans mon exemple j'inverse les deux positions pour que tu voie bien que la série de position la moins élevée est au premier plan.

[khany]

Merci, c'est super gentil

Il me manquait encore du feeling de MSChart pour y arriver car je ne me positionnais pas correctement.

Je viens encore d'en apprendre beaucoup et, avec les autres post, je peux faire un superbe graphe.

Super Grand Merci !