Changer paramètre de champs dans TCD

hello,
je dois modifier un caractère de champs dans un tableau croisé que je "reçois" de SAP: passer de "somme" à "nombre".
j'ai donc enregistré ma macro en direct qui me donne

Code:

---

1 2 3 4 5 6 7

Excel.Sheets("Table Condi Follow-Up").Select Range("A4").Select With ActiveSheet.PivotTables("PivotTable1").PivotFields( _ "Sum of Quantité d'opération") .Caption = "Nombre" .Function = xlCount End With

---

mais cela ne foncionne pas quand je lance la macro :evilred:
j'ai donc fait des recherches sur ce merveilleux outil "Developpez.com" :mrgreen:
et j'ai trouvé ceci qui ressemble beaucoup à l'enregistrement auto!

Code:

---

Sheets("Table Condi Follow-Up").PivotTables("PivotTable1").PivotFields("Sum of Quantité d'opération").Function = xlCount

---

mais résultat identique: message d'erreur "impossible de lire la propriété PivotFields de la classe PivotTable"
avez-vous une idée de ce que je fait faux?
merci d'avance de votre aide.

Salut,


tu devrais tester successivement les différentes parties de l'instruction
et voir laquelle plante!

Code:

---

1 2 3 4 5 6 7 8

debug.print Sheets("Table Condi Follow-Up").Name   debug.print Sheets("Table Condi Follow-Up").PivotTables.count   debug.print Sheets("Table Condi Follow-Up").PivotTables("PivotTable1").PivotFields.count   debug.prin Sheets("Table Condi Follow-Up").PivotTables("PivotTable1").PivotFields("Sum of Quantité d'opération").Name

---

Cordialement,

merci de ta prompte réactivité :)
les trois premières instructions passent, puis bug sur la dernière avec le même mesage => donc problème sur "Sum of Quantité d'opération", mais ce que je ne comprends pas c'est le nom trouvé lors de l'affectation lors de la création en auto de ma macro, de plus dans ma table source l'entête de la colonne est bien "Quantité d'opération" :cfou:
si j'enlève "sum of" cela passe dans le debug, mais pas dans ma macro!

ok,
et si tu remplaces le nom du champ par un index numérique, ça donne quoi?

Par exemple:

Code:

---

Debug.Print Sheets("Table Condi Follow-Up").PivotTables("PivotTable1").PivotFields(0).Name

---

Attention, je ne sais pas si le premier élément de la collection PivotFields a pour index 0 ou 1!
Si c'est 1 ça va planter!

Cordialement,

c'est incroyable, dans le debug je mais l'indice correspondant, la réponce est bien "Quantité d'opération", mais si je mets le même indice dans ma macro cela bug :fou:

Oui, j'ai le même problème.
Essaie de supprimer le champ et de le recréer
Cordialement,

Bonjour,

effectivement, la propriété Function ne se manipule pas aussi facilement!
Après pas mal de recherche dans les forums, je te propose d'essayer le code suivant.
2 remarques:
1- il faut absolument régler Orientation=xlDataField avant de modifier la propriété Function
2- en fait, un nouveau champ est crée, il faut masquer l'ancien

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub testForum() ' variables Dim sh As Worksheet Dim pt As PivotTable Dim pf As PivotField   ' init Set sh = Sheets("Table Condi Follow-Up") Set pt = sh.PivotTables("PivotTable1") Set pf = pt.PivotFields("Sum of Quantité d'opération") ' changer la fonction With pf .Orientation = xlDataField ' il faut fixer l'orientation .Function = xlCount End With ' résultat: un nouveau champ a été ajouté ' pf référence le nouveau champ ' il faut retrouver l'ancien et le masquer Set pf = pt.PivotFields("Sum of Quantité d'opération") pf.Orientation = xlHidden End Sub

---

Cordialement,