Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment actualiser automatiquement un tableau croisé dynamique dans Excel?

Normalement, lorsque nous mettons à jour les données source d'un tableau croisé dynamique, le tableau croisé dynamique ne sera pas mis à jour tant que nous n'aurons pas cliqué Analyser > Rafraîchir manuellement. Ce sera assez ennuyeux si le tableau pivotant reste dans une autre feuille de calcul et vous pouvez oublier de l'actualiser. Ici, cet article présentera un VBA pour actualiser automatiquement un tableau croisé dynamique dans Excel.

Actualiser automatiquement un tableau croisé dynamique par VBA

Combinez facilement plusieurs feuilles de travail / classeurs / fichiers CSV dans une seule feuille de travail / classeur

Il peut être fastidieux de combiner des dizaines de feuilles provenant de différents classeurs en une seule feuille. Mais avec Kutools for Excel's Combiner (feuilles de travail et classeurs) utilitaire, vous pouvez le faire avec seulement quelques clics! Fonctionnalité complète Essai gratuit 60-day!
annonce combiner feuilles livres 1



flèche bleue droite bulleActualiser automatiquement un tableau croisé dynamique par VBA

Veuillez suivre les étapes ci-dessous pour appliquer le VBA pour actualiser automatiquement le tableau croisé dynamique spécifié dans Excel.

1. Dans la barre d'onglets Feuille, cliquez avec le bouton droit sur l'onglet de feuille contenant les données source, puis sélectionnez Voir le code dans le menu contextuel. Voir la capture d'écran:

2. Dans la fenêtre Microsoft Visual Basic pour Applications d'ouverture, collez le code.

VBA: Actualiser automatiquement le tableau pivotant spécifié

Private Sub Worksheet_Change(ByVal Target As Range)
Worksheets("sheet name").PivotTables("PivotTable name").PivotCache.Refresh
End Sub

À noter :
(1) Dans le code de Worksheets ("nom de la feuille") .PivotTables ("Nom de tableau croisé dynamique") .PivotCache.Refresh, s'il vous plaît remplacer nom de la feuille avec le nom de la feuille contenant le tableau croisé dynamique spécifié, et remplacez le Nom de tableau croisé dynamique avec le nom du tableau pivotant spécifié.
(2) Sélectionnez n'importe quelle cellule dans le tableau croisé dynamique spécifié, vous obtiendrez son nom sur le Analyser onglet (ou Options languette). Voir la capture d'écran:

3. Enregistrez le code.

À partir de maintenant, lorsque vous modifiez les données dans les données source, le tableau pivot spécifié sera actualisé automatiquement.


flèche bleue droite bulleArticles Liés:



Outils de productivité recommandés

Office Tab

étoile d'or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d'or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d'or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d'écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    César Augusto Betanc · 1 years ago
    If the Pivot Table is on the same sheet that changes data, you need avoid a loop, so you need implement a conditional statement

    Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, Range("M:M")) Is Nothing Then
    Exit Sub
    Else
    'MsgBox "You just changed" & Target.Address
    Worksheets("SheetName").PivotTables("PivotTableName").PivotCache.Refresh
    End If

    End Sub