Mettre à jour une table pivot automatiquement
Résolu
fadmaam
Messages postés
34
Date d'inscription
Statut
Membre
Dernière intervention
-
Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention -
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
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:
- Mettre à jour une table pivot automatiquement
- Table ascii - Guide
- Mettre a jour chrome - Accueil - Applications & Logiciels
- Table des matières word - Guide
- Mise a jour windows 10 - Accueil - Mise à jour
- Mettre a jour chromecast - Accueil - Guide TV et vidéo
1 réponse
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 :
- Ou à chaque changement de cellule active dans la feuille :
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
Ca fonctionne nickel !
Merci
Cordialement,
FadY
Cordialement
Patrice