Comment faire un graphique avec vba accessRésolu

Question

Bonjour,
je voudrai savoir comment faire un graphique avec vba.
J'explique mon probl&#232;me qui est le suivant:
j'ai fait un formulaire ou j'affiche sur des &#233;tiquettes des calculs pour des p&#233;riodes donn&#233;es:ex: p&#233;riode 1:    &#233;tiquette a... &#233;tiquette b ..  
      p&#233;riode  2:   &#233;tiquette d=..   &#233;tiquette e=... 
et   p&#233;riode 3:    &#233;tiquette g=..   ainsi de suite 

je suis d&#233;butant access donc ma question comment g&#233;n&#233;rer &#224; la suite du form automatiquement un tel graphique (pour chaque p&#233;riode en abcisse mettre les calculs dans les &#233;tiquettes en ordonn&#233;)
aucun tutoriel ne r&#233;pond  a mes questions &#224; savoir quelles sont les fonctions qui le permettent donc si vous pouvez m'aider 

Merci d'avance

penny.-

rvblog · Accepted Answer

Bon, il faut lire les messages! dans l'exemple que tu me montres, il y a une erreur justement! mauvais exemple :) Bon, c'est parti : Extrait de http://www.vbfrance.com/infomsg/ACCESS-2000-OU-97-0_695824.aspx, message du 23/03/2006 00:39, (ne tiens pas compte de ce qui est rayé): " 1./ Configuration du projet VB pour DAO 2./ Implémentation de l'accès à la base de données ~~3./ Conception/Réalisation des services 4./ Implémentation des services~~ 1./ Pour pouvoir accéder, à une base de données, à partir de VB VBA, via l'objet qui va bien (j'ai nommé DAO), il faut d'abord s'assurer que VB VBA sait que tu as besoin de cet objet. Donc, ~~avec un projet VB ouvert (feuille blanche, c'est mieux)~~, dans le Visual Basic Editor( [ALT]+[F11] ), vas dans le menu Projet>>Références. Là, une fenêtre s'ouvre, contenant une liste remplie de références disponibles. Cherches Microsoft DAO, tu vas peut-être trouver 2.5/3.51, 3.51, et 3.6 (si ce n'est pas le cas, contactes Dalida, et demandes lui pourquoi, et comment, 9026 http://www.vbfrance.com/auteurdetail.aspx?ID=9026). Coches la 3.6 , et appuie sur le bouton OK. Ca y est, VB VBA sait que tu veux pouvoir accéder à une base de données, via l'objet DAO. 2./On va maintenant dire, à DAO, que l'on veut ouvrir la base de données. Ne t'attends pas à voir des tableaux et des fenêtres ~~tels que ce que te montrait le Gestionnaire de Données, ou ton Assistant~~, tu ne verras qu'un appel de fonction, et une variable qui te diront que la base est ouverte." Maintenant, extrait de http://www.vbfrance.com/infomsg/INSERER-DANS-TABLE-RECORDSET-0_702471.aspx, message du 30/03/2006 17:27:11 (ne tiens pas compte de ce qui est rayé): " Dim dbBaseCible As DAO.Database Dim rsJeuCible As DAO.Recordset ~~Dim fldTempSource As ADODB.Field~~ ~~Après avoir ouvert la connexion ADODB, mais avant le While Not :~~ 'affecte une référence à la base courante Set dbBaseCible = CurrentDb 'ouvre la nouvelle table Access, à adapter Set rsJeuCible = dbBaseCible.OpenRecordset("TableCible") ~~Dans la boucle existante :~~ ~~'tant qu'il y a des réponses While Not rsJeu.EOF~~ 'ajoute un enregistrement temporaire dans le jeu cible DAO rsJeuCible.AddNew ~~'pour chaque champ du jeu source~~ ~~ADODB~~ ~~'il faut impérativement qu'ils aient les mêmes nom, et types For each fldTempSource In rsJeu.Fields~~ ~~'affecte la valeur du champ source à la valeur du champ cible rsJeuCible.Fields(fldTempSource.Name).Value = fldTempSource.Value~~ 'affecte la valeur du champ source à la valeur du champ cible,à adapter rsJeuCible.Fields("NomChamp").Value = 12 ~~'champ suivant Next fldTempSource~~ 'valide l'enregistrement temporaire rsJeuCible.Update 'avance d'une réponse rsJeu.MoveNext ~~'continue Wend~~ 'ferme le jeu et libère la référence rsJeuCible.Close Set rsJeuCible = Nothing 'ferme la base et libère la référence ~~dbBaseCible.Close~~ Set dbBaseCible = Nothing " C'est pas du "sur mesure" ça? Bon, ça c'est le nécessaire pour ajouter une ligne dans une table (et d'ailleurs, je n'ai mis qu'un champ). Donc, en résumé, une fois la base ouverte, et le jeu d'enregistrements ouvert (Recordset), pour ajouter 1 ligne, il faut : - faire un AddNew - renseigner les Fields("xxx").value ' avec valeurs adaptées au type du champ - faire un Update PS : Attention, trop manger du VB rend pas trop équilibré ! à+ rvblogn^{Je veux ton bien... et je l'aurais}

