tcd en vba fonction de données

Version imprimable

27/01/2010, 11h19
kidone

tcd en vba fonction de données

Bonjour,
un petit probleme, de creation de TCD en VBA.
lorsque je construis mon tableau croisé dynamique en VBA
ma premiere ligne de données se mets en fonction nombre au lieu de somme

je me suis aidé des exemples sur le site et
quand j'essaye la commande :

Code:

activesheet.PivotTables("TCDAnalyse").PivotFields("Potentiel").Function = xlSum

j'ai un message d'erreur
Impossible de definir la proprieté function de la classe Pivotfield

si quelqu'un peut m'aider
merci d'avance
27/01/2010, 11h48
Fvandermeulen

Salut,
Sauf erreur de ma part, le nom du champ est le nom "strict"
Exemple, tu dis qu'il est en Count, je pense donc qu'il faut écrire:

Code:

ActiveSheet.PivotTables("TCDAnalyse").PivotFields("Count of Potentiel").Function = xlSum

Comme on n'a pas le reste du code, difficile d'être certain mais teste ça, ensuite on peut voir comment contourner (normalement en renomant le champ d'une manière générique)

A+

fonctionne pas

bonjour,
merci pour la réponse, mais cela ne fonctionne pas

voila le code
ce n'est pas le programme final, je cherche a tester la macro récuperer sur le web avant de l'adapter a mon prog

Code:

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Sub TableauCroiséDynamique()
 
Dim CacheTCD As PivotCache
Dim TCD As PivotTable
Dim feuille As Worksheet
On Error Resume Next
Sheets("Mandats").DrawingObjects("TextBoxWait").Visible = True
On Error GoTo 0
Application.ScreenUpdating = False
 
 
'supprimer la feuille analyse si elle existe déjà
On Error Resume Next
Application.DisplayAlerts = False
Sheets("Analyse").Delete
On Error GoTo 0
 
'Creer un tableau croisé dynamique
Set CacheTCD = ActiveWorkbook.PivotCaches.Add( _
SourceType:=xlDatabase, _
SourceData:=Sheets("Graph").Range("B1:E2"))
 
 
'ajout de la feuille Analyse
Worksheets.Add
ActiveSheet.Name = "Analyse"
 
'Creer un TCD à partir du cash
For Each feuille In Worksheets
If feuille.Name = "Analyse" Then
feuille.Activate
 
Set TCD = CacheTCD.CreatePivotTable( _
tabledestination:=Sheets("Analyse").Range("A1"), _
tablename:="TCDAnalyse")
End If
Next feuille
 
 
 
With TCD
'Ajout des champs
.PivotFields("Potentiel").Orientation = xlDataField
 
.PivotFields("ca 2008").Orientation = xlDataField
 
.PivotFields("ca 2009 ").Orientation = xlDataField
 
.PivotFields("budget 2010").Orientation = xlDataField
 
End With
 
Application.ScreenUpdating = True
 
 
Sheets("Analyse").PivotTables("TCDAnalyse").PivotFields("count of Potentiel").Function = xlSum
 
End Sub

sinon une autre question, comment etre sur qu'a la creation il prendra la fonction somme.

merci d'avance pour vos reponses

27/01/2010, 12h49
Fvandermeulen

Re,
Avant toute chose, peux tu délimiter le code dans ton post, pur ça, sélectionne le texte correspondant et click sur l'icone #
C'est plus facile à lire.

Ensuite j'ai testé et j'avais raison, reste à asvoir comment il te crée ton champ, normalement, par défaut c'est en somme.

Tu connaitras facilement le 'nom' du champ si tu fait un click droit, moi c'est en anglais à cause de la version mais j'imagine que tu es en version Fr.

A+
27/01/2010, 12h59
kidone

ok

bonjour,

merci beaucoup pour la reponse

ça fonctionne

version française bien sur
il fallait mettre ("Nombre de potentiel")

merci a+

Re,
Désolé, j'oublie toujours ce détail de langue, entre temps j'ai pensé à autre chose, essaie ceci:

Code:

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
...
 
With TCD.PivotFields("Potentiel")
    .Orientation = xlDataField
    .Function = xlSum
End With
 
With TCD.PivotFields("ca 2008")
    .Orientation = xlDataField
    .Function = xlSum
End With
 
With TCD.PivotFields("ca 2009 ")
    .Orientation = xlDataField
    .Function = xlSum
End With
 
With TCD.PivotFields("budget 2010")
    .Orientation = xlDataField
    .Function = xlSum
End With
 
Application.ScreenUpdating = True
 
End Sub

A+