[VBA-E] Supression ligne tableau croisé dynamique

Bonjour,

Tout d'abord, c'est la première que j'utilise ce forum donc j'espère que je serais assez clair pour explqiuer mon problème.
je souhaiterais obtenir de l'aide sur visual basic. Je voudrais à l'aide d'une macro pouvoir supprimer certaines lignes d'un champ de mon tableau croisé dynamique.
J'ai utilisé la syntaxe ci-dessous pour supprimer les lignes (0,2,4,8,9) du champ (rgt) mais celle-ci entraine une erreur d'éxecution

Code:

---

1 2 3 4 5 6 7

With ActiveSheet.PivotTables("Tableau croisé dynamique8").PivotFields("Rgt") .PivotItems("0").Visible = False .PivotItems("2").Visible = False .PivotItems("4").Visible = False .PivotItems("8").Visible = False .PivotItems("9").Visible = False End With

---

Merci d'avance pour votre aide.

Tu as quoi comme erreur ?

C'est bizarre j'ai fait à peu près la meme chose et chez moi ça marche nickel :?
ALors je vais poser des questions betes mais bon on sait jamais :
- es-tu sur que ta feuille est active lors du rafraichissement de ton tableau ?
- es-tu sur du nom de ton tableau ?
-es-tu sur du nom des champs ?
- tes champs sont des nombres ? c'est pas des caractères ?

Question subsidiaire : tu l'as fait avec l'enregistreur de macro cette macro ? sinon essaye de le faire avec ça, tu verra ce qu'il te donne :)

Citation:

---

Envoyé par illight

Tu as quoi comme erreur ?

C'est bizarre j'ai fait à peu près la meme chose et chez moi ça marche nickel :?
ALors je vais poser des questions betes mais bon on sait jamais :
- es-tu sur que ta feuille est active lors du rafraichissement de ton tableau ?
- es-tu sur du nom de ton tableau ?
-es-tu sur du nom des champs ?
- tes champs sont des nombres ? c'est pas des caractères ?

Question subsidiaire : tu l'as fait avec l'enregistreur de macro cette macro ? sinon essaye de le faire avec ça, tu verra ce qu'il te donne :)

---

Mon message d'erreur est le suivant : "erreur d'exécution '1004' impossible de lire la propriété PivotItems de la classe PivotField"
Mes champs sont des nombres (numéro de compte suivi d'un libellé)
ex : 110000 achats
Mais j'ai un champ qui ne comprend qu'un seul chiffre (codification) et c'est ce champ qui me pose problème
Oui, j'ai en grande partie utilisé l'enregistreur macro pour cette macro

tes champs c'est 0, 2,4,8 ou 9 ? (ce que j'ai mis en gras)

T'es sur que quand ut lance ta macro ta feuille est active ?

Sinon juste avant, tu met ça :

Code:

---

1 2 3 4 5 6 7 8 9

sheets("Nom_de_ta_feuille").select 'a ajouter With ActiveSheet.PivotTables("Tableau croisé dynamique8").PivotFields("Rgt") .PivotItems("0").Visible = False .PivotItems("2").Visible = False .PivotItems("4").Visible = False .PivotItems("8").Visible = False .PivotItems("9").Visible = False End With

---

Pour ma part je ne modifie jamais les données obtenues dans un tableau croisé dynamique.
L'instruction Selection.CurrentRegion.Select lancée alors que l'on se trouve dans le tableau, sélectionne le tableau.
Copié ailleurs en tant que valeurs, je peux supprimer ce que je veux.
Si cette solution n'est pas utilisable dans ton cas, et que tu n'as toujours pas de réponse, je jèterai un oeil ;)

A+

PS - Bienvenu sur le forum

Citation:

---

Envoyé par ouskel'n'or

l'instruction cells lancée alors que l'on se trouve dans le tableau, ne sélectionne que le tableau.

---

Qu'est-ce que tu veux dire par la Ousk ? tu veux dire que le tableau est en fait géré comme une plage de cellules si on le sélectionne et que du coup on ne peux sélectionner que les lignes qui nous intéresse ? :)

Ou j'ai mal compris ? :oops:

Je pourrais te renvoyer sur ma prose... J'ai pas mis Cells mais Selection.CurrentRegion.Select :mouarf:
Mais non, tu as bien lu et j'ai corrigé pas'kej'mététrompé... ;)

A+

Citation:

---

Envoyé par ouskel'n'or

Je pourrais te renvoyer sur ma prose... J'ai pas mis Cells mais Selection.CurrentRegion.Select :mouarf:
Mais non, tu as bien lu et j'ai corrigé pas'kej'mététrompé... ;)

A+

---

mdr :mrgreen: C'est con parce que j'ai fait un quote ton erreur on la voit toujours hihi :mouarf:

DOnc en fait si on fait un Select sur un tableau dynamique (considéré alors comme une région ?) on pourra faire mumuse dedans comme si on utilisait une plage de cellules ?

Si on le colle comme valeurs, oui. (Collage spécial -> Valeurs)
A+

J'ai trouvé la solution. Il manquait simplement un espace après le chiffre pour que la macro reconnaisse le libellé du champ.

Merci pour ton aide illight