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