PIVOTTABLE
slimanov
cs_lhia
- Messages postés
- 30
- Date d'inscription
- mercredi 9 avril 2003
- Statut
- Membre
- Dernière intervention
- 13 juin 2006
cs_lhia
- Messages postés
- 1
- Date d'inscription
- jeudi 13 février 2003
- Statut
- Membre
- Dernière intervention
- 1 juillet 2008
A voir également:
- PIVOTTABLE
- Impossible de lire la propriété pivottables de la classe worksheet ✓ - Forum - VB.NET
- Filtre PivotTable ✓ - Forum - Visual Basic 6
- Message d'erreur - Forum - Visual Basic 6
- Visual Basic : "erreur d'exécution '1004': Impossible de lire la propriété Search de la classe - Forum - Visual Basic
1 réponse
cs_lhia
1 juil. 2008 à 14:54
- 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
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