Création de graphique en VBA

Version imprimable

Bonjour,

Je suis très novice en VBA et je souhaite créer des graphiques en fonction d'un choix effectué dans une liste déroulante :ccool:

Mon problème en fait est que je pense ne pas avoir la bibliothèque correspondant a la génération de graphe sous VBA ... Voici mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Dim strSQL As String Dim Graphique2384 As Graph.Chart Dim strLieux As String 'Initialisation de la variable au contenu de la liste strLieux = Trim(Form_Formulaire1.ListeLieu.Value) 'Initialisation de la chaîne SQL strSQL = "SELECT [Prix], [ID]" strSQL = strSQL & vbCrLf & "FROM maRequete" 'Initialisation de la condition WHERE avec la catégorie strSQL = strSQL & vbCrLf & "WHERE ((([Lieu])=" & Chr(34) & strLieux & Chr(34) & "));" 'Affectation du controle Frame 'Me!fraCategories = 2 'Affectation de la nouvelle source et mise à jour de graphique Graphique2384.RowSource = strSQL Graphique2384.Requery
J'ai pris ce code à partir d'un tuto ;)
Seulement voilà quand je compile j'ai une erreur sur la seconde ligne quand je déclare mon graphique. C'est comme si il ne comprenait pas ce qu'était graphe.chart. Et si je supprime cette ligne forcément il ne comprned pas les deux dernières lignes ...
Je suppose donc qu'il me manque une bibliothèque ? Mais je ne trouve pas de bibliothèque graph pour 2010 ... :cry:

04/02/2013, 12h14
Invité

Bonjour

Regardes là :

http://loufab.developpez.com/tutoriels/access/msgraph1/
http://loufab.developpez.com/tutoriels/access/msgraph2/

Philippe
04/02/2013, 13h03
nenette69

Bonjour Philippe,

Merci pour ta réponse. J'ai déjà regardé ce tutoriel. Le lien vers la bibliothèque est pour office 2003, et j'avais peur que cela pose un problème avec ma version 2010 ...
Je vais quand même essayer :ccool:
04/02/2013, 13h41
nenette69

Re-Bonjour,

J'ai installé le fichier "Office 2003 Editions: VBA Language Reference for the Graph Object Model", cela m'a créé un dossier dans Microsoft Office avec un simple fichier HTML compilé ?
J'ai redemarré Office etc et j'ai toujours la même erreur.

Je pense à un truc, ne faut-il pas déclarer la bilbiothèque en début de fichier (je pense au language C/C++ par exemple ou il faut déclarer les classe au début ?)
04/02/2013, 14h41
loufab

Bonjour,
1) Pourquoi ton code ne fonctionne pas :
Tu déclares une variable de type chart mais tu ne l'initialise pas.

2) Dans le tuto le lien donne la doc du modèle graph. Donc inutile dans ton cas.

3) Pour ce que tu souhaites faire tu n'as pas besoin de passer par cette méthode. Ceci suffit :

Code:

me.MonGraph.rowsource = strSql

Où MonGraph est le nom du contrôle graphique.

4) Il faut cliquer sur le lien quand on a lu et pas l'inverse ;)

Cordialement,

Merci pour ta réponse Loufab mais je suis novice en la matière bien que j'ai des notions de programmation :oops:
J'ai initialisé comme tu me l'as conseillé :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Dim strSQL As String Dim Graphique2384 As Graph.Chart Me.Graphique2384.RowSource = strSQL Dim strLieux As String 'Initialisation de la variable au contenu de la liste 'strLieux = Me!ListeLieu.Text strLieux = Trim(Form_Formulaire1.ListeLieu.Value) 'Initialisation de la chaîne SQL strSQL = "SELECT [IDSV], [ID]" strSQL = strSQL & vbCrLf & "FROM MIMITESTIDSV" 'strSQL = strSQL & vbCrLf & "GROUP BY [Nom de catégorie]" 'Initialisation de la condition WHERE avec la catégorie strSQL = strSQL & vbCrLf & "WHERE ((([Examens_CT.Lieu])=" & Chr(34) & strLieux & Chr(34) & "));" 'Affectation du controle Frame 'Me!fraCategories = 2 'Affectation de la nouvelle source et mise à jour de graphique Graphique2384.RowSource = strSQL Graphique2384.Requery
Mais cela ne résoud pas mon problème. Le deboggage me met toujours sur la ligne 2 avec en message d'erreur : "Erreur de compilation. Type défini par l'utilisateur non défini".
Pour moi il s'agit quand même d'un problème de bibliothèque non reconnue non ?

