PIVOTTABLE

slimanov
Messages postés
30
Date d'inscription
mercredi 9 avril 2003
Statut
Membre
Dernière intervention
13 juin 2006
- 2 févr. 2006 à 21:02
cs_lhia
Messages postés
1
Date d'inscription
jeudi 13 février 2003
Statut
Membre
Dernière intervention
1 juillet 2008
- 1 juil. 2008 à 14:54
raf

comment acceder a une cellule précise dans un tabeau dynamique croisé ( PIVOTTABLE)

1 réponse

cs_lhia
Messages postés
1
Date d'inscription
jeudi 13 février 2003
Statut
Membre
Dernière intervention
1 juillet 2008

1 juil. 2008 à 14:54
Dim pvt As PivotTable
Dim feuille As Worksheet

Set feuille = Application.Sheets("nom_feuille")
Set pvt = feuille.PivotTables("nom_TCD")

MsgBox(pvt.GetData("'nom_champ' 'nom_ligne1' 'val_ligne1' 'nom_ligne2' 'val_ligne2' 'nom_colonne1' 'val_colonne1' 'nom_colonne2' 'val_colonne2' "))

Exemple :









Dim pvt As PivotTable
Dim feuille As Worksheet

Set feuille = Application.Sheets("nom_feuille")
Set pvt = feuille.PivotTables("nom_TCD")

MsgBox(pvt.GetData("'Prix' 'Marque' marque1' 'Produit' 'produit2' 'Pays' 'France' 'Année' '2008'"))



Ceci va afficher 28
0