rvblog · Answer

Bonsoir Penny, alors, où en es-tu? L'enregistreur de macro a-t-il parlé? Tu auras peut-être noté, qu'en Excel, c'est plus facile, il suffit de faire pointer les séries du graphe sur des plages de référence de tableau. Mais en Access, il te suffit d'organiser virtuellement (en mémoire donc) un tableau, et ça se passe très bien. C'est moins ergonomique pour les séries, mais, quand on stocke en mémoire, sur de nombreuses nombreuses données, l'affichage est quand même plus avantageux. à+ rvblogn^{Je veux ton bien... et je l'aurais}

penny05 · Answer

Bonjour!
J'ai regard&#233; comment ca marchait sur excel pour m'en inspirer et voir comment ca marchait au niveau des graphes, c'est une bonne mani&#232;re de voir comment cela se fait.
Donc j'ai commenc&#233; &#224; voir sur access mais j'ai l'impression que le mschart n'est pas actif (erreur de syntaxe!?). Ensuite il faut je pense charg&#233; un tableau mais &#233;tant donn&#233;e que mes valeurs sont calul&#233;s dois je creer une table pour les mettre?
Autant de questions que je me pose mais je te laisse r&#233;pondre d'abord &#224; celles ci!

A plus.

rvblog · Answer

Salut penny, mets un petit exemple de ton code. Ce que je t'ai conseillé avec l'enregistreur de macros n'est qu'une facilité de lecture du modèle objet, et de son utilisation. Par contre, tu as dû te rendre compte que la syntaxe pour accéder aux mêmes propriétés/méthodes n'est pas toujours la même, et surtout, si tu as utilisé une page de graphique, il faut transposer le code, car dans Access, le graphique est contenu, et situé sur formulaire. Et enfin, tu l'as compris, il n'est pas question dans Access de pointer vers des séries avec l'ergonomie d'Excel! C'est pour ça qu'il faut mettre un petit exemple. Maintenant, tu es peut-être en train de me dire que tu n'arrives pas à situer le contrôle sur ton UserForm? Si c'est ça, dis-le. Pour tes valeurs, tu peux te contenter d'un tableau en mémoire. De plus, des valeurs calculées, ce n'est jamais bien utile de les stocker (puisqu'elles sont calculables, il vaut mieux stocker ce qui sert à les calculer) à+ rvblogn^{Je veux ton bien... et je l'aurais}

penny05 · Answer

C'est bien ca sur le formulaire j'ai cherch&#233; sur les autres controles mais je ne trouve pas celui sp&#233;cifi&#233; "controle MS chart" qu'il faut plac&#233; sur le formulaire.

Ensuite une fois qu'on stocke sur des tableaux virtuels les donn&#233;es commetnles sp&#233;cifier une table en abcisse l'autre en odro par exemple....
A+

penny05 · Answer

enbricolant un peu j'ai ca mais tellement je trouve ca foireux que j'ai meme pas envi de compiler!!



   Dim Graph As Chart


   
   With ActiveWorkbook.Worksheets(1)
   'nom des diff&#233;rentes tables
      .Range("A1") = "p&#233;riodes"
      .Range("B1") = "MTBUR"
      .Range("C1") = "MTBF"
   'remplissage de la premiere table
      .Range("A2") = "p&#233;riode M-12"
      .Range("A3") = "p&#233;riode M-6"
      .Range("A4") = "p&#233;riode M"
      
   'remplissage de la table MTBUR
      .Range("B2") = "Round((sommeh_12/ somme_ur_12), 3)"
      .Range("B3") = "Round((sommeh_6 / somme_ur_6), 3)"
      .Range("B4") = "Round((sommeh / somme_ur), 3)"
      
   'remplissage de la table MTBF
      .Range("C2") = "Round((sommeh_12 / somme_rmv_12), 3)"
      .Range("C3") = "Round((sommeh_6 / somme_rmv_6), 3)"
      .Range("C4") = "Round((sommeh / somme_rmv), 3)"
  
 
      .Range("A:C").Columns.AutoFit
   End With
   Set Graph = Charts.Add
   Graph.SetSourceData Worksheets(1).Range("A1:C4")
End Sub

et pour commencer il ne veut pas de mon graph as chart .
Que faire y'a t'il une autre alternative?

A+

rvblog · Answer

Pour le contrôle, tu cherches bien : "Microsoft Chart Control 6.0", cette chaine là, pas une autre? cherches aussi si tu as "%windir%\System32\MSCHRT20.OCX" sinon, il y a peut-être : "Graphique Microsoft Office 9.0", mais je ne crois pas que ce soit le même. sinon, il y en a dans le commerce, mais il y en a surtout dans domaine public. rvblogn^{Je veux ton bien... et je l'aurais}

penny05 · Answer

j'ai cherch&#233; et je ne trouve que 
Graphique Microsoft Office  9.0 et microsoft directanimation structured graphics le chart control je vois pas .


Est ce normal ou suivant les versions dont on dispose?


si je ne l'ai pas comment faire?

rvblog · Answer

vérifies dans Excel. et sur ton disque, il n'y est pas? rvblogn^{Je veux ton bien... et je l'aurais}

penny05 · Answer

Non
sur excel j'ai que le SAP chart control 
et sur le disque quand j'effectue une recherche j'ai tout et n'importe quoi sauf ca 
Dois je l'installer sur le pc ce composant ou le microsoft graphique office peut il faire l'affaire.

rvblog · Answer

Bon, bon, essaies celui d'Office alors. Recommences la macro avec Excel pour t'aider. à+ rvblogn^{Je veux ton bien... et je l'aurais}

penny05 · Answer

sur excel le microsoft graphique marche j'ai vu le code vb.
comment le faire sur access 
ActiveSheet.OLEObjects.Add(ClassType:="MSGraph.Chart.8", Link:=False, _
 DisplayAsIcon:=False).Activate
    
sauf que jai une erreur comme quoi variable active sheet non d&#233;fini.

rvblog · Answer

D'ac, pas d' ActiveSheet dans Access, on est d'accord? (pas de feuille de calcul dans Access) pas d'OLEObject dans UserForm. je n'ai pas encore trouvé comment rajouter un contrôle dynamiquement (je cherche, si c'est nécessaire). Dans autres contrôles, cherches "Graphique Microsoft Graph 2000" rvblogn^{Je veux ton bien... et je l'aurais}

penny05 · Answer

D&#233;sol&#233; de te dire qu'il ya pas !
Alternative?

rvblog · Answer

Cherches MSGraph.Chart.8 dans Regedit. Que trouves-tu comme valeur par défaut pour la clé parente ({00020800-0000-0000-C000-000000000046})? C'est cette valeur que tu devrais voir dans autres contrôles. Sinon, cherches MSChart20Lib.MSChart.2, ou MSChart, ou Chart. Et dis-moi ce que tu trouves. rvblogn^{Je veux ton bien... et je l'aurais}

penny05 · Answer

Ouh la qu'est ce que regedit ou je trouve ca pour chercher msgraph.chart.8?? dans autres controles? si tu peux etre plus clair stp.

rvblog · Answer

En fait, je l'ai déjà expliqué à plusieurs membres, et je ne me rappelle jamais à qui. Donc, http://www.vbfrance.com/infomsg/CREER-COMBOBOX-AUTOMATIQUEMENT-0_699158.aspx, message de 12:31, il y a tout! allez, courage, un peu de nerf que diable! rvblogn^{Je veux ton bien... et je l'aurais}

