Discussion :

[lololoic]

Bonjour,

je suis sous access97, dans un formulaire j'ai un graphique qui est affiché et qui se met à jour en fonction des saisies de l'utilisateur.

je graph utilise une échelle de temps, pour pas trop me compliqué j'ai laissé les coches sur "automatique "
je définie le contenu du graph de cette manière :

Code :

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

1
2
3
4
    Graph.RowSource = "SELECT [TGraph],Sum([QteGraph]) AS [SommeDeQteGraph],Sum([QteGraphOBJ]) AS [SommeDeQteGraphOBJ] FROM [GraphLive] GROUP BY [TGraph];"
 
Repaint
Form_FormSaisie.Refresh

le pb c'est que l'échelle du graph ne se remet pas à jour
à moins de fermer et de ré-ouvrir le formulaire ....

donc :
- existe t'il une commande pour forcer la mise à jour (ou le rechargement) du graph (j'ai deja essayé repaint et refresh => marche pas )
- de définir par moi meme dans le code la nouvelle échelle à apliquer


merci

[micniv]

Bonjour,
essaie :

Code :

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

Graph.requery

[lololoic]

marche pas ....

l'echelle ne se met pas à jour .... ca courbe sort du graph ...

[micniv]

sinon alors tu testes ta valeur
Qd elle devient trop grande, tu changes manellemnt les valeurs min et max sur l'axe souhaité :

Pour indication :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim AxeDesY As Object
    Dim GraphObj As Object
 
    Set GraphObj = oChart
 
    Set AxeDesY = GraphObj.Object.Application.Chart.Axes(2)
 
    AxeDesY.MinimumScale = minScaleY
    AxeDesY.MinimumScaleIsAuto = False
    AxeDesY.MaximumScale = maxScaleY
    AxeDesY.MaximumScaleIsAuto = False
...

[lololoic]

super

en fait j'ai utilisé ca

Code :

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

Graph.Object.Application.Chart.Axes(1).MinimumScale = RatioDeb

Graph étant déjà défini pas besoint de dim ni de set
le graph se met à jour et instantanement en plus !!!

par contre comment à tu trouvé cette syntaxe, moi lorsque je tape
Graph.Object. il ne me propose plus rien en aide à la saisie ....

[micniv]

Pour les grahiques en général :
En cherchant pendant des heures sur le net
Ici c'est l'objet Chart qui importe.

[lololoic]

aurais tu des liens à me passer sur ce sujet?

il me reste un pb lors de la premire utilisation de

Code :

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

Graph.Object.Application.Chart.Axes(1).MinimumScale = RatioDeb

access plante !! aucun message d'erreur ...
on dirait qu'il rentre dans une boucle sans fin,si je met une msbox avant elle s'affiche en boucle ...

peut etre parceque le graph n'est pas encore affiché


je n'arrive pas à le déclarer avec le bout d code que tu m'a donné
le dim passe bien mais pas le set

[micniv]

Peut-être fais un test pour savoir si tu as un nb suffisant de points avnt de remodeler ton échelle

Code :

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

 oChart.SeriesCollection(i).Points.Count

où i est l'indice de la courbe (0 pour la première ...)

Un lien intéressant parmi d'autres http://peltiertech.com/Excel/Charts/index.html

Bonne journée