Discussion :

[pscoool]

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 :

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

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

pour les pages avec :

Code :

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

.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.

je vous remercie d'avance et bonne journée

[pgz]

Bonjour.

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

Code :

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

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

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

PGZ

[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.

[pscoool]

alors personne n'a de réponse?

enfaite quand je fais voila mon code

Code :

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

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

[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).

[Godzestla]

Comme ceci par exemple :

Code :

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

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

[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

[pgz]

Bonjour.

Godzelsta a reproduit ton erreur : PivotFields

PGZ

[Godzestla]

Bonjour.

Godzelsta a reproduit ton erreur : PivotFields

PGZ

Oops pgz , au taon pour moi.

[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"