Discussion :

[fclus]

Bonjour à tous

Je cherche à modifier le nom complet d'une série de données d'un graphique via vba
Il doit y avoir une propriété qu'on peut gérer ?

Merci pour vos éclaircissements

[loufab]

Bonjour,

Oui la bibliothèque Graph est VBA-Like. Tous ces objets et propriétés sont accessibles.

Tu as 2 tuto sur le sujet :

https://loufab.developpez.com/tutori...cess/msgraph1/

https://loufab.developpez.com/tutori...cess/msgraph2/

Cordialement,

[fclus]

Merci pour l'info Loufab

J'ai bien ajouté Microsoft Graph 16.0 Object Library
Par contre, dès la déclaration sur Form Open

Code :

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

1
2
3
4
Dim vlChart As Graph.Chart
Set vlChart = Me.GraphFull.Object.Application.Chart
vlChart.HasTitle = True
vlChart.HasLegend = True

le programme se plante
Propriété ou méthode non gérée par cet objet
Sur la ligne Set vlChart

[loufab]

Bonjour,

Peux-tu poster ta base ?

Cordialement,

[loufab]

Tu utilises le graph Access c'est un composant qui est apparu recensement. Le tuto décrit le Graph standard.
Regardes l'aide en ligne pour utiliser ce nouveau composant.

[harpyopsis]

Bonjour fclus !

Avec Graph 12.0 il n'est pas nécessaire de déclarer l'object du graphe On Open ; les propriétés HasLegend et Legend se règlent toutes seules, p ex. :

Code :

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

1
2
3
4
    Me.Graph46.HasLegend = True
    Me.Graph46.Legend.Font.Size = 8
    Me.Graph46.Legend.Font.Bold = False
    Me.Graph46.Legend.LegendEntries(1).Delete

Normalement ça ne plante pas...

Par contre les axes et multiples séries demandent à être identifiées avec un peu plus de soin. Passer par DataLabel pour modifier les étiquettes d'une série. Ou bien veux-tu modifier le Label Légende de la série ???

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
    Me.Graph46.SeriesCollection(2).DataLabels.ShowCategoryName = False
    Me.Graph46.SeriesCollection(2).DataLabels.ShowValue = True
    Me.Graph46.SeriesCollection(2).DataLabels.ShowSeriesName = False
    Me.Graph46.SeriesCollection(3).DataLabels.ShowCategoryName = False
    Me.Graph46.SeriesCollection(3).DataLabels.ShowValue = True
    Me.Graph46.SeriesCollection(3).DataLabels.ShowSeriesName = False
 
    With Me.Graph46
        For k = 2 To .SeriesCollection.Count
            For j = 1 To .SeriesCollection(k).Points.Count
                If .SeriesCollection(k).Points(j).DataLabel.Caption = vbNullString Then
                    .SeriesCollection(k).Points(j).DataLabel.ShowSeriesName = False
                    .SeriesCollection(k).Points(j).DataLabel.ShowCategoryName = False
                    .SeriesCollection(k).Points(j).DataLabel.ShowValue = False
                Else
                    .SeriesCollection(k).Points(j).DataLabel.ShowSeriesName = True
                    .SeriesCollection(k).Points(j).DataLabel.ShowCategoryName = False
                    .SeriesCollection(k).Points(j).DataLabel.ShowValue = False
                End If
            Next j
        Next k
    End With

Avec Graph 16.0 ça doit faire pareil !

Bon courage !

[fclus]

Voici ce que j'ai réalisé en insérant un graphique dans Access
J'ai 2 courbes sur l'axe principal (Budget et Réel)
J'ai 7 jalons sur l'axe secondaire
Ces 7 jalons peuvent être différents selon le projet sélectionné
Je voudrais pouvoir modifier la légende située au dessus du graphique en récupérant les jalons définis sur le projet

J'essaie donc d'utiliser le contrôle "Graphique" mais je n'arrive pas à reproduire ce graphique


Voici les 2 tables contenant les données à gérer

J'ai également une table TblJalon qui reprend les libellés

[harpyopsis]

Bonsoir fclus !

Tu as donc déjà une Légende qui affiche bien le nom de tes jalons.

Si je comprends bien ; tu voudrais maintenant inclure les valeurs X des jalons dans les étiquettes de ta légende ?

Je ne pense pas que cela soit possible. Dans les étiquettes des axes et des séries, on peut inclure les valeurs, les pourcentages, les noms de champs, ainsi que du texte. Mais malheureusement pas dans les étiquettes de la légende. On peut juste supprimer certaines étiquettes par leur index. C'est tout...

Quelqu'un a peut-être au autre avis ?

Les graphes ActiveX de Access sont maintenant bien désuets, en comparaison de ce qui se trouve sur des pages web. Java ?

Je viens de potasser un peu la doc du nouveau graph Access. A voir!

A+ !

[fclus]

Je m'en doutais un peu
J'ai contourné le problème en gérant une légende perso avec des contrôles en pied de formulaire. Le résultat est presque identique

Merci à tous pour votre aide