Problème sur mise à jour TCD

Bonjour,

Je souhaiterai votre aide concernant une macro qui crée un Tableau Croisé Dynamique.

En faite, elle fonctionne bien pour sa création. Mais lorsque je fais des modifications dans mes données et ensuite je clique sur le bouton dont j'y ai affecté la macro, elle plante car elle trouve déjà un TCD.

Je joins le fichier intégralement et tel quel.

MERCI

@++++

Bonjour,

Essaie ainsi :

Option Explicit

Public Sub Pivot_Table()
Dim PTCache As PivotCache
Dim PT As PivotTable
Dim rng As Range
Dim n As Long

    Application.ScreenUpdating = False

    On Error Resume Next
    ActiveSheet.PivotTables(1).TableRange2.Clear
    On Error Resume Next

    With ActiveSheet
        n = .Cells(.Rows.Count, 13).End(xlUp).Row
        Set rng = .Cells(9, 13).Resize(n - 8, 2)
        Set PTCache = ActiveWorkbook.PivotCaches.Create _
                      (SourceType:=xlDatabase, _
                       SourceData:=rng)
        Set PT = PTCache.CreatePivotTable _
                 (.Cells(11, 18), _
                  TableName:="TCD_1")
    End With

    With PT
        .ManualUpdate = True
        .AddFields RowFields:="Types"
        With .PivotFields("Durée")
            .Orientation = xlDataField
            .Position = 1
            .Function = xlCount
            .NumberFormat = "#,##0"
            .Caption = "NB Durée"
        End With
        With .PivotFields("Durée")
            .Orientation = xlDataField
            .Position = 2
            .Function = xlSum
            .NumberFormat = "h:mm;@"
            .Caption = ChrW(931) & " Durée"
        End With
        .PivotCache.MissingItemsLimit = xlMissingItemsNone
        .RowAxisLayout xlTabularRow
        .ShowValuesRow = False
        With .PivotFields("Types")
            .PivotItems("").Visible = False
            .PivotItems("(blank)").Visible = False
        End With
        .ManualUpdate = False
    End With

    Set rng = Nothing
    Set PT = Nothing: Set PTCache = Nothing

End Sub

Bonsoir,

C'est tout à fait ce que je recherché : MERCI.

Maintenant dans le même ordre d'idée, je souhaiterais construire une page de synthèse de tout mes tableau Croisé Dynamique sur une feuille que j'ai nommé "Synthèse".

Sur cette feuille côte à cote (presque avec une colonne de décalage) je souhaite coller les différents TCD des "n" feuilles où se trouve mes TCD.

et j'ai en dessous un TCD qui récapitule, synthétise le cumul de tous le TCD du dessus. (voit modèle dans feuille synthèse)

Tout ceci serait appeler par le bouton nommé "Synthèse des courses".

C'est mon souhait mais je ne sais pas si cela est réalisable en une seule étape et je ne sais comment m'y prende.

MERCI pour vos avis et aides !

@+++

Re,

Je ne comprends pas tout, et surtout le process.

Reformule le tout.

Cdlt.

Bonsoir,

Je vais avoir des dizaines de TCD pour mes courses de livraison.

1) - sur la feuille "synthèse" je souhaiterais avoir tout mes Tableau Croisé Dynamique avec en plus le nom du titulaire + le N° de la course (soit les TCD côte à côte comme modèle copier sur la feuille synthèse actuelle soit l'un sous l'autre.

2 - ensuite je voudrais un tableau récapitulatif de tout les TCD avec la somme des données comme le tableau B21:D28 de la feuille "synthèse".

J'espère avoir été assez clair mais pas évident d'une façon écrite.

Encore MERCI !

bonjour

salut Jean-Eric

malpas, tu te lances dans une usine à gaz

et tu veux faire joli mais ça conduit à des complications

ma suggestion : une unique feuille pour toute la saisie de toutes les courses de tout le monde !

de longueur infinie, qui va durer des années

avec les en-têtes de colonnes :

DATE Numéro de PT Nom et couleur de la cours Nom du titulaire Durée Arrivée Lieu départ Type

très important la date

si tu veux afficher la semaine, ajoute une colonne = SEMAINE.ISO(date)

pas de colonnes vides !

ensuite chaque course est une nouvelle ligne (on répète chaque fois PT, Nomdelacourse et titulaire)

ensuite, on fait des TCD pour avoir des états de synthèses, par PT, par Nom par Titulaire, semaine, mois, années etc.

aucune formule, pas de VBA

ne pas essayer de faire joli durant les 3 mois au départ. Tu verras plus tard.

Bonsoir,

Tu as trés certainement Raison !

J'en prend note.

MERCI

@+++