Valeur TCD

Bonjour,

Etant donné que je ne peut pas utilisé la fonction champ calculé d'Excel, j'ai décidé de créer une macro pour calculer la difference entre deux champs. Mais cette derniere ne fonctionne pas trop a cause du TCD.

Je me retrouve avec l'erreur impossible d'entrer une formule pour un élement ou un nom de champ dans un rapport de tableau dynamique

Voici le mon code :

With Range("F10", Cells(Rows.Count, 1).End(xlUp).Address(0, 0))
    With .Offset(0, 3)
        .Formula = "=SUM(-F10,G10)"
        .Value = .Value
    End With
End With

Bonjour,

tu tentes d'écrire dans le TCD !

With Range("F10", Cells(Rows.Count, 6).End(xlUp).Address(0, 0))
    With .Offset(0, 3)
        .Formula = "=SUM(-F10,G10)"
        .Value = .Value
    End With
End With

Bonjour,

Bonjour Steelson,

Possible, pas possible?

Ce n'est pas une image qui nous permettra de t'apporter une aide.

Cdlt.

Bonjour Jean-Eric,

je me suis fait un template avant de répondre ...

de toute façon, le 1 me chagrinait et c'est en effet cela qui pose problème, à remplacer par 6 (=F)

Re,

Mon commentaire portait surtout sur la construction du TCD et de l'utilisation des éléments ou champs calculés.

Maintenant, si on doit effectivement utiliser VBA, j'aurais vu un truc du genre :

Public Sub XXX()
Dim N As Long, rng As Range
    With ActiveSheet
        N = .Cells(.Rows.Count, 6).End(xlUp).Row
        Set rng = .Cells(10, 6).Offset(, 3).Resize(N - 9)
        rng.FormulaR1C1 = "=RC[-1]-RC[-2]"
        rng.Value = rng.Value
    End With
End Sub

Jean-Eric a écrit :

Re,

Mon commentaire portait surtout sur la construction du TCD et de l'utilisation des éléments ou champs calculés.

ok, en effet c'est une solution plus simple

Merci de cette réponse, elle m'a fait voir le bout de la route.

Par ailleurs ayant construit mon TCD en VBA, lorsque je filtre un champ les calculs ne s'actualisent pas. Ceci est vraiment problématique.

Avez-vous une solution qui puisse m'aidez ?

solution 1 : un champ calculé comme préconisé par Jean-Eric

solution 2 : refaire tourner la macro après avoir effacé les valeurs

range(ta_colonne).clearcontents

Re,

Que penser de l'envoi d'un fichier pour avancer un peu?

Cdlt.

Merci, grace à vos eclaircissement j'ai su répondre à mes besoins