[AC-2003] bibliothèque MS GRAPH [Résolu]

[paidge]

Bonjour,

Je sens que je vais avoir pas mal de questions (même si on arrive à trouver pas mal de réponses ici et là) ces prochains jours pour ceux qui ont l'habitude de travailler avec MS GRAPH.

La première est la suivante :
J'ai écrit cette procédure dans mon formulaire:

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
Dim vlChart As Graph.Chart
Set vlChart = Me.ole_graph.Object.Application.Chart
 
Private Sub MiseEnPageGraph()
 
    Dim X As Integer, i As Integer
 
        For X = 1 To vlChart.SeriesCollection.Count
            With vlChart.SeriesCollection(X)
                If X <= nbCategories Then
                    .Border.LineStyle = xlContinuous
                    .Fill.Visible = True
                    .HasDataLabels = True
                    For i = 1 To .DataLabels.Count
                        .DataLabels(i).Caption = Round(vlChart.Application.DataSheet.Range(Chr(64 + X + nbCategories) & i).Value, 0) & " %"
                    Next i
                Else
                    .Border.LineStyle = xlLineStyleNone
                    .Fill.Visible = False
                    .HasDataLabels = False
                End If
            End With
        Next X
 
End Sub

Ce qui me permet d'afficher dans les étiquettes de données de mon histogramme empilé, les pourcentages. Alors ça marche mais si je le mets sur l'évènement Form_Open, il prend en compte les données qui étaient dans le datasheet de la dernière ouverture du formulaire. Y'a-t-il un Update ou autre à faire ?
Sinon j'ai essayé sur l'évènement Form_Load mais là ça fait carrémenent comme si j'avais aucune donnée (pas d'histogramme, juste les axes, le titre et la légende)....J'ai même essayé de placer en début de code

Code :

    vlChart.Application.DataSheet.Application.Update

Mais rien n'y fait

Quelqu'un aurait-il une solution ? Merci d'avance

[micniv]

Bonjour,
Essaie sur l'événement _OnChange du controle du graphe (dons de Me.ole_graph)

[paidge]

Je te remercie grandement pour l'aide que tu m'as apportée

Ce n'est pas l'évènement _onChange mais _Updated !

En tous cas ça fonctionne ! Merci, je vais pouvoir partir en WE plus sereinement lol

[FtF Nemesis]

Bonjour, vous parlez de MSGraph, j'imagine que ça permet de creer des visuel par vba.... J'ai des plannings à visualiser depuis des informations sur Access, je doit utiliser MSGraph, ou coder des formulaires pour qu'il m'affiche le planning ( je sens que je vais galèrer !!) ??

[paidge]

En fait, comme son nom ne l'indique pas :p, c'est pour créer des graphiques (courbes, histogrammes, camemberts....). Pour les plannings, il me semble que tu dois avoir des choses dans les tutos. Avec la fonction de recherche, tu devrais trouver ton bonheur. Bon weekend

[FtF Nemesis]

Désolé je pensais que le nom était générique, MERCI bon weekend !