Discussion :

[X5-495]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

"=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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"=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.

[joe.levrai]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[X5-495]

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.