Discussion :

[abennis]

Bonjour

J'essaye de générer un graphe tout simple, dans une userform
Le graphe c un ptit graphe avec une barre qui dépend d'une seule et unique valeur.
Le problème c'est que cette valeur n'est stockée dans aucune feuille Excel. C'est en fait une valeur que je calcule dans mon code VBA.
Par conséquent le graphe n'est pas censé se mettre à jour automatiquement, il est "statique" en quelque sorte, et je veux pouvoir le mettre à jour par du code, au moment approprié.

Voici à quoi mon code ressemble

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
    Dim rendement as Double
 
For i = 1 To nbreGraphes       ' En fait j'ai plusieurs graphes identiques à générer, d'où la boucle
    rendement = ....................... ' Calcul complexe qui me permet de calculer mon rendement
 
    ChartSpaceRendement.Charts.Add
    With ChartSpaceRendement.Charts(i - 1)
        .Type = chChartTypeBarClustered
        .Name = "Toto" 
        .SeriesCollection.Add
        .SeriesCollection(1).SetData chDimValues, 0, rendement ' C'est ma ligne  fausse
    End With

en fait je ne sais pas utiliser cette fonction setData, et j'ai pas réussi à comprendre l'aide

bref je sais pas si je suis clair, en gros j'aimerais représenter la valeur de ma variable "rendement" dans le graphe

apparemment j'ai cru comprendre que le 3eme parametre de la fonction setData devait être une adresse de cellule.

Est ce que ca signifie que je suis obligé de d'abord stocker ma variable ds une cellule ? le cas échéant que faire exactement ?

si quelqu'un pouvait m'éclaircir un peu les choses, ça serait très cool

[SilkyRoad]

bonsoir


Tu peux utiliser cet exemple simplifié:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Option Explicit
 
'Nota:
'Utilisez l'objet WCChart pour la bibliothèque OWC9.
'Dim Cht As WCChart
 
'Bibliothèques OWC10 et OWC11
Dim Cht As ChChart
Dim C
 
 
 
Private Sub UserForm_Initialize()
    Dim x As Byte
 
    Set C = ChartSpace1.Constants
    'Ajoute le graphique
    Set Cht = ChartSpace1.Charts.Add
 
End Sub
 
 
 
Private Sub CommandButton1_Click()
    Dim TabOrdonnees(1 To 1), TabAbscisses(1 To 1)
    Dim Rendement As Double
    Dim i As Integer
 
    Rendement = 458
    TabAbscisses(1) = "Le rendement"
    TabOrdonnees(1) = Rendement
    Cht.Type = C.chChartTypeBarClustered
 
    'abscisses
    Cht.SetData C.chDimCategories, C.chDataLiteral, TabAbscisses
    'ordonnées
    Cht.SeriesCollection(0).SetData C.chDimValues, C.chDataLiteral, TabOrdonnees
 
End Sub

Et un exemple complet:

http://excel.developpez.com/sources/...orm#ChartSpace

Nota:
En fonction de la version d'Office et owc installée sur le poste, il vous faudra peut être préalablement supprimer la référence manquance et replacer le bon contrôle dans l'UserForm.



bonne soirée
michel