ajouter et supprimer des données dans un tcd avec vba

Version imprimable

08/12/2009, 10h57
pscoool

ajouter et supprimer des données dans un tcd avec vba

bonjour a toutes et a tous

j'ai créé un tcd depuis un tableau excel et j'ai voulu automatisé le choix des pages et des des items ce que j'ai réussi a faire avec

pour les items de pivofields:
c'est juste une partie du code :

.

Code:

PivotTables(1).PivotFields(2).PivotItems(i + 1).Visible = True

pour les pages avec :

Code:

.PivotTables(1).PivotFields(1).CurrentPage = numero de la page

et tout ca je le fais par l'intermediaire d 'un form avec une zone de liste

mon probleme c'est que j'aimerais donner a l'utilisateur la possibilité de choisir les données a mettre dans la partie données du tcd, mais avec un form, ce que je n'arrive pas a mettre en place.:calim2:

je vous remercie d'avance et bonne journée
08/12/2009, 13h21
pgz

Bonjour.

Pour ajouter un champ de données, il faut utiliser la propriété Orientation, du style

Code:

monTCD.PivotFields("NomChamp").Orientation = xlDataField

La propriété par défaut est xlHidden.

PGZ
08/12/2009, 13h54
pscoool

merci beaucoup pour votre réponse.

enfaite je sais faire ca et ca marche, mais le probleme c'est que quand il y a déja le champ que j'aimerais ajouter dans le champ des données ca me rajoute automatiquement un deuxieme.

exemple : j'ai dans mes données un pivofiels qui s'appele "km/semaine" a xhaque fois que j'appui sur le boutton cela rajoute un autre "km/semaine1", ainsi de suite.

donc j'aimerais savoir si c'est possible de desactiver ou d'effacer tout ce qu'il y a dans le tableau avant de rajouter un pivofields.

merci d'avance.

alors personne n'a de réponse?

enfaite quand je fais voila mon code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
With Application.Worksheets("tab programmation entrainements")
For i = 0 To 2
 
         If donnees.Selected(i) = True Then
                  tab_recupi(i) = donnees.List(i)
 
 
                 .PivotTables("tab1").PivotField("km/s").Orientation = xlHidden
 
         Else
         MsgBox "ne rien faire"
 
         End If
Next i
 
End With

ca me sort l'erreur :
"propriété ou méthode non gérée par cet objet"

merci de m'aider svp

09/12/2009, 11h09
pscoool

finalement ca marche j'ai mis ("tab1") a la place de ("Tab1") et pivotfield a la place de pvitofields donc cela est reglé maintenant,
par contre j'ai un autre petit souci comment verifier avec un if la propriété orientation de pivotfield (savoir si elle est en xlhidden ou le contraire).

Comme ceci par exemple :

Code:

1
2
3
4
5
If .PivotTables("tab1").PivotField("km/s").Orientation = xlHidden then 
'
else
'
endif

09/12/2009, 12h10
pscoool

bonjour merci pour votre réponse j'ai essaye ca mais ca met une erreur
"propriété ou méthode non gérée pas l'objet
09/12/2009, 12h39
pgz

Bonjour.

Godzelsta :salut:a reproduit ton erreur : PivotFields

PGZ
09/12/2009, 12h51
Godzestla

Citation:

Envoyé par pgz

Bonjour.

Godzelsta :salut:a reproduit ton erreur : PivotFields

PGZ

Oops pgz :salut:, au taon pour moi.
09/12/2009, 18h14
pscoool

merci beaucoup ca marche mieux maintenant

j'aimerais savoir comment on peux verifier si un pivotfield exist parceque moi je calcule les sommes, et mon pvfld s'appel km/s puis kand il est dans le champ de données il devient "somme de km/semaine"