Discussion :

[madvic]

Dans cette FAQ
http://openoffice-libreoffice.develo...r-un-graphique

Pour moi, la méthode pour modifier la plage source n'existe pas (ou plus : LO ou OP ?)

'Spécifie la nouvelle plage de données source
oChart.ChartRangeAddress = "Feuille1.$A$1:.$B25"

J'ai trouvé le champ UsedRangeRepresentations dans lequel est stocké en tableau, les entêtes et plage de données.

Code :

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

oChart.UsedRangeRepresentations

Le souci c'est que je n'arrive pas à écrire dans ce champ..

Y a t-il une méthode que j'ai loupé ?

[madvic]

Enfin compris :

Mes données était videz, je ne sais pourquoi, donc :

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
Dim ch As Object, lesZones As Variant, adrZ As Object
maFeuille = ThisComponent.Sheets.getByPosition(2)
' on suppose que la feuille comporte un seul diagramme !
lesZones = maFeuille.Charts(0).Ranges
 
' Si la zone n'est pas vide on la modifie
If UBound(lesZones) >= 0  Then
    adrZ = lesZones(0) ' dans cet exemple on a une seule zone
    adrZ.StartRow = 0
    adrZ.StartColumn = 3
    adrZ.EndRow = 12  ' réduire la zone
    adrZ.EndColumn = 58
    lesZones(0) = adrZ
    fTCD.Charts(0).Ranges = lesZones()
Else
'Sinon on la créée
    LaZone = maFeuille.getCellRangeByPosition(0, 3, 12, 58)
    maFeuille.Charts(0).setRanges( Array(LaZone.getRangeAddress()) )
EndIf