1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic

PIVOTTABLE

Signaler
Messages postés
30
Date d'inscription
mercredi 9 avril 2003
Statut
Membre
Dernière intervention
13 juin 2006
 -
Messages postés
1
Date d'inscription
jeudi 13 février 2003
Statut
Membre
Dernière intervention
1 juillet 2008
 -
raf

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

1 réponse

Réponse 1 / 1
Messages postés
1
Date d'inscription
jeudi 13 février 2003
Statut
Membre
Dernière intervention
1 juillet 2008
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
Posez votre question