TCD extraire Total Général

Bonjour,

J'ai créé un TCD et je souhaite maintenant reprendre les informations du Total général de chacune de mes colonnes pour appliquer un nouveau traitement.

Manuellement par l'enregistreur, aucun souci, j'ai dans ma cellule de reprise une formule :

Code:

---

"=GETPIVOTDATA(""Durée connexion"",R3C2,""Nom"",""Toto"")"

---

Cependant, je souhaiterai automatiser et passer en revu Titi, Tata et Tutu (et bien d'autres encore !) d'une quantité variable d'un moi sur l'autre.

Mon idée a été de modifier le code en :

Code:

---

"=GETPIVOTDATA(""Durée connexion"",R3C2,""Nom""," & MesT & ")"

---

ou

Code:

---

"=GETPIVOTDATA(""Durée connexion"",R3C2,""Nom"",MesT,)"

---

avec MesT étant ma variable contenant les Toto, Titi, etc..

Je n'obtiens pas ce que je veux, mais une #REF!

Où ai-je faux ?

Est-ce, d'ailleurs, bien possible ?

Cordialement.

Bonjour,

dans un premier temps, je te conseille de passer par Formula plutôt que FormulaR1C1, afin de renseigner l'adresse de ton étiquette de ligne sans se soucier de son positionnement relatif à la cellule qui reçoit ta formule
ensuite, il faut tripler les guillemets de ton paramètre passé en string :

- première guillemet : fermer/ouvrir ta formule
- deuxième : ouvrir/fermer le string qui contient ta variable string
- troisième : placer la guillemet dans ta formule excel

par exemple :

je cherche la somme des quantités de 5 agents, à écrire dans les cellules A1 à E1
- mon TCD est en Feuil1
- l'étiquette de ligne est située en A3 et correspond au champs "AGENT"
- le champs dont je cherche le total est "Somme de QUANTITE" (tel qu'il est écrit sur ma feuille Excel)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Option Base 1 Sub FormuleTCD()   Dim Agents() Dim i As Integer   Agents = Array("Toto", "Titi", "Tata", "Toutou", "Tonton")   For i = LBound(Agents) To UBound(Agents) With ThisWorkbook.Worksheets("Feuil1") .Cells(1, i).Formula = "=GETPIVOTDATA(""Somme de QUANTITE""," & .Cells(3, 1).Address & ",""AGENT"",""" & Agents(i) & """)" '.Cells(1, i).Value = .Cells(1, i).Value ' pour remplacer la formule par la valeur End With Next i   End Sub

---

Ps : on pourrait passer par Application.WorkSheetFunction.GetPivotData afin de calculer directement par VBA la formule si tu n'en a pas besoin

Bonjour,

J'avais envisagé beaucoup de choses mais pas le coup des triples guillemets alors que j'aurais dû m'en douter.

Merci pour le coup de main, cela fonctionne en effet beaucoup mieux ainsi.

Je vais continuer à progresser.

Cordialement.