Discussion :

[facteur]

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[eriiic]

Bonjour,

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

[78chris]

Bonjour

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 ?

[facteur]

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.

[halaster08]

Bonjour,

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.

[eriiic]

Bonjour,

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

[facteur]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[eriiic]

Voir post #6

[facteur]

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[facteur]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[eriiic]

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

[facteur]

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

[facteur]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub RetablitEvents
Application.EnableEvents = True
End Sub