Sujet Précédent Sujet Suivant

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

Réponse 1 / 1
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
Rejoignez-nous