eclater un tableau croise dynamique

I

ike667

XLDnaute Nouveau

• 29 Octobre 2007

• #2

Re : eclater un tableau croise dynamique

je vois qu'il n'y a pas de réponse alors j'en met une:

est il possible de compter le nombre d'item du champ pagesFields ?

cordialement,
Michael

 

Vote positif 0 Vote négatif

N

news

XLDnaute Impliqué

• 29 Octobre 2007

• #3

Re : eclater un tableau croise dynamique

Re:
est il possible de compter le nombre d'item du champ pagesFields ?
mieux d'y remettre le fichier pour mieux comprendre,

ci-joint un petite exemple,
en se positionnant dans le tableau, clickez souris droite, > paramètres de champ < sélecionnez: Nombre
peut-être ceci le résoud,

 

Pièces jointes

• tableau_croisé_dynamique.xls

  19.5 KB · Affichages: 99

Vote positif 0 Vote négatif

I

ike667

XLDnaute Nouveau

• 29 Octobre 2007

• #4

Re : eclater un tableau croise dynamique

merci de cette reponse;
neanmoins, il me faudrait cette valeur par VBA car le nombre d'occurence du pivotfields est variable.

cordialement,
michael

 

Dernière édition: 29 Octobre 2007

Vote positif 0 Vote négatif

N

news

XLDnaute Impliqué

• 31 Octobre 2007

• #5

Re : eclater un tableau croise dynamique

neanmoins, il me faudrait cette valeur par VBA car le nombre d'occurence du pivotfields est variable.
pour info, que ceci je ne sais pas encore établir en VBA,

 

Vote positif 0 Vote négatif

I

ike667

XLDnaute Nouveau

• 31 Octobre 2007

• #6

Re : eclater un tableau croise dynamique

desole, je n'ai pas compris la reponse.

cordialement,
michael

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 31 Octobre 2007

• #7

Re : eclater un tableau croise dynamique

Bonjour Michael, News

si j'ai bien compris, pas sur, essaye peut être le code ci dessous :

Code:

x = ActiveSheet.PivotTables(1).PivotFields("Nom_Champ_Concerné").PivotItems.Count

bon après midi
@+

 

Vote positif 0 Vote négatif

I

ike667

XLDnaute Nouveau

• 31 Octobre 2007

• #8

Re : eclater un tableau croise dynamique

désolé, mais la fonction ne me renvoie pas le nom d'itération que comprend le champ UFSERV

j'ai 4 occurrences dont le (tout) et la fonction ne retourne 38....

si une autre idée je suis preneur car je n'en ai pas encore trouvé.

cordialement,
Michael

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 31 Octobre 2007

• #9

Re : eclater un tableau croise dynamique

Re

mets peut être ton fichier en pièce jointe, avec le résultat attendu, car là en l'état je ne vois pas trop ce que tu veux exactement.

@+

 

Vote positif 0 Vote négatif

I

ike667

XLDnaute Nouveau

• 31 Octobre 2007

• #10

Re : eclater un tableau croise dynamique

une nouvelle fois, je suis désolé mais je ne peux pas mettre le fichier en peice jointe:
- donnée confidentielle
- access a une base de données oracle distante ( je suis a limoges la base est a brive)

ce que je souhaite faire :

faire une fonction qui permet de mettre tous les tableaux croisés dynamiques les uns a la suites des autres comme le fait le bouton "Afficher les pages"
mais au lieu qui soit sur des onglets différents il me les faut sur le même onglet

j'ai découpé le problème en sous problème et le premier a réglé est de connaitre le nombre de tableau qui peut y avoir car en effet le tableau croisé dynamique dépend d'un paramètre de service et suivant les services je n'ai pas le même nombre d'itération dans la variable de regroupement(pivot pages)

voila a peut prêt ce que j'essaie de faire.

cordialement,
Michael
ps: merci beaucoup de se pencher sur mon problème

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 31 Octobre 2007

• #11

Re : eclater un tableau croise dynamique

Re

comprends pas trop, si j'execute la ligne de code que je t'ais donné, j'obtiens bien le bon nombre de pages que m'afficherait le bouton "Afficher les pages". Mais attention les TCD garde en "mémoire" tous les items précédemment utilisées...

@+

 

Vote positif 0 Vote négatif

I

ike667

XLDnaute Nouveau

• 2 Novembre 2007

• #12

Re : eclater un tableau croise dynamique

bonjour,

comment vider cette mémoire pour qu'il m'affiche le bon nombre d'itération?

cordialement,
michael

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 2 Novembre 2007

• #13

Re : eclater un tableau croise dynamique

Bonjour Ike

essaye peut être la macro de Debra Dalgleish ci dessous :

Code:

Sub NettoieItemTCD()
'macro de Debra Dalgleish
Dim ws As Worksheet, pt As PivotTable, pf As PivotField
Dim pi As PivotItem, i As Integer
On Error Resume Next
For Each ws In ActiveWorkbook.Worksheets
    For Each pt In ws.PivotTables
    pt.RefreshTable
        For Each pf In pt.PivotFields
            For Each pi In pf.PivotItems
                If pi.RecordCount = 0 And Not pi.IsCalculated Then pi.Delete
            Next
        Next
    Next
Next
End Sub

bonne journée
@+

 

Vote positif 0 Vote négatif

I

ike667

XLDnaute Nouveau

• 7 Novembre 2007

• #14

Re : eclater un tableau croise dynamique

bonjour,

je viens de revenir de vacances (2 jours ) je teste et je vous tiens au courant.

cordialement,
Michael

 

Vote positif 0 Vote négatif

I

ike667

XLDnaute Nouveau

• 7 Novembre 2007

• #15

Re : eclater un tableau croise dynamique

re,

après test, je remarque que une fois sur 5 j'ai le bon nombre d'items pourtant je lance la procédure a chaque actualisation du tableau croise.

comment modifier le code pour que ce soit juste a chaque actualisation?
comment l'accélérer car avec les autres traitements ça devient long?

cordialement,
Michael

 

Vote positif 0 Vote négatif