04/02/2013, 17h04
loufab
Bonjour,

Non tu n'as pas initialisé la variable Graphique2384

Tu la déclare :

Code:

Dim Graphique2384 As Graph.Chart

Puis tu tentes de l'utiliser sans l'avoir initialisée

Code:

Me.Graphique2384.RowSource = strSQL

Si tu suis la première partie du tuto (chapitre IV et V) tu verras comment on fait :
Code:

1 2 Dim vlChart As Graph.Chart Set vlChart = Me.Graphique1.Object.Application.Chart
Mais je te le répète, ton cas d'utilisation peut se passer de cette déclaration, en écrivant directement ceci :

Code:

me.Nom_du_controle_graphique.rowsource = strSQL

Il te faut remplacer Nom_du_controle_graphique par le nom du contrôle graphique tel qu'il apparait dans ton formulaire.

Cordialement,

Ok je comprend un peu mieux.
J'ai decidé de suivre ton tuto depuis le début.
Je suis donc au chapitre III, je créé une zone de texte appelée txtTitre et un bouton nommé Commande2.
Je fais un évenement sur click de commande 2 avec le code :
Code:

1 2 3 4 5 6 7 8 9 Option Compare Database Private Sub Commande2_Click() Dim vlChart As Graph.Chart Set vlChart = Me.Graphique1.Object.Application.Chart vlChart.HasTitle = True vlChart.ChartTitle.Text = Me.txtTitre End Sub
Et je fais un essai comme préconisé.
Et la Bim, ma fameuse erreur "Erreur de compilation. Type défini par l'utilisateur non défini" sur la troisième ligne lors de la déclaration de vlChart.
Alors, y'a un truc qui m'échappe. Et je sais que je suis lourde etc etc etc mais j'ai vraiment besoin de comprendre ceci et d'arriver enfin a coder des graphes en VBA !!
Un peu de patience et je vais bien finir par y arriver :roll: Siouplait M'ssieur dame !

05/02/2013, 09h42
loufab

Graphique1 est bien le nom de ton objet graphique dans ton formulaire ?
En mode création, faire clic-droit sur l'objet graphique et regarder la propriété Nom.
05/02/2013, 10h36
nenette69

Oui il s'appelle bien Graphique1 :calim2:

J'ai fais des captures d'écran :

Graphique1 :
http://img15.hostingpics.net/thumbs/mini_94870630pb.jpg

Code avec erreur de compile :
http://img15.hostingpics.net/thumbs/mini_211265pb1.jpg

Zone de texte txtTitre :
http://img15.hostingpics.net/thumbs/mini_335175pb2.jpg

Bouton de commande Commande2 avec procédure évenement sur Click :
http://img15.hostingpics.net/thumbs/mini_928715pb3.jpg
05/02/2013, 10h56
nenette69

C'est bon j'ai trouvé ...
La bibliothèque n'était en effet pas cochée dans les références ... Sauf que j'ai mis 24h à trouver où on accédait a la liste des bibliothèques et c'était en fait sous VBA ...
Je suis pas si bête que ca et cela venait bien de là !!
Merci pour votre aide en tout cas et j'espère ne plus avoir à vous enquiquiner :ccool:
05/02/2013, 18h18
loufab

Si tu fais

Code:

me.graphique1.rowsource = vlsql

tu n'auras pas besoin de la référence ni de faire un set. Tu peux utiliser cette ligne telle quelle.

Par contre si tu souhaites manipuler le chart il te faut effectivement cocher la référence ou faire un createobject. ;)

Cordialement,
06/02/2013, 09h58
nenette69

A terme j'ai besoin que mon graphique n'affiche que certaines données en fonction de paramètre selectionnés dans une liste déroulante.

Du coup je suis passé au point IV de ton tuto, et j'ai une erreur qui s'affiche lorsque je clique sur le bouton de commande :oops:

Voici l'erreur :
http://free0.hiboox.com/vignettes/06...66cae414f2.jpg

j'ai C/C le code du tuto donc je ne comprends pas bien le problème ... :calim2:
06/02/2013, 15h43
loufab

Je rerere répète :

