Mettre à jour une table pivot automatiquement

Résolu/Fermé
fadmaam Messages postés 34 Date d'inscription mardi 5 mai 2015 Statut Membre Dernière intervention 3 novembre 2015 - Modifié par fadmaam le 28/07/2015 à 16:36
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 2 août 2015 à 14:13
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
A voir également:

1 réponse

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
29 juil. 2015 à 17:08
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
0
fadmaam Messages postés 34 Date d'inscription mardi 5 mai 2015 Statut Membre Dernière intervention 3 novembre 2015
2 août 2015 à 10:23
Bonjour Patrice,

Ca fonctionne nickel !

Merci


Cordialement,
FadY
0
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779 > fadmaam Messages postés 34 Date d'inscription mardi 5 mai 2015 Statut Membre Dernière intervention 3 novembre 2015
2 août 2015 à 14:13
De rien, au plaisir de te relire sur le Forum

Cordialement
Patrice
0