inserer donnée dans ChartSpace

[ThomasR]

Bonsoir le forum,

j'ai créé un graphique ChartSpace1 (dans un userform) mais je ne sais pas comment valoriser ces données depuis des variable issu de boucle à l'initializ de l'usf??

exemple

donnée1
donnée2
donnée3
dénnée4

j'aimerai faire un truck qui voudrait dire ca :

Me.ChartSpace1.donnée1 = i

je n'ai rien trouvé dans la recherche.

D'avance merci

 

[albert]

bonjour Thomas®, le forum,

si tu fais des recherches dans les archives de l'ancien forum, tu trouveras de la matière.
Pour ma part, j'ai abandonné ce système, il est trop compliqué à manier.
un exemple donné pa Mytå, qui fonctionne :

Lien supprimé

albert

 

[ThomasR]

Bonjour albert, le forum,

Merci pour ce lien qui m'a échapé , je suis sous excel 2003, et cette exemple ne fonctionne pas je n'ai pas l'objet requi.

je vous joint un exemple de ce que je veux faire.

ce que je souaite faire est plus facil car moi je ne cherche pas a récup les données d'une feuille.

dans ma macro j'ai des boucles qui me permet de compter des statuts.

je cherche comment dire la valeur de la catégorie 'en cours' = i

D'avance merci
Thomas®



[file name=graphique_20050710140758.zip size=9483]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/graphique_20050710140758.zip[/file]

 

[MichelXld]

bonjour Thomas , bonjour Albert

la démo de Myta fonctionne chez moi

Thomas , je ne suis pas sur d'avoir bien compris ta demande : quand j'ouvre ton classeur j'ai un message d'erreur 'object requis'

tu peux essayer cet exemple pour alimenter un chartSpace dans un userForm
( testé avec Excel2002 & Microsoft Office Chart 9.0 )


Option Base 1

Private Sub UserForm_Initialize()
Dim Tableau(10), Plage(10)
Dim Cht As OWC.WCChart
Dim C
Dim i As Byte

For i = 1 To 10
Plage(i) = Int((50 * Rnd) + 1) ' ordonnées
Next i

For i = 1 To 10
Tableau(i) = i 'abscisses
Next i

Set C = ChartSpace1.Constants
Set Cht = ChartSpace1.Charts.Add

With Cht
.Type = C.chChartTypeSmoothLineStacked
.SetData C.chDimCategories, C.chDataLiteral, Tableau
.SeriesCollection(0).SetData C.chDimValues, C.chDataLiteral, Plage
End With

End Sub


bonne soiree
MichelXld