Actualiser un tableau croisé dynamique automatiquement

Bonjour à tous,

J'ai un tableau croisé dynamique qui doit s'actualiser automatiquement à chaque fois que des données changent. J'ai trouver un code VBA qui est sensé faire le boulot. Cependant, mes notions de macro/VBA sont TRÈS loin dans ma mémoire ... J'ai essayer de suivre les étapes mentionné sur le site. Lorsque je l'active manuellement ca marche, mais rien ne s'automatise...

Je vous joint mon fichier ainsi que le site que j'ai consulté pour le code VBA ... Si quelqu'un pourrait m'aider à faire fonctionner le tableau et bien m'expliquer les étapes manquantes afin que je soit capable de le refaire dans d'autre fichier Excel.

Merci d'avance !

Bonjour,

Message supprimé.

Vois celui que Jean Eric a posté et qui prendra le lead.

Bonjour,

A priori, vu ton fichier et le TCD dans la feuille active, ce code devrait suffire.

Tu peux effacer tous les autres procédures.

Procédure événementielle à mettre dans le module de Feuil1 (CD).

L'actualisation du TCD est automatique à chaque modification de la plage G11:G40.

Cdlt.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("G11", "G40")) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        ActiveSheet.PivotTables(1).RefreshTable
    End If
End Sub

Bonjour Jean-Eric,

Merci beaucoup de l'aide ! Ca marche à merveille!

Tu es mon sauveur !