Si tu ne souhaites que modifier les données (les filtrer) tu n'a besoin que de la ligne suivante :

Code:

me.graphique1.rowsource = vlsql

Peux pas faire plus, c'est maintenant à toi de lire et d'appliquer. :aie:

Le tuto ne sert qu'au personne qui souhaite modifier les objets du graphiques. De plus tu ne peux pas passer directement au chapitre V comme ça, il faut créer la classe etc.
Si tu ne connais pas VBA je te déconseille fortement de te lancer là dedans.

En principe le texte des tutos doit être lu on ne peut pas faire du copier/coller bêtement. Pour le copier/coller il y a la faq (et encore il faut pouvoir adapter).
07/02/2013, 10h15
nenette69

Déjà, j'en suis au point IV et non V. De deux, je suis JUSTEMENT en train d'essayer de créer la classe et c'est ce point là déjà qui ne fonctionne pas. De trois, quand je dis que j'ai fais du copier/coller cela ne veut pas dire que je n'ai rien lu, mais plutot que le code que j'ai est censé fonctionner.
Non, je ne connais pas le VBA, mais je ne pense pas que tout le monde soit né en sachant coder en VBA, ils ont tous appris. Et je suis pas plus bête que les autres.
Dans ce cas je continu de galérer dans mon coin seule et on peut fermer les forums si on ne peut pas s'entraider. C'est sur, expliquer des choses basiques à des débutants c'est pas fun mais dans ce cas on ne répond pas :?

Surtout que j'ai réussi à faire ce que je voulais mais en modifiant carrément la requête car j'ai cette erreur sur le rowsource donc j'essaye de contourner le problème. Et comme je dois afficher 8 ou 10 graphiques j'ai besoin de créer une classe histoire de pas écrire 8 fois le même code.

Et d'un je n'ai jamais refusé d'expliquer à un débutant et de deux si tu lisais ce que je te poste tu aurais résolu ton problème depuis longtemps.

Je rappelle le besoin que tu as formulé :

Citation:

...je souhaite créer des graphiques en fonction d'un choix effectué dans une liste déroulante.

Donc tu ne souhaites intervenir QUE sur la SOURCE des données et NON dans les objets du graphique.

Donc tu appliques simplement la ligne que je t'ai fourni 3 fois.

Code:

me.graphique1.rowsource = vlsql

Je te répète que ce tuto est utile que lorsque tu souhaites MODIFIER LES OBJETS DU GRAPHIQUE tu n'en as AUCUNEMENT BESOIN lorsque tu veux filtrer des données.
Donc pas de référence à utiliser, pas de set à déclarer, pas de classe à utiliser.

Est-ce clair maintenant ?

Sinon je t'écris le code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim strSQL As String ' Dim Graphique2384 As Graph.Chart INUTILE !!!! 'Initialisation de la variable au contenu de la liste 'strLieux = 'Initialisation de la chaîne INUTILE !!! strSQL = "SELECT [Prix], [ID]" strSQL = strSQL & vbCrLf & " FROM maRequete" 'ET LES ESPACES !!!! 'Initialisation de la condition WHERE avec la catégorie strSQL = strSQL & vbCrLf & " WHERE ((([Lieu])=""" & Trim(Form_Formulaire1.ListeLieu.Value) & """));" 'ET LES ESPACES !!! 'Affectation de la nouvelle source et mise à jour de graphique me.graphique1.RowSource = strSQL 'Graphique2384.Requery INUTILE !!! le requery est implicite lors de la définition d'un Rowsource.
Tu crois que si j'avais le comportement que tu essais de me coller je perdrais mon temps à te répondre ?!!

07/02/2013, 11h10
loufab

Citation:

Envoyé par nenette69

Surtout que j'ai réussi à faire ce que je voulais mais en modifiant carrément la requête car j'ai cette erreur sur le rowsource donc j'essaye de contourner le problème. Et comme je dois afficher 8 ou 10 graphiques j'ai besoin de créer une classe histoire de pas écrire 8 fois le même code.

Tu seras quand même obligé d'écrire chaque cas de filtrage ! Donc une classe ne te servira à rien dans ce cas.
07/02/2013, 13h03
nenette69

Oui c'est clair :ccool:
Merci !

Et non je me rend compte des efforts faits pour me répondre, je me suis emportée un peu vite désolée.