penny05 · Answer

c'est bon j'ai trouv&#233; la valeur par d&#233;faut de mschart 8 et la valeur par d&#233;faut est :
{00020803-0000-0000-C000-000000000046}
je le change par celui ke tu m'as donn&#233;?

rvblog · Answer

non, non rvblogn^{Je veux ton bien... et je l'aurais}

rvblog · Answer

si tu cliques, dans l'arborescence de gauche, cette clé, dans la lsite de droite apparait un élément nommé "par défaut" qui possède une valeur. c'est cette valeur qu'il faut chercher dans "autres contrôles" rvblogn^{Je veux ton bien... et je l'aurais}

rvblog · Answer

au temps pour moi, tu ne devrais pas trouver cette valeur. bon, c'est pas perdu, ceci prouve que tu as le MSChart. rvblogn^{Je veux ton bien... et je l'aurais}

rvblog · Answer

Y a des fois, j'te jure! Dans Access, menu Insertion>>Graphique, et il y là un assistant! rvblogn^{Je veux ton bien... et je l'aurais}

rvblog · Answer

tu n'es pas obligé d'aller au bout de l'assistant (donc pas obligé d'avoir une table). Tu le rattraperas en code après! rvblogn^{Je veux ton bien... et je l'aurais}

penny05 · Answer

si je comprend bien c'est cette valeur qu'il faut cherch&#233; dans autres controles mais comment moi j'ai une liste d'&#233;l&#233;ments je pige rien &#224; ce qu'il faut faire d&#233;sol&#233; d'&#234;tre une merde en info si tu peux m'expliquer comment faut faire stp!

rvblog · Answer

Tu n'avais peut-être pas lu le post précédent. sinon, si ta liste autres contrôles est trop remplie pour tout afficher, en haut et en bas de la liste se trouvent des petites flêches noires. Survoles les de ta souris, et ne bouges plus, la liste défile. Enlève la souris et la liste s'arrête. Cliques un contrôle, et un petit marteau apparait, et t'invite à lui faire voir ou tu veux dessiner le contrôle (sur un formulaire ouvert donc). alors? rvblogn^{Je veux ton bien... et je l'aurais}

