reactualiser automatiquement un TCD a chaque fois que les données du tableau source changent

Bonjour,
Depuis ce matin , je me heurte à un problème qui m'empêche d'avancer dans mon travail.:pc:
Je vais essayer d'etre simple :roll:

Dans un fichier Excel, j'ai plusieurs feuilles dont:
- la feuille ("TMJ") où j'ai un tableau de données (I2 à L481).
- la feuille ("Nom_PPDC") où j'ai crée un TCD( "TCD_Nbr_PPDC") issu de ce tableau.
De ce tableau TCD, je récupère des données que j'insère dans un autre tableau (par un simple copier/coller).

Mon soucis, c'est que le tableau de donnees de la feuille "TMJ" est dynamique. Ces données changent assez frequemment au cours de la journée.
Ce que j'essaie de faire en vain, c'est de creer un petit code evenementiel qui , a chaque fois que les données du tableau (I2 à L481) changent, mon TCD issu de ce tableau se réactualise automatiquement .

J'ai inseré le code évenementiel ci-dessous dans la feuille "TMJ" mais rien ne se passe. :

Code:

---

1 2 3 4 5

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Worksheets("TMJ").Range("I2:L481")) Is Nothing Then Worksheets("Nom_PPDC").PivotTables("TCD_Nbr_PPDC").RefreshTable End If End Sub

---

Merci de votre aide

Bonjour,

transforme ta plage des données en Tableau (Insertion / Tableau)
Fait ton TCD sur ce tableau qui s'étendra automatiquement.
eric

Bonjour

Citation:

---

Envoyé par eriiic

Bonjour,

transforme ta plage des données en Tableau (Insertion / Tableau)
Fait ton TCD sur ce tableau qui s'étendra automatiquement.
eric

---

Sur 2003 c'est "Créer une liste de données" (de mémoire dans le menu données)
Si ta plage est bien déclarée en liste, même si sur 2003 tu ne peux nommer la liste, si tu crées ton TCD sur cette plage, il suivra l'ajout de lignes.

A noter que la fin de la liste est répérable par un petit angle bleu en bas à droite de la dernière cellule.

Edit : en te relisant, tu ne parles pas de lignes supplémentaires mais de changement de valeurs. Ton code devrait fonctionner. Comment s'effectue le changement ?

Bonjour à vous deux et merci de vous pencher sur mon problème;)

78Chris, effectivement, mon tableau de données source n'aura jamais de ligne supplémentaire.
Mon tableau, que l'on nommera B, aura soit des lignes en moins ou des valeurs modifiées.
Les valeurs de mon tableau B contiennent des formules dont celle d'une recherche ( fonction Index Equiv). Cette formule "Index Equiv" recupère des valeurs d'un autre tableau Excel, que l'on nommera A ( tableau en forme de plan). Je ne peux malheureusement pas modifié ce tableau A.
Donc, Lorsque ce tableau A est modifié, mon tableau B est lui même modifié garce aux formules. Mais le TCD issu de mon tableau B lui ne l'est pas automatiquement. je dois le réactualiser de façon manuelle (clique droit sur réactualiser).


eriiic, Comme je l'ai dis plus haut, mon tableau n'aura jamais de ligne supplémentaire. Je souhaite simplement réactualiser mon TCD lorsque les valeurs du tableau source sont modifiées.

Bonjour,

Citation:

---

Envoyé par facteur

Les valeurs de ce tableau contiennent des formules dont celle d'une recherche ( fonction Index Equiv). Cette formule "Index Equiv" recupère des valeurs d'un tableau Excel en forme de plan que je ne peux malheureusement pas modifié.

---

Le recalcul des fonctions Excel ne déclenche pas l'évènement worksheet_change, il faudrait que tu place l'évènement sur la/les feuille(s) où pointent tes formules.

Bonjour,

Citation:

---

Donc, Lorsque ce tableau A est modifié, mon tableau B est lui même modifié garce aux formules

---

C'est donc le tableau A qu'il faut superviser par Change, pas le B.
A condition que ce soit des saisies, sinon par l'événement Calculate comme dit précédemment. Ou s'il est sur une autre feuille à l'activation de celle-ci.
eric

Bonjour,
je viens de m'apercevoir que la code évènement ci dessous ne fonctionne pas avec des formules.:(

Code:

---

1 2 3 4 5

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Worksheets("TMJ").Range("I2:L481")) Is Nothing Then Worksheets("Nom_PPDC").PivotTables("TCD_Nbr_PPDC").RefreshTable End If End Sub

---

Voir post #6

Bonjour eriiic,
Comme je le pensais et comme le dis halaster08,

Citation:

---

le recalcul des fonctions Excel ne déclenche pas l'évènement worksheet_change

---

.
Donc sur tes conseils eriiic, j'ai place le code suivant dans l'événement Calculate .

Code:

---

1 2 3

Private Sub calulate() Worksheets("TMJ").PivotTables("TCD_Nbr_PPDC").RefreshTable End Sub

---

Ce code évènement est inséré dans la feuille TMJ ou se trouve mon tableau B.
mais rien ne se passe...:arf::mur:

Rebonsoir tout le monde,
je ne sais pourquoi mais j'ai reprise mon code evenement Change et je l'aie épuré : j'ai supprimé les lignes 2 et 4.
Et la tout fonctionne à merveille.
Bien evidemment, sur vos conseils à tous les deux, j'ai inséré ce code evenement dans la feuille ("semaine") où se trouve le tableau A.

Code:

---

1 2 3

Private Sub Worksheet_Change(ByVal Target As Range) Worksheets("Nom_PPDC").PivotTables("TCD_Nbr_PPDC").RefreshTable End Sub

---

.

merci encore à eriiic et halaster08 pour les subtilités des codes evenements :)
je ferme cette discussion

Bizarre que tu n'arrives pas à contrôler la plage modifiée.
Si tu n'as que ça sur cette feuille ça peut passer.
Mais si tu as d'autres choses à y faire c'est peut-être lourd de rafraichir le TCD à chaque saisie.
eric

Bonjour eriiic,
j'ai parlé trop vite :(
la procédure évènement Private Sub Worksheet_Change(ByVal Target As Range) empêche mes macro de s'éxecuter.
Pour pallier à cela, j'essaie de trouver le moyen de lancer mes macros et ensuite le code évenement Private Sub Worksheet_Change(ByVal Target As Range).
mais je bloque

J'ai trouvé le moyen de bloquer la procédure évènement Private Sub Worksheet_Change(ByVal Target As Range) pendan l'éxécution de ma amcro :

Code:

---

1 2 3 4

Application.EnableEvents = False 'lancer ma macro Application.EnableEvents = true call RetablitEvents

---

la procédure RetablitEvents permet de réactiver la gestion
événementielle dans le cas ou celle-ci ne s'activerait pas

Code:

---

1 2 3

Sub RetablitEvents Application.EnableEvents = True End Sub

---