Mettre à jour une table pivot automatiquement Résolu

Question

Bonjour, 

Je souhaiterais mettre à jour automatiquement un onglet ("Pivot") contenant 4 tables pivot, par exemple chaque fois que l'on appuie sur "Enter".
Est-ce possible de faire cela via un code ?


D'avance merci pour votre aide.


Fadmaam

Patrice33740 · Answer

Bonjour,

Avec un code évènementiel dans le module de feuille. 
Choisir l'évènnement le mieux adapté, par exemple :

- Chaque fois que la feuille est activée :
Private Sub Worksheet_Activate()
Dim p As PivotTable
  For Each p In Me.PivotTables
    p.RefreshTable
  Next p
End Sub

- Ou à chaque changement de cellule active dans la feuille :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim p As PivotTable
  For Each p In Me.PivotTables
    p.RefreshTable
  Next p
End Sub

Mettre à jour une table pivot automatiquement

1 réponse

Discussions similaires

Newsletters