penny05 · Answer

Si j'ai lu.
Etape par &#233;tape,
j'ai cr&#233;e comme tu m'as conseill&#233; uun graphique a laide de l'assistant en faisant click droit j'ai bien vu que sur la classe objet yavait MSGraph.Chart.8.
Puis maintenant je te dis que sur les autres controles j'ai regard&#233; minutieusement je ne trouve pas le msgraph.chart.8 que dois je faire concr&#233;tement apr&#233;s avoir cr&#233;er un graph avec l'assistant j'ai essay&#233; de faire comme sur excel et voir la macro et copier le code mais je voi pa ou r&#233;cuperer le code?

rvblog · Answer

bon, pour ce soir, essaies avec une table Access, pour l'instant, c'est ce qu'il y a de plus facile avec l'assistant. dac? si je trouve une meilleur solution, je te préviendrais. à+ rvblogn^{Je veux ton bien... et je l'aurais}

penny05 · Answer

Salut,
juste une question comment avec une table access que tu cr&#233;e avec vb tu peu remplir les champs enregistremnt par enregistrement comme ca je pourrai y affecter mes valeurs calcul&#233;es.

rvblog · Answer

Salut penny, cherches DAO sur le moteur de recherche du site, ou vas les lire mes anciens messages à d'autres membres, tu devrais trouver pas mal de chose dans ce domaine. PS: lire mes anciens messages = dans la barre d'outils qui se trouve au-dessus de cette réponse, à droite se trouve une icone 268 msg, cliques, et navigue dans les quelques pages, tu trouveras des messages qui parlent soit d'Access, soit de DAO, soit d'ADO. Pardon si je suis moins disponible, mais j'ai aussi un métier, avec du boulot qui va avec, mais on se débrouille, j'ai juste un coup de bourre! à+ rvblogn^{Je veux ton bien... et je l'aurais}

penny05 · Answer

Pas de soucis t'inquiete ! je suis aussi entre le four et le moulin lol!
a+ merci

penny05 · Answer

j'ai vu que l'on pouvait faire une requete:
sql = "insert into rendez_vous(nom,prenom,[date rendezvous],[heure rendez])values(me!texte0,'me!Texte2
,'me!Texte4
,me!Texte6);"

qui remplit la premiere ligne si je veu aller jusqu'a la 3ieme quelle instruction utiliser pour passer de la premiere a la deuxieme et ainsi de suite

Merci.

rvblog · Answer

au fait, j'ai oublié, et toi, tu ne devrais pas oublié! : tu aurais dû changer de sujet pour ton message !!! comme le dis très bien Julien : Pensez: Moteur de Recherche, Réponse Acceptée rvblogn^{Je veux ton bien... et je l'aurais}

