Macro TDC
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?
--
Thor tue
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?
--
Thor tue
Configuration: ...
6 réponses
-
Bonjour,
Contrôler l'index de [PivotItems] est-ce bien "0" ou 0 ! -
J'ai effectivement mis "0". La formule ci dessus est celle crée dans ma feuille VBA
-
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/ ! -
-
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. -
Bonjour,
J’ai corrigé votre procédure, j’espère que c’est bon. https://www.cjoint.com/?lfudUETMvG
