Calcul nb items cochés dans un pivot d'un TCD

chris

XLDnaute Barbatruc

• 22 Septembre 2013

• #2

Re : Calcul nb items cochés dans un pivot d'un TCD

Bonjour

Quelle erreur as-tu ?

 

Vote positif 0 Vote négatif

C

Colombine

XLDnaute Junior

• 22 Septembre 2013

• #3

Re : Calcul nb items cochés dans un pivot d'un TCD

Erreur d'éxécution 13
Incompatibilité de type

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 22 Septembre 2013

• #4

Re : Calcul nb items cochés dans un pivot d'un TCD

Bonjour

Essaye de dimensionner tes variables en long si ton TCD contient beaucoup de données sinon poste un exemple.

Sur 2010 avec un petit TCD ton code fonctionne...

 

Vote positif 0 Vote négatif

C

Colombine

XLDnaute Junior

• 22 Septembre 2013

• #5

Re : Calcul nb items cochés dans un pivot d'un TCD

bonjour,
mon TCD n'est pas super grand et même en mettant LONG à la place d'INTEGER ça ne fonctionne pas.
Voici mon fichier , mon TCD est dans essai , ma macro est comptage .
Merci pour votre aide.
Colombine

 

Pièces jointes

• test.xlsm

  939.9 KB · Affichages: 43
• test.xlsm

  939.9 KB · Affichages: 43
• test.xlsm

  939.9 KB · Affichages: 44

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 22 Septembre 2013

• #6

Re : Calcul nb items cochés dans un pivot d'un TCD

Bonjour

Ta source est nommée Données et semble issue d'une source externe. Elle devrait être sous forme de tableau.
Depuis la version 2007 Excel met automatiquement les données liées à une source externe sous forme de tableau.

Sinon supprime la requête et mets ces données sous forme de tableau.

Ton TCD est basé sur des colonnes complètes : cela donne la valeur (vide) dans chaque filtre.

Or cette valeur pose problème en VBA, de même que les dates, quand on veut tester visible.

Si tu mets les données source sous forme de Tableau et bases ton TCD sur ce tableau tu n'auras plus de (vide) sauf Label_hhn qui ne semble pas utilisé.

 

Vote positif 0 Vote négatif

C

Colombine

XLDnaute Junior

• 22 Septembre 2013

• #7

Re : Calcul nb items cochés dans un pivot d'un TCD

je viens d'essayer mais ça ne fonctionne toujours pas même si je transforme ma sortie de données en un tableau.

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 22 Septembre 2013

• #8

Re : Calcul nb items cochés dans un pivot d'un TCD

Bonjour,

Coucou Chris

avec l'exemple du classeur, je n'ai pas de problème avec:

Code:

Sub comptage()
Dim pvi As PivotItem 'objet
Dim Nbpiv As Long 'Nombre d'items de pon pivot
Sheets("essai").Select
For Each pvi In ActiveSheet.PivotTables("TCD").PivotFields("Label_sho").PivotItems
   If pvi.Value <> "(blank)" Then Nbpiv = Nbpiv + Abs(pvi.Visible)
Next pvi
MsgBox Nbpiv
End Sub

Résultat : 3

P.S. : cela n'empêche pas d'appliquer les excelents conseils de Chris.

A+ à tous

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 22 Septembre 2013

• #9

Re : Calcul nb items cochés dans un pivot d'un TCD

Re

Il faut changer la source du TCD aussi pour qu'il prenne le tableau et non la plage : relis le dernier paragraphe de mon précédent post.

Edit : coucou Hasco

 

Vote positif 0 Vote négatif

C

Colombine

XLDnaute Junior

• 22 Septembre 2013

• #10

Re : Calcul nb items cochés dans un pivot d'un TCD

Merci beaucoup HASCO , ça marche super et je peux garder mes connexions aux données externes !!

Merci aussi chris, je garde cette façon de faire que je ne connaissais pas mais dans mon cas de figure le fait de passer par un tableau ne correspond pas exactement à ce que je recherchais.

Vous êtes vraiment d'une super aide, merci à vous tous.

Bonne soirée.
Colombine

 

Vote positif 0 Vote négatif