Macro TDC

Farfadet88 Messages postés 7780 Date d'inscription   Statut Membre Dernière intervention   -  
 ponpon -
Bonjour,
Je cherche à créer une macro actualisant un tableau dynamique croisé.
J'ai réussi à la créer en l'enregistrant manuellement. Toutefoir, lorsque je la lance, le débogage se lance.

Voilà le code:

Private Sub CommandButton4_Click()
Sheets("st5").Select
ActiveSheet.PivotTables("Tableau croisé dynamique37").PivotCache.Refresh
With ActiveSheet.PivotTables("Tableau croisé dynamique37").PivotFields( _
"Partie du corps")
.PivotItems("0").Visible = False
.PivotItems("0").Visible = False

End With
Range("a1").Select
Unload UserForm7

Le bug se situe au niveau du texte en gras souligné, il semble que la macro n'arrive pas à désactiver mes deux données "0" de mon TDC.

Que faire?
A voir également:

6 réponses

ponpon
 
Bonjour,
Contrôler l'index de [PivotItems] est-ce bien "0" ou 0 !
0
Farfadet88 Messages postés 7780 Date d'inscription   Statut Membre Dernière intervention   1 370
 
J'ai effectivement mis "0". La formule ci dessus est celle crée dans ma feuille VBA
0
ponpon
 
Bonjour,
Oui d'accord pour le "0", mais l'index est en pricipe une valeur numérique !
Vous est-il possible de mettre le fichier sur https://www.cjoint.com/ !
0
Farfadet88 Messages postés 7780 Date d'inscription   Statut Membre Dernière intervention   1 370
 
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
ponpon
 
Bonjour,
Est-ce que le message d’erreur est le suivant :
Erreur d’exécution 1004 : Impossible de lire la propriété PivotItems de la classe PivotField.
0
ponpon
 
Bonjour,
J’ai corrigé votre procédure, j’espère que c’est bon. https://www.cjoint.com/?lfudUETMvG
0