Je lutte (trés fort si, si... ;-)) avec le contrôle MSCHART pour tenter de
donner un
peu de couleur à une petite application.
Ci-joint ma procédure pour "remplir" et afficher mon graphique (fin du
message).
Si une âme charitable pouvait me donné son avis car à prori (eh oui c'est
toujours comme
ça), ça fonctionne mais l'affichage prend pas mal de temps à être réalisé
(disons dans certains
cas 20 à 30 secondes) ce qui me parait un petit peu long. Cela dépend du
nombre de valeurs
que j'ai dans le contrôle Listview.
Ce contrôle Listview contient deux colonnes (une date, une valeur réelle).
Je voudrais faire un graphique avec les dates en X, les valeurs en Y le tout
synthétisé sous forme de courbe pour montrer la progression des valeurs dans
le temps.
Merci d'avance
Cordialement
Jeff
Charte du forum : http://users.skynet.be/mpfa/
**** CODE EXEMPLE ****
Dim Listcount As Long, lig As Long, col As Long
DoCmd.Hourglass True
Listcount = ListView.ListItems.Count
With MSChart
.ShowLegend = False
.RowCount = Listcount
.ColumnCount = Listcount
.Repaint = True
For col = 1 To Listcount
For lig = 1 To Listcount
.Column = col
.Row = lig
.Data = ListView.ListItems((listcount + 1) -
col).ListSubItems(1)
Next lig
Next col
End With
DoCmd.Hourglass False
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond
Bonjour Jeff.
ça galère on dirait.
pourquoi ne pars-tu pas d'une requête au lieu de partir d'une listView ? à mon avis il doit avoir son importance sur le temps d'affichage. tu as vu mon exemple sur mon site ? c'est instantané pour 10 séries. au cas où : http://access.seneque.free.fr/telecharger/mschart.zip
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"Jeff" a écrit dans le message de news:
Bonjour à tous
Je lutte (trés fort si, si... ;-)) avec le contrôle MSCHART pour tenter de donner un peu de couleur à une petite application.
Ci-joint ma procédure pour "remplir" et afficher mon graphique (fin du message).
Si une âme charitable pouvait me donné son avis car à prori (eh oui c'est toujours comme ça), ça fonctionne mais l'affichage prend pas mal de temps à être réalisé (disons dans certains cas 20 à 30 secondes) ce qui me parait un petit peu long. Cela dépend du nombre de valeurs que j'ai dans le contrôle Listview.
Ce contrôle Listview contient deux colonnes (une date, une valeur réelle). Je voudrais faire un graphique avec les dates en X, les valeurs en Y le tout
synthétisé sous forme de courbe pour montrer la progression des valeurs dans
le temps.
Merci d'avance
Cordialement
Jeff
Charte du forum : http://users.skynet.be/mpfa/
**** CODE EXEMPLE ****
Dim Listcount As Long, lig As Long, col As Long
DoCmd.Hourglass True Listcount = ListView.ListItems.Count With MSChart .ShowLegend = False .RowCount = Listcount .ColumnCount = Listcount .Repaint = True For col = 1 To Listcount For lig = 1 To Listcount .Column = col .Row = lig .Data = ListView.ListItems((listcount + 1) - col).ListSubItems(1) Next lig Next col End With DoCmd.Hourglass False
**** FIN CODE EXEMPLE ****
Bonjour Jeff.
ça galère on dirait.
pourquoi ne pars-tu pas d'une requête au lieu de partir d'une listView ? à
mon avis il doit avoir son importance sur le temps d'affichage.
tu as vu mon exemple sur mon site ? c'est instantané pour 10 séries.
au cas où : http://access.seneque.free.fr/telecharger/mschart.zip
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.
"Jeff" <jf@jf.com> a écrit dans le message de
news:efLV5ChdDHA.3876@TK2MSFTNGP11.phx.gbl...
Bonjour à tous
Je lutte (trés fort si, si... ;-)) avec le contrôle MSCHART pour tenter de
donner un
peu de couleur à une petite application.
Ci-joint ma procédure pour "remplir" et afficher mon graphique (fin du
message).
Si une âme charitable pouvait me donné son avis car à prori (eh oui c'est
toujours comme
ça), ça fonctionne mais l'affichage prend pas mal de temps à être réalisé
(disons dans certains
cas 20 à 30 secondes) ce qui me parait un petit peu long. Cela dépend du
nombre de valeurs
que j'ai dans le contrôle Listview.
Ce contrôle Listview contient deux colonnes (une date, une valeur réelle).
Je voudrais faire un graphique avec les dates en X, les valeurs en Y le
tout
synthétisé sous forme de courbe pour montrer la progression des valeurs
dans
le temps.
Merci d'avance
Cordialement
Jeff
Charte du forum : http://users.skynet.be/mpfa/
**** CODE EXEMPLE ****
Dim Listcount As Long, lig As Long, col As Long
DoCmd.Hourglass True
Listcount = ListView.ListItems.Count
With MSChart
.ShowLegend = False
.RowCount = Listcount
.ColumnCount = Listcount
.Repaint = True
For col = 1 To Listcount
For lig = 1 To Listcount
.Column = col
.Row = lig
.Data = ListView.ListItems((listcount + 1) -
col).ListSubItems(1)
Next lig
Next col
End With
DoCmd.Hourglass False
pourquoi ne pars-tu pas d'une requête au lieu de partir d'une listView ? à mon avis il doit avoir son importance sur le temps d'affichage. tu as vu mon exemple sur mon site ? c'est instantané pour 10 séries. au cas où : http://access.seneque.free.fr/telecharger/mschart.zip
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"Jeff" a écrit dans le message de news:
Bonjour à tous
Je lutte (trés fort si, si... ;-)) avec le contrôle MSCHART pour tenter de donner un peu de couleur à une petite application.
Ci-joint ma procédure pour "remplir" et afficher mon graphique (fin du message).
Si une âme charitable pouvait me donné son avis car à prori (eh oui c'est toujours comme ça), ça fonctionne mais l'affichage prend pas mal de temps à être réalisé (disons dans certains cas 20 à 30 secondes) ce qui me parait un petit peu long. Cela dépend du nombre de valeurs que j'ai dans le contrôle Listview.
Ce contrôle Listview contient deux colonnes (une date, une valeur réelle). Je voudrais faire un graphique avec les dates en X, les valeurs en Y le tout
synthétisé sous forme de courbe pour montrer la progression des valeurs dans
le temps.
Merci d'avance
Cordialement
Jeff
Charte du forum : http://users.skynet.be/mpfa/
**** CODE EXEMPLE ****
Dim Listcount As Long, lig As Long, col As Long
DoCmd.Hourglass True Listcount = ListView.ListItems.Count With MSChart .ShowLegend = False .RowCount = Listcount .ColumnCount = Listcount .Repaint = True For col = 1 To Listcount For lig = 1 To Listcount .Column = col .Row = lig .Data = ListView.ListItems((listcount + 1) - col).ListSubItems(1) Next lig Next col End With DoCmd.Hourglass False
**** FIN CODE EXEMPLE ****
Jeff
Cher Raymond,
Je te remercie pour ta réponse mais je viens de trouver (eh oui c'est souvent comme ça).
Je faisais une erreur dans le paramétrage du nombre de colonnes, de lignes et sur le remplissage.
Bref après correction, la nouvelle procédure (et là c'est instantané...)
Merci
Cordialement
Jeff
Charte du forum : http://users.skynet.be/mpfa/
**** CODE EXEMPLE ****
Dim Listcount As Long, lig As Long, col As Long
DoCmd.Hourglass True listcount = ListView.ListItems.Count With MSChart .ShowLegend = True .RowCount = listcount .ColumnCount = 1 .Repaint = True .Column = 1 For col = 1 To listcount .Row = col .Data = ListView.ListItems((listcount + 1) - col).ListSubItems(1) Next col End With DoCmd.Hourglass False
**** FIN CODE EXEMPLE **** "Raymond" a écrit dans le message de news:
Bonjour Jeff.
ça galère on dirait.
pourquoi ne pars-tu pas d'une requête au lieu de partir d'une listView ? à mon avis il doit avoir son importance sur le temps d'affichage. tu as vu mon exemple sur mon site ? c'est instantané pour 10 séries. au cas où : http://access.seneque.free.fr/telecharger/mschart.zip
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"Jeff" a écrit dans le message de news:
Bonjour à tous
Je lutte (trés fort si, si... ;-)) avec le contrôle MSCHART pour tenter de
donner un peu de couleur à une petite application.
Ci-joint ma procédure pour "remplir" et afficher mon graphique (fin du message).
Si une âme charitable pouvait me donné son avis car à prori (eh oui c'est
toujours comme ça), ça fonctionne mais l'affichage prend pas mal de temps à être réalisé
(disons dans certains cas 20 à 30 secondes) ce qui me parait un petit peu long. Cela dépend du nombre de valeurs que j'ai dans le contrôle Listview.
Ce contrôle Listview contient deux colonnes (une date, une valeur réelle).
Je voudrais faire un graphique avec les dates en X, les valeurs en Y le tout
synthétisé sous forme de courbe pour montrer la progression des valeurs dans
le temps.
Merci d'avance
Cordialement
Jeff
Charte du forum : http://users.skynet.be/mpfa/
**** CODE EXEMPLE ****
Dim Listcount As Long, lig As Long, col As Long
DoCmd.Hourglass True Listcount = ListView.ListItems.Count With MSChart .ShowLegend = False .RowCount = Listcount .ColumnCount = Listcount .Repaint = True For col = 1 To Listcount For lig = 1 To Listcount .Column = col .Row = lig .Data = ListView.ListItems((listcount + 1) - col).ListSubItems(1) Next lig Next col End With DoCmd.Hourglass False
**** FIN CODE EXEMPLE ****
Cher Raymond,
Je te remercie pour ta réponse mais je viens de trouver (eh oui c'est
souvent comme ça).
Je faisais une erreur dans le paramétrage du nombre de colonnes, de lignes
et sur le remplissage.
Bref après correction, la nouvelle procédure (et là c'est instantané...)
Merci
Cordialement
Jeff
Charte du forum : http://users.skynet.be/mpfa/
**** CODE EXEMPLE ****
Dim Listcount As Long, lig As Long, col As Long
DoCmd.Hourglass True
listcount = ListView.ListItems.Count
With MSChart
.ShowLegend = True
.RowCount = listcount
.ColumnCount = 1
.Repaint = True
.Column = 1
For col = 1 To listcount
.Row = col
.Data = ListView.ListItems((listcount + 1) -
col).ListSubItems(1)
Next col
End With
DoCmd.Hourglass False
**** FIN CODE EXEMPLE ****
"Raymond" <Raymond.seneque@free.fr> a écrit dans le message de
news:uDZMpShdDHA.3232@TK2MSFTNGP10.phx.gbl...
Bonjour Jeff.
ça galère on dirait.
pourquoi ne pars-tu pas d'une requête au lieu de partir d'une listView ? à
mon avis il doit avoir son importance sur le temps d'affichage.
tu as vu mon exemple sur mon site ? c'est instantané pour 10 séries.
au cas où : http://access.seneque.free.fr/telecharger/mschart.zip
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.
"Jeff" <jf@jf.com> a écrit dans le message de
news:efLV5ChdDHA.3876@TK2MSFTNGP11.phx.gbl...
Bonjour à tous
Je lutte (trés fort si, si... ;-)) avec le contrôle MSCHART pour tenter
de
donner un
peu de couleur à une petite application.
Ci-joint ma procédure pour "remplir" et afficher mon graphique (fin du
message).
Si une âme charitable pouvait me donné son avis car à prori (eh oui
c'est
toujours comme
ça), ça fonctionne mais l'affichage prend pas mal de temps à être
réalisé
(disons dans certains
cas 20 à 30 secondes) ce qui me parait un petit peu long. Cela dépend du
nombre de valeurs
que j'ai dans le contrôle Listview.
Ce contrôle Listview contient deux colonnes (une date, une valeur
réelle).
Je voudrais faire un graphique avec les dates en X, les valeurs en Y le
tout
synthétisé sous forme de courbe pour montrer la progression des valeurs
dans
le temps.
Merci d'avance
Cordialement
Jeff
Charte du forum : http://users.skynet.be/mpfa/
**** CODE EXEMPLE ****
Dim Listcount As Long, lig As Long, col As Long
DoCmd.Hourglass True
Listcount = ListView.ListItems.Count
With MSChart
.ShowLegend = False
.RowCount = Listcount
.ColumnCount = Listcount
.Repaint = True
For col = 1 To Listcount
For lig = 1 To Listcount
.Column = col
.Row = lig
.Data = ListView.ListItems((listcount + 1) -
col).ListSubItems(1)
Next lig
Next col
End With
DoCmd.Hourglass False
Je te remercie pour ta réponse mais je viens de trouver (eh oui c'est souvent comme ça).
Je faisais une erreur dans le paramétrage du nombre de colonnes, de lignes et sur le remplissage.
Bref après correction, la nouvelle procédure (et là c'est instantané...)
Merci
Cordialement
Jeff
Charte du forum : http://users.skynet.be/mpfa/
**** CODE EXEMPLE ****
Dim Listcount As Long, lig As Long, col As Long
DoCmd.Hourglass True listcount = ListView.ListItems.Count With MSChart .ShowLegend = True .RowCount = listcount .ColumnCount = 1 .Repaint = True .Column = 1 For col = 1 To listcount .Row = col .Data = ListView.ListItems((listcount + 1) - col).ListSubItems(1) Next col End With DoCmd.Hourglass False
**** FIN CODE EXEMPLE **** "Raymond" a écrit dans le message de news:
Bonjour Jeff.
ça galère on dirait.
pourquoi ne pars-tu pas d'une requête au lieu de partir d'une listView ? à mon avis il doit avoir son importance sur le temps d'affichage. tu as vu mon exemple sur mon site ? c'est instantané pour 10 séries. au cas où : http://access.seneque.free.fr/telecharger/mschart.zip
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"Jeff" a écrit dans le message de news:
Bonjour à tous
Je lutte (trés fort si, si... ;-)) avec le contrôle MSCHART pour tenter de
donner un peu de couleur à une petite application.
Ci-joint ma procédure pour "remplir" et afficher mon graphique (fin du message).
Si une âme charitable pouvait me donné son avis car à prori (eh oui c'est
toujours comme ça), ça fonctionne mais l'affichage prend pas mal de temps à être réalisé
(disons dans certains cas 20 à 30 secondes) ce qui me parait un petit peu long. Cela dépend du nombre de valeurs que j'ai dans le contrôle Listview.
Ce contrôle Listview contient deux colonnes (une date, une valeur réelle).
Je voudrais faire un graphique avec les dates en X, les valeurs en Y le tout
synthétisé sous forme de courbe pour montrer la progression des valeurs dans
le temps.
Merci d'avance
Cordialement
Jeff
Charte du forum : http://users.skynet.be/mpfa/
**** CODE EXEMPLE ****
Dim Listcount As Long, lig As Long, col As Long
DoCmd.Hourglass True Listcount = ListView.ListItems.Count With MSChart .ShowLegend = False .RowCount = Listcount .ColumnCount = Listcount .Repaint = True For col = 1 To Listcount For lig = 1 To Listcount .Column = col .Row = lig .Data = ListView.ListItems((listcount + 1) - col).ListSubItems(1) Next lig Next col End With DoCmd.Hourglass False
