Discussion :

[Tom55555]

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 :

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

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

[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

[Tom55555]

Merci de ton aide.

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

Code :

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

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. :/

[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

[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.

[vinc_bilb]

et ben ... un bout d'exemple serait le bienvenu

[Tom55555]

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 !

[vinc_bilb]

Bonjour,

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

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
 
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