VBA-TOP TEN et SELECTION - TCD

[Celeda]

Bonjour,

Pour continuer sur la lancée du TCD par macro, je souhaiterai modifier le code suivant : ce champ est en ligne dans le TCD

.PivotFields("DESIGNATION").Orientation = xlRowField

en lui ajoutant un critère :

affiche uniquement les 10 premiers montants (les plus gros)
mais je ne sais pas si cela se situe à ce niveau (Designation)
ou bien dans le champ

With .PivotFields("KEURO")
.Orientation = xlDataField
.Function = xlSum

==========================

maintenant dans le champ page :

.PivotFields("BUDGET").Orientation = xlPageField

j'aimerai enlever certains items
Comment les noter dans le code

Voilà, vous savez combien j'apprécie votre aide en fonction de mon incompétence en matière de vba.

A l'avance, je vous remercie.

 

[tototiti2008]

Re : VBA-TOP TEN et SELECTION - TCD

Bonjour Celeda,

voilà ce que m'a donné l'enregistreur de macros (l'ami Henry 😉)

    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("a").AutoShow _
        xlAutomatic, xlTop, 10, "Somme de e"
 
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("f")
        .PivotItems("3").Visible = False
        .PivotItems("4").Visible = False
        .PivotItems("6").Visible = False
    End With

avec "a" le champ à filtrer pour les 10 valeurs les plus grandes du champ de données "e"
et "f" le champ de page avec les éléments "3", "4" et "6" à masquer

 

[Celeda]

Re : VBA-TOP TEN et SELECTION - TCD

Bonjour,

Merci beaucoup Toto je vais faire les tests et je te reviendrai.🙂

 

[Celeda]

Re : VBA-TOP TEN et SELECTION - TCD

Bonjour,

Concernant la sélection des items c'est ok,
j'ai adopté une autre méthode

par contre pour le top ten, cela ne fonctionne pas ....................😕

 

[Pierrot93]

Re : VBA-TOP TEN et SELECTION - TCD

Bonjour Celeda, Toto

Le code donné par Toto fonctionne chez moi, regarde l'exemple ci-dessous, mais doit dépendre du type de donnée et ou de la disposition des champs...

Bonne journée
@+

 

[tototiti2008]

Re : VBA-TOP TEN et SELECTION - TCD

Bonjour Celeda, Bonjour Pierrot,

Ou bien ça dépend peut-être de la version d'Excel

Il serait intéressant d'enregistrer une macro sur XL2007 pour voir si son écriture correspond à celle que j'ai obtenu sur 2003

 

[Celeda]

Re : VBA-TOP TEN et SELECTION - TCD

Bonjour,


Un grand merci messieurs, avec des boutons cela fonctionne très bien et je te rassure tototiti2008, sur xls 2007 c'est pareil.
En fait, ce que je n'arrivais pas à faire c'est placer les lignes de codes de Activer, dans les codes de la macro que j'utilise pour créer le tcd (macro d'ailleurs que Pierrot a finalisée 🙂; je voulais que cela soit plus limpide.
Mais l'idée de placer des boutons m'arrange en définitive (ah les femmes!!) car cela permettra à tout à chacun de l'équipe d'avoir une vision dans sa totalité aussi.

Donc pour votre aide encore merci:)🙂