Discussion :

[fralie64]

bonjour,
voici mes données (une variable N° d'ordre)

N° d'ordre
1
1
2
3
1
2

je voudrais créer un tableau croisé dynamique par programmation me donnant le résultat suivant :

N° d'ordre NB - N° d'ordre
1 3
2 2
3 1

en effet le n° d'ordre 1 apparait 3 fois le 2 2 fois et le 3 une fois.

voici le bout de programme me permettant de créer mon tableau dynamique :en ligne je mets le n° d'ordre et comme données la fonction count appliqué au numéro d'ordre mais le résultat est qu'au lieu d'appliquer la fonction count il applique la fonction somme.

Code :

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

1
2
3
4
5
6
 
   'variable en ligne  
   lesChamps.getByIndex(0).setPropertyValue("Orientation", com.sun.star.sheet.DataPilotFieldOrientation.ROW)
   'données
   lesChamps.getByIndex(0).setPropertyValue("Orientation", com.sun.star.sheet.DataPilotFieldOrientation.DATA)
   lesChamps.getByIndex(0).setPropertyValue("Function", com.sun.star.sheet.GeneralFunction.COUNT)

et j'obtiens

N° d'ordre Somme - N° d'ordre
1 3
2 4
3 3
Total Résultat 10

question subsidiaire :

si je veux à la fois la somme et le nombre je code ainsi

Code :

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

1
2
3
4
5
6
7
8
9
10
 
   'variable en ligne  
   lesChamps.getByIndex(0).setPropertyValue("Orientation", com.sun.star.sheet.DataPilotFieldOrientation.ROW)
   'données
 
   lesChamps.getByIndex(0).setPropertyValue("Orientation", com.sun.star.sheet.DataPilotFieldOrientation.DATA)
   lesChamps.getByIndex(0).setPropertyValue("Function", com.sun.star.sheet.GeneralFunction.SUM)
 
   lesChamps.getByIndex(0).setPropertyValue("Orientation", com.sun.star.sheet.DataPilotFieldOrientation.DATA)
   lesChamps.getByIndex(0).setPropertyValue("Function", com.sun.star.sheet.GeneralFunction.COUNT)

mais je n'ai que la somme (2 fois)

N° d'ordre Données
1 Somme - N° d'ordre 3
Somme - N° d'ordre 3
2 Somme - N° d'ordre 4
Somme - N° d'ordre 4
3 Somme - N° d'ordre 3
Somme - N° d'ordre 3
Total Somme - N° d'ordre 10
Total Somme - N° d'ordre 10

merci de m'aider.

[jurassic pork]

hello,
un truc du genre :

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
Sub TablePilote
   Dim document As Object, feuille As Object, zoneSource As Object, cellule As Object
   Dim tables As Object, descripteur As Object, lesChamps As Object
   Dim Champ1,Champ2,Champ3 As Object
 
   document = ThisComponent
   feuille = document.sheets(0)
   zoneSource = feuille.getCellRangeByName("A1:A15")
   tables = feuille.getDataPilotTables()
   descripteur = tables.createDataPilotDescriptor()
   descripteur.setSourceRange(zoneSource.RangeAddress)
   lesChamps = descripteur.getDataPilotFields()
   ' Page :
   ' unChamp = lesChamps.getByIndex(x)
   ' unChamp.setPropertyValue("Orientation", com.sun.star.sheet.DataPilotFieldOrientation.PAGE)
   ' unChamp.setPropertyValue("Function", com.sun.star.sheet.GeneralFunction.NONE)
   ' Colonne : 
   'unChamp = lesChamps.getByIndex(x)
   'unChamp.setPropertyValue("Orientation", com.sun.star.sheet.DataPilotFieldOrientation.COLUMN)
   'unChamp.setPropertyValue("Function", com.sun.star.sheet.GeneralFunction.NONE)
   ' Ligne :  N°Ordre
   Champ1 = lesChamps.getByIndex(0)
   Champ1.setPropertyValue("Orientation", com.sun.star.sheet.DataPilotFieldOrientation.ROW)
   Champ1.setPropertyValue("Function", com.sun.star.sheet.GeneralFunction.NONE)
   ' Données : N° Ordre
   Champ2 = lesChamps.getByIndex(0)
   Champ2.setPropertyValue("Orientation", com.sun.star.sheet.DataPilotFieldOrientation.DATA)
   Champ2.setPropertyValue("Function", com.sun.star.sheet.GeneralFunction.SUM )
   Champ3 = lesChamps.getByIndex(0)
   Champ3.setPropertyValue("Orientation", com.sun.star.sheet.DataPilotFieldOrientation.DATA)
   Champ3.setPropertyValue("Function",  com.sun.star.sheet.GeneralFunction.COUNT)
   ' cellule où est mise la table 
   cellule = feuille.getCellRangeByName("C1")
   If tables.hasByName("pilote") then tables.removeByName("pilote")
   tables.insertNewByName("pilote", cellule.CellAddress, descripteur)
 
End Sub

devrait faire l'affaire.

Ami calmant, J.P

[fralie64]

merci encore !