Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Formule dans un TDC en VB

Formule dans un TDC en VB

2 réponses
Avatar
Yoyo
Bonjour =E0 tous ,


Est ce qu'il est possible en VB de r=E9cup=E9rer le Total d'un TDC et de
ce servir de ce total dans une formule .

Voila =E0 peu pr=E8s le code que je veux cr=E9er:

' Cr=E9er un Champ Somme cumul=E9
ActiveSheet.PivotTables("Tableau crois=E9
dynamique1").PivotFields("Donn=E9es"). _
PivotItems("Somme bt3").Position =3D 5
'Cr=E9er un champ % cumul=E9 avec la formule =3D Somme cumul=E9e/TOTAL
ActiveSheet.PivotTables("Tableau crois=E9
dynamique1").CalculatedFields("%cum"). _
Formula =3D "=3DSomme bt3/(Total bt)"

Merci de votre aide

Cordialement

yoyo
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
Elliac
Bonjour,

Pour récupérerle Total du TCD :

ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotSelect _
"", xlLabelOnly
Selection.End(xlDown).Select
Selection.End(xlToRight).Select

Camille

"Yoyo" wrote:


Bonjour à tous ,


Est ce qu'il est possible en VB de récupérer le Total d'un TDC et de
ce servir de ce total dans une formule .

Voila à peu près le code que je veux créer:

' Créer un Champ Somme cumulé
ActiveSheet.PivotTables("Tableau croisé
dynamique1").PivotFields("Données"). _
PivotItems("Somme bt3").Position = 5
'Créer un champ % cumulé avec la formule = Somme cumulée/TOTAL
ActiveSheet.PivotTables("Tableau croisé
dynamique1").CalculatedFields("%cum"). _
Formula = "=Somme bt3/(Total bt)"

Merci de votre aide

Cordialement

yoyo




Avatar
Yoyo
Bonjour Camille

Merci, je ne comprend pas pourquoi je n'y ai pas pensé


Par contre est ce qu'on peut l'utiliser dans un champ formule

Bonne journée et encore merci Yoyo