rvblog · Answer

et ne tiens pas compte de la ligne : 'avance d'une réponse rsJeu.MoveNext rvblogn^{Je veux ton bien... et je l'aurais}

penny05 · Answer

S&#233;rieux pourquoi tu crees pas ton propre biz parce que t'es un g&#233;nie sans d&#233;conner!!! ca marche tr&#233;s bien le remplissage du tableau....


Allez soyons s&#233;rieux ...


Revenon s sur mon probl&#232;me de graphique une fois la table cr&#233;e puis je tracer par vb les &#233;lements qui y sont?


qu'en pense tu vbmaster...?

rvblog · Answer

ce dont tu ne te doutes pas, c'est que je suis en train de vider ton compte en banque pendant que tu postes tes messages :) Il est là mon biz! bon, pour ton graphique, je pense bien que oui, sinon pourquoi je te ferais faire tout ça? normalement, avec l'assitant (qui bosse pour moi, faut savoir déléguer un peu), tu devrais arriver à mettre un graphique sur ton UserForm, et ce graphique pointera vers la table des valeurs calculées. Ensuite, quand tu changeras les valeurs contenues dans cette table, le graphique les représentera comme il sait le faire (au pire, il faudra le raffraichir, mais chaque chose en son temps). Bien sûr, pour qu'il reflète au mieux ce que tu souhaites lui faire refléter (pour qu'il te réflechisse quoi), il faut que ta table est une forme adaptée à ce qu'il sait manipuler. Donc, mobilises tes neuronnes (y compris ceux qui sont partis à la manif), vas là et rappelles quand tu en es là. à+ rvblogn^{Je veux ton bien... et je l'aurais}

penny05 · Answer

Merci merci! ca marche ca se g&#233;n&#233;re automatiquement lorsqu'on charge le form.
Maintenant que j'ai une petite derniere question je vais enfin respecter la proc&#233;dure et me diriger vers un nouveau post!!!

:)
penny
thanks

rvblog · Answer

et merci d'accepter la(les) réponse(s) rvblogn^{Je veux ton bien... et je l'aurais}

youde29 · Answer

Ya soma !

Comment faire un graphique avec vba access

38 réponses

Discussions similaires