TCD-Ajout d'un champ-VBA

Version imprimable

Bonjour à tous,

C'est mon premier message (guidé par l'urgence ^^), je me présenterai dans le topic approprié plus tard.

Je sollicite votre aide pour une question bête mais pour laquelle je ne trouve pas de réponse (je suis novice en VBA). Je souhaiterais ajouter une formule dans mon TCD, qui ferait intervenir la valeur d'une cellule "extérieure" (partie en gras dans le code ci-dessous). Je vous montre le code pour que puissiez mieux comprendre :
Code:

1 2 3 4 ActiveSheet.PivotTables("Mon TCD").CalculatedFields.Add "StructDiff 2013", _ "='2013.Total Demand' * Sheets("Menu").Cells(4, 9).Value", True ActiveSheet.PivotTables("Mon TCD").PivotFields("StructDiff 2013").Orientation = _ xlDataField
Evidemment, le code ne marche pas, et je n'arrive pas à trouver la solution.

Merci d'avance pour votre aide !

Tom55555

19/05/2015, 09h40
vinc_bilb

Bonjour,

Difficile de faire une réponse précise. Je vous suggère cependant:

- de remplacer 'ActiveSheet' par Sheet("XXXX"), si des fois la feuille active n'était pas celle contenant le TCD "Mon TCD"
- d'exécuter le code en pas à pas pour indiquer où ça plante et le message d'erreur....

Ceci étant, je ne vois pas où est .... la formule, essayez avec l'enregistreur de Macro?

Bonne continuation :)
19/05/2015, 10h43
Tom55555
Merci de ton aide.

Lorsque j'exécute pas à pas, l'erreur repéré se situe au niveau de cette ligne :
Code:

1 2 ActiveSheet.PivotTables("Mon TCD").CalculatedFields.Add "StructDiff 2013", _ "='2013.Total Demand'" * Sheets("Menu").Cells(4, 9).Value, True
Il est alors écrit "incompatibilité de type". Je pense que c'est une erreur syntaxique. Le "Sheets("Menu").Cells(4, 9).Value" n'est peut être pas imbriqué comme il faut. :/
19/05/2015, 11h18
vinc_bilb

Bonjour,

Pour moi, il manque .... la formule
Cf https://msdn.microsoft.com/fr-fr/lib.../ff834479.aspx

Comme suggéré, faites le en mode enregistrement Macro pour vérifier au préalable :calim2:
19/05/2015, 16h49
Tom55555

Je ne comprends pas ce que tu veux dire. La syntaxe me semble être respecté, j'ai également vérifié avec l'enregistreur de macro, mais rien n'y fait, ça ne fonctionne pas. :(
19/05/2015, 17h01
vinc_bilb

et ben ... un bout d'exemple serait le bienvenu
19/05/2015, 17h19
Tom55555

1 pièce(s) jointe(s)

J'ai mis en pièce-jointe un petit aperçu de ce que je souhaiterais faire.
En gros, j'aimerais faire en sorte que lorsque je lance mon TCD, il ajoute un champ qui multiplie le nombre de voiture par le coefficient inscrit dans la page des "données".

J'ai déjà développé une macro qui créé un TCD, mais l'étape de créer un champ multiplié par un nombre hors de la source, je n'y arrive pas.

Merci encore pour ton aide !

Bonjour,

Voir code suivant, à retoucher si besoin (testé partiellement)

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
 
Sub Test_TCDCalc()
 
Dim PivTab As PivotTable
Dim PivCalcFld As PivotField, PivCalcFldN As String
Dim PivCalConst As Single
 
'Init
    Set PivTab = ThisWorkbook.Worksheets("PV_SUM").PivotTables("Tableau croisé dynamique2")
 
    PivCalcFldN = "VincCalc"
    PivCalConst = ThisWorkbook.Worksheets(1).Range("J2").Value
 
    Set PivCalcFld = PivTab.PivotFields(PivCalcFldN)
 
'On teste si le champ existe déjà ou non
    On Error Resume Next
 
    If IsObject(PivTab.PivotFields(PivCalcFldN)) Then
 
        Debug.Print PivTab.PivotFields(PivCalcFldN).Name
        PivTab.PivotFields(PivCalcFldN).StandardFormula = "=Nombre*" & PivCalConst
 
        Else:   'Le champ n'existe pas
            PivTab.CalculatedFields.Add PivCalcFldN, "=Nombre*" & PivCalConst, True
            PivTab.AddDataField PivTab.PivotFields(PivCalcFldN), PivCalcFldN, xlSum
 
    End If
 
 
    For Each PivCalcFld In PivTab.CalculatedFields
        Debug.Print PivCalcFld.Name, IsObject(PivCalcFld), PivCalcFld.StandardFormula
    Next PivCalcFld
 
End Sub