Discussion :

[flying.d]

Bonjour à tous,

Peu expérimenté en VBA, et autodidacte, je tatonne pour créer un graph dans un userform VBA pour Excel à l'aide des composants OWC10.

J'ai rentré les données du graphe et fait sa mise en forme manuellement directement dans VBE mais je souhaiterais que certains points du graphe soit modifiés par une action utilisateur sur le formulaire Userform.

J'ai essayé un code du genre:

Code :

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

1
2
3
4
5
Dim Cht As ChChart
 
Set Cht = Me.ChartSpace1.Charts(0)
 
Cht.SeriesCollection(5).SetData chDimCategories, 0, ActiveWorkbook.Sheets(1).Cells(15, 23)

Mais ca ne fonctionne pas.

Je recherche le bon code ou un tutorial pour utiliser les OWC chart.

Tous les tutos montre comment créer le graphe de 0 mais je trouve un peu compliqué et peu commande pour le mettre en forme.

Merci de votre aide.

Damien

[kiki29]

Salut,voir http://silkyroad.developpez.com/vba/owcpivottable/

[flying.d]

Heu, je vois pas où trouver ma réponse dans ton lien Kiki29, c'est pas un tableau croisé dynamique que je veux faire, c'est modifier les valeurs de certains points d'un chart dans un Userform.

A+
Damein

[kiki29]

Re,dans ce cas sur http://silkyroad.developpez.com/VBA/...Form/#LIII-B-1

[flyingdiablo]

Merci à tous,



Voilà la solution pour ceux qui voudraient faire la même chose:
En fait les dimensions à saisir dépendent du type de graphique, pour mon cas c'est Xvalues et Yvalues à remplir et aparement il faut des valeurs pour toutes les lignes du tableau de données même si elles valent 0. Dans le cas ci-dessous je place un seul point:

Code :

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

1
2
3
4
5
6
7
CGZF = ActiveSheet.Cells(14, 24).Value
MassZF = ActiveSheet.Cells(14, 23).Value
 With Cht.SeriesCollection(7)
    .SetData chDimXValues, chDataLiteral, Array(CGZF, 0, 0, 0, 0, 0)
    .SetData chDimYValues, chDataLiteral, Array(MassZF, 0, 0, 0, 0, 0)
 
End With