Je cherche =E0 manipuler des TCD en vba ...
par exemple :
- r=E9cup=E9rer les valeurs possibles d'un champ de page ou=20
de donn=E9es ...
- connaitre si un champ de page a telle valeur par=20
rapport =E0 la s=E9lection ...
- ins=E9rer des ratios comme total par ligne ...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour Leti,
il faut passer par la collection PivotItems, exemple si en cellule A1 j'inscrit une valeur possible du champ de page du tcd en exécutant cette macro le champ de page du tcd prendra la valeur de la cellule A1
Dim PI As PivotItem With ActiveSheet.PivotTables(1).PageFields("zaza") For Each PI In .PivotItems If PI.Value = ActiveCell.Value Then .DataRange = ActiveCell.Value Exit For End If Next PI End With
isabelle
Bonjour à tous,
Je cherche à manipuler des TCD en vba ... par exemple : - récupérer les valeurs possibles d'un champ de page ou de données ... - connaitre si un champ de page a telle valeur par rapport à la sélection ... - insérer des ratios comme total par ligne ...
il faut passer par la collection PivotItems,
exemple si en cellule A1 j'inscrit une valeur possible du champ de page
du tcd en exécutant cette macro le champ de page du tcd prendra la
valeur de la cellule A1
Dim PI As PivotItem
With ActiveSheet.PivotTables(1).PageFields("zaza")
For Each PI In .PivotItems
If PI.Value = ActiveCell.Value Then
.DataRange = ActiveCell.Value
Exit For
End If
Next PI
End With
isabelle
Bonjour à tous,
Je cherche à manipuler des TCD en vba ...
par exemple :
- récupérer les valeurs possibles d'un champ de page ou
de données ...
- connaitre si un champ de page a telle valeur par
rapport à la sélection ...
- insérer des ratios comme total par ligne ...
il faut passer par la collection PivotItems, exemple si en cellule A1 j'inscrit une valeur possible du champ de page du tcd en exécutant cette macro le champ de page du tcd prendra la valeur de la cellule A1
Dim PI As PivotItem With ActiveSheet.PivotTables(1).PageFields("zaza") For Each PI In .PivotItems If PI.Value = ActiveCell.Value Then .DataRange = ActiveCell.Value Exit For End If Next PI End With
isabelle
Bonjour à tous,
Je cherche à manipuler des TCD en vba ... par exemple : - récupérer les valeurs possibles d'un champ de page ou de données ... - connaitre si un champ de page a telle valeur par rapport à la sélection ... - insérer des ratios comme total par ligne ...
