[VBA-E] Supression ligne tableau croisé dynamique

**julien5** · 19/05/2006, 10h20

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**illight** · 19/05/2006, 10h47

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

**julien5** · 19/05/2006, 11h55

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

**illight** · 19/05/2006, 12h02

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**ouskel'n'or** · 19/05/2006, 12h02

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

**illight** · 19/05/2006, 12h05

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 ?