Copier le total général du tableau croisé dynamique dans la cellule vide suivante

Essayez ceci.

Set targetCell = Range("R" & sh.Rows.Count).End(xlUp).Offset(1, 0)

L'attendez-vous après la dernière cellule remplie de la colonne R? Si tel est le cas, remplacez la ligne suivante

Set targetCell = FinalPvtGT.Offset(, 3)

par

Sub test()

Dim wb As Workbook
Set wb = ThisWorkbook
Dim sh As Worksheet
Set sh = wb.Sheets("Sheet1")
Dim pt As PivotTable
Set pt = sh.PivotTables("PivotTable1")
Dim FinalPvtGT As Range
Set FinalPvtGT = pt.TableRange1(pt.TableRange1.Rows.Count, _
                            pt.TableRange1.Columns.Count)
Dim targetCell As Range
Set targetCell = FinalPvtGT.Offset(, 3)

targetCell = FinalPvtGT

End Sub

Voici un code que vous pouvez peut-être comprendre pour l'implémenter dans votre code:

Sheets("Sheet1").Cells(LastRow, 18).value = pt1.GetPivotData("SUM").Value

le total général doit être copié sur la ligne vide suivante de colonne R

Oups ... désolé,
votre problème est donc le placement du GrandTotal copié :).

J'ai trouvé un code qui peut copier le total général dans une cellule, mais je impossible de le faire fonctionner pour le copier dans la cellule vide suivante

Sheets("Sheet1").Cells(LastRow, 18).Select

Si vous exécutez pas à pas le code ci-dessus, le résultat de la cellule active est-il correct? Ce qui, comme vous vous attendiez à ce que le résultat de la cellule active soit la prochaine cellule vide.

Si ce n'est pas correct, vous devrez peut-être ajouter .offset (1,0) code> avant le .select . Mais je ne sais toujours pas quelle est la valeur de votre variable «LastRow». Si la valeur est le dernier numéro de ligne de la feuille (où le mien est 1048576), vous devrez peut-être mettre .end(xlup).offset(1,0)

Si c'est correct, je me demande quel est le problème?

Cela peut aussi être fait avec le code ci-dessus:

Sub test()

Set sht = Sheets("Sheet1")
Set pt1 = sht.PivotTables(1)
Set pt2 = sht.PivotTables(2)
Range("E26").Value = pt1.GetPivotData("SUM").Value
Range("B26").Value = pt2.GetPivotData("SUM").Value

End Sub

Le mot "SUM" dépend sur quel est votre nom d'en-tête de colonne GrandTotal de tableau croisé dynamique. Le mien est SUM comme on le voit dans l'image ci-dessus.

Ce code ne dépend pas de la ligne où le tableau croisé dynamique GrandTotal est affiché. Vous n'avez donc pas besoin de coder pour trouver le mot du tableau croisé dynamique GrandTotal, puis offset (0,1) pour obtenir la valeur. Si, par exemple, au début, l'affichage GrandTotal à la ligne 200, et après le changement de source de données et actualise l'affichage GrandTotal à la ligne 1000, il vous donnera toujours le GrandTotal correct.

Faire pivoter le total général vers la cellule spécifiée

Option Explicit

Sub PivotGrandTotal()

    Const SheetName As String = "Sheet1"
    Const writeColumn As Long = 18

    Dim rng As Range          ' PivotTable's RowRange, Last Non-Empty Cell
    Dim findString As String  ' PivotTable's GrandTotalName
    ' If certain that whole number, then use "As Long" in the following line.
    Dim gTotal As Double      ' Grand Total Value
    Dim FER As Long           ' Write Row (First Empty Row)

    With ThisWorkbook.Worksheets(SheetName)
        ' Retrieve Grand Total.
        With .PivotTables(1)
            findString = .GrandTotalName
            Set rng = .RowRange
        End With
        gTotal = rng.Find(findString, , xlFormulas).Offset(, 1).Value
        ' Define writeRow.
        Set rng = .Columns(writeColumn).Find("*", , xlFormulas, , , xlPrevious)
        If Not rng Is Nothing Then FER = rng.Row + 1 Else FER = 1
        ' Write to writeCell.
        .Cells(FER, writeColumn).Value = gTotal
    End With

End Sub