Code VBA modification du type de graphique

Version imprimable

15/11/2010, 17h43
Tifriis

Code VBA modification du type de graphique

Bonjour à tous,

je voulais savoir s'il était possible de modifier le type d'un graphique en utilisant du code VBA comme le montre les images ci-dessous :

http://img4.hostingpics.net/pics/882431exemple2JPG.jpg

http://img4.hostingpics.net/pics/132079exemple3JPG.jpg

Si oui, comment faut-il s'y prendre ?

Je vous remercie d'avance pour votre aide.

Tifriis
15/11/2010, 20h49
LedZeppII

Bonsoir,

Si mon contrôle graphique s'appelle Graphique2 :

Code:

Me.Graphique2.Object.Type = une_constante

Reste à trouver les différentes valeurs pour une_constante.
Pour cela tu ajoutes un bouton à ton formulaire dont le code événementielle "Sur clic" sera :

Code:

MsgBox Me.Graphique2.Object.Type

Tu testes les différents types qui t'intéressent et tu cliques sur le bouton pour connaître la valeur de une_constante.

A+
22/11/2010, 14h06
Tifriis

Bonjour LedZeppII,

Désolé de répondre si tard (j'ai eu des problèmes de connexion). Merci pour ta réponse, cela correspond exactement à ce que je recherchais !

Tifriis

Bonjour,

En fait, j'ai encore un problème qui survient aléatoirement.
Lorsque j’exécute mon code, j'obtiens le message d'erreur suivant (un coup ça marche, puis un autre j'ai une erreur).

http://img4.hostingpics.net/pics/891727errorJPG.jpg

Cette erreur s'affiche lorsque j'exécute le code suivant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim Type_graphique,Indicateur_Choisi As String Indicateur_Choisi="Une_variable" Type_graphique = DLookup("Type_graphique", "Indicateurs", "Indicateur='" & Indicateur_Choisi & "'") If Type_graphique = 1 Then [Reports]![Fiche_indicateur]!Graph61.Object.Type = 4 ElseIf Type_graphique = 2 Then [Reports]![Fiche_indicateur]!Graph61.Object.Type = 3 ElseIf Type_graphique = 3 Then [Reports]![Fiche_indicateur]!Graph61.Object.Type = -4102 End If
Peut être que cela vient du fait que j'utilise précédemment le code suivant :

Code:

DoCmd.OpenReport "Fiche_indicateur", acViewReport

Auriez-vous une idée de l'origine de cette erreur ?

Merci d'avance,

Tifriis

Bonsoir,

La propriété Type n'était pas la bonne.
ChartType semble mieux convenir.

Quelques valeurs que j'ai testé avec succès dans un formulaire :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Constante	Description
---------	-----------------------
76		Aires
-4098		Aires 3D
83		Surface 3D
57		Barres
60		Barres 3D
-4151		Radar
51		Histogramme
-4100		Histogramme 3D
65		Courbes
-4101		Courbes 3D
-4169		Nuage de Points
69		Secteurs
70		Secteurs 3D

A priori toutes les constantes sont dans bibliothèque Office.
Si tu n'en a pas déjà une, ajoute une référence à Microsoft Office 12.0 Object Library.
Dans l'éditeur VBA, affiche l'explorateur d'objets.
Fais un clic-droit dans l'explorateur d'objets et sélectionne "Afficher les membres masqués".
Toujours dans l'explorateur d'objets, fais une recherche sur XlChartType.
Tu vas tomber sur le type énuméré XlChartType.
Tous les membres de XlChartType sont des constantes pour la propriété ChartType.

[Ajout]
Je suis allé voir dans Excel, et ce sont les mêmes constantes.
Constantes extraites de l'aide VBA Excel :

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
Const.	Description
------	------------------------------------------
1	Aires
77	Aires empilées*100*%.
79	Aires empilées*100*%.
76	Aires empilées.
78	Aires*3D empilées.
-4098	Aires*3D.
80	Anneau éclaté.
-4120	Anneau.
71	Barres de secteurs.
104	Barres empilées 100*% à forme conique.
97	Barres empilées 100*% à formes cylindriques.
62	Barres empilées 100*%*3D.
103	Barres empilées à forme conique.
96	Barres empilées à formes cylindriques.
59	Barres empilées*100*%.
61	Barres empilées*3D.
58	Barres empilées.
102	Barres groupées à forme conique.
95	Barres groupées à formes cylindriques.
60	Barres groupées*3D.
57	Barres groupées.
87	Bulles avec effet*3D.
15	Bulles.
86	Contour
84	Contour filaire.
67	Courbe empilée 100*% avec marques.
64	Courbe empilée 100*%.
66	Courbe empilée avec marques
63	Courbe empilée.
-4101	Courbe*3D.
4	Courbe.
65	Courbes avec marques.
101	Histogramme empilé 100*% à formes coniques.
94	Histogramme empilé 100*% à formes cylindriques.
108	Histogramme empilé 100*% à formes pyramidales.
111	Histogramme empilé 100*% à formes pyramidales.
56	Histogramme empilé 100*%*3D.
53	Histogramme empilé 100*%.
93	Histogramme empilé à formes coniques.
100	Histogramme empilé à formes coniques.
110	Histogramme empilé à formes pyramidales.
107	Histogramme empilé à formes pyramidales.
55	Histogramme empilé*3D.
52	Histogramme empilé.
99	Histogramme groupé à formes coniques.
92	Histogramme groupé à formes coniques.
109	Histogramme groupé à formes pyramidales.
106	Histogramme groupé à formes pyramidales.
54	Histogramme groupé*3D.
51	Histogramme groupé.
105	Histogramme*3D à forme conique.
98	Histogramme*3D à formes cylindriques.
112	Histogramme*3D à formes pyramidales.
-4100	Histogramme*3D.
88	Max-Min-Clôture.
-4169	Nuage de points.
74	Nuages de points avec courbes
75	Nuages de points avec courbes et sans marqueurs.
73	Nuages de points avec courbes lissées et sans marqueurs
72	Nuages de points avec courbes lissées.
89	Ouverture-Max-Min-Clôture.
81	Radar avec marqueurs.
82	Radar plein.
-4151	Radar.
68	Secteurs de secteurs.
70	Secteurs éclatés en*3D.
69	Secteurs éclatés.
-4102	Secteurs en*3D.
5	Secteurs.
85	Surface*3D avec structure apparente.
83	Surface*3D.
90	Volume-Max-Min-Clôture.
91	Volume-Ouverture-Max-Min-Clôture.

Je n'ai eu que trois erreurs.
Avec "Ouverture-Max-Min-Clôture", "Volume-Max-Min-Clôture" et "Volume-Ouverture-Max-Min-Clôture".
[/Ajout]

A+

Bonjour LedZeppII,

merci pour cette réponse très complète.
J'ai essayé plusieurs syntaxes, mais j'ai toujours le même problème que précédemment. J'ai essayé avec :
Code:

1 2 3 4 [Reports]![Fiche_indicateur]!Graph61.Object.ChartType = une_constante [Reports]![Fiche_indicateur]!Graph61.ChartType = une_constante [Reports]![Fiche_indicateur]!Graph61.ChartObject.ChartType = une_constante
Quelle syntaxe avez-vous essayé ?

Merci d'avance,

Tifriis

Bonsoir,

J'ai fait tous mes tests dans un formulaire.
Un état me semble, par essence, moins dynamique car sa vocation principale est la sortie papier.
Je ne pense pas qu'il s'agisse d'un problème de syntaxe. Plutôt le fait qu'un état n'est pas prévu pour afficher un contenu dynamique.

Pour moi, il faut passer par le mode création, pour changer le type de graphique.
Code:

1 2 3 DoCmd.OpenReport "Fiche_indicateur", acDesign Reports("Fiche_indicateur").Graph61.Object.ChartType = une_constante DoCmd.OpenReport "Fiche_indicateur", acViewReport
Sinon, je me suis aperçu que si on passait en mode affichage page, puis en mode affichage état, le code fonctionnait.
C'est peut-être un bug (le fait que le code fonctionne).
Voici comment je l'exploite dans cet exemple (le type graphique est fourni par la liste lstChartType) :
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 Private Sub Commande0_Click() Const cRpt = "EtatRecapVentes1" ' Nom de l'état Dim iAttempt As Integer On Error GoTo ErrH Retry: Reports(cRpt).Graphique0.Object.ChartType = Me.lstChartType ExitSub: Exit Sub ErrH: Select Case Err.Number Case 2771 iAttempt = iAttempt + 1 If iAttempt = 1 Then ' Si 1ère erreur 2771 on bascule vers l'affichage Page, ' on revient à l'affichage Etat, puis on reessaie. DoCmd.OpenReport cRpt, acViewLayout DoCmd.OpenReport cRpt, acViewReport Resume Retry End If End Select MsgBox "Err. " & Err.Number & " : " & Err.Description Resume ExitSub End Sub
A+

30/11/2010, 10h06
Tifriis

Bonjour et merci pour votre réponse très complète.

J'ai essayé d'appliquer vos conseils, mais mes états me mettent dans tous mes états ....
J'ai donc décidé de passer par un formulaire (qui semble plus "dynamique").
En utilisant un formulaire, je n'ai plus aucun problème.

Merci encore,

Tifriis