Discussion :

[dezbzh]

Bonjour,

J'a enregistré une macro me permettant de sélectionner dans mon TCD les colonnes "somme" de mon pivotfield "libellé plateforme finale"

Code :

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

 ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotSelect "'Libellé Plateforme finale'[Tous;somme]  PAYS1 MARQUE1"

Problème, cette macro enregistrée ne marche pas quand je l'exécute, j'ai le message d'erreur suivant:

Erreur d'exécutin '1004':

La formule est incomplète. Vérifiez qu'un crochet de fin ] ne manque pas.

Quand j'enlève ";somme" dans cette macro, à savoir:

Code :

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

 ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotSelect "'Libellé Plateforme finale'[Tous]  PAYS1 MARQUE1"

, elle fonctionne, mais pas avec le résultat attendu..

Merci pour votre aide !

[Godzestla]

Bonjour,
tu fais erreur car ta macro ne fait pas du tout ce que tu en attends.

Dans ce cas de figure, mieux vaux travailler avec l'enregistreur de macro que tu actives avant de créer ou modifier ta Pivot table.

Ensuite tu l'arrêtes et tu regarde le code généré dans un module.

Tu devrais obtenir du code avce .Subtotal qui est la méthode pour générer des sous-totaux.

Ci-dessous un exemple :

Code :

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

1
2
3
4
5
6
 
    With ActiveSheet.PivotTables("PivotTable2").PivotFields("LCDALC01")
        .Caption = "Delivery"
        .Subtotals = Array(False, False, False, False, False, False, False, False, False, _
        False, False, False)
    End With

[dezbzh]

re-bonjour,

C'est vrai que je n'ai pas précisé mon objectif:
Je veux une macro qui change la couleur de fond des colonnes sous-totaux d'un pivotfield donné.

Quand je l'enregistre en entier, ça me donne:

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Macro7()
'
 
 
'
    ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotSelect _
        "'Libellé Plateforme finale'[Tous;Somme] PAYS1 MARQUE1", xlDataAndLabel
    Selection.Interior.ColorIndex = 35
 
End Sub

Mais comme décrit dans ma premier post, elle ne fonctionne pas ensuite quand je l'exécute.

Si je dois utiliser une macro avec With..EndWith, quelle est la propriété applicable au PivotField que je dois utiliser pour la couleur de fond ?

D'avance merci !

[Godzestla]

Même réponse que tout à l'heure, à savoir utilise l'enregistreur de macro et tu verras.

C'est très simple et très parlant.

[dezbzh]

Bonjour,

En fait, j'utilise effectivement l'enregistreur de macro pour créer les macros citées dans mes 2 précédents posts.. C'est bien le même "enregistreur" dont on parle ? (cf. PJ)

Et donc le problème c'est que la macro qui résulte de cette enregistrement ne marche pas ensuite quand je l'exécute..

En espérant être maintenant plus clair !

[Godzestla]

Rebonjour,

on parle donc bien de la même chose.

Donc, si tu as bien démarraré l'enregistreur de macro avant de faire tes manipulations de modif de couleur de fond de ton pivot, et que tu l'as bien arrêté après, tu dois pouvoir la retrouver et nous la montrer.

Car dire uniquement qu'elle ne marche pas...... c'est un peu court...

(NB : pense à utiliser les balises codes pour montrer tes macros).