mise à jour de TCD automatiquement

**dani317** · 29/03/2007, 14h06

Bonjour,

J'ai créé un tableau dynamique à partir de certain nombre de données. Je souhaiterais qu'à chaque fois que des lignes sont ajoutées, elles apparaissent automatiquement dans le tableau croisé dynamique, sans avoir à modifier la plage de données liées à ce tableau.

Merci d'avance

**illight** · 29/03/2007, 15h01

A part par macro, je vois pas trop comment faire ton bidule

Invité · 29/03/2007, 15h32

Bonjour Dani317,

Comme le dit Illight il y a bien sûr la solution d'une macro qui serait sans aucun doute plus automatique.

Sinon la solution manuelle consiste à définir la plage de cellule avec des lignes vides.

Par exemple la plage est A1:c125. Vous imaginez que vous pourrez atteindre les 500 lignes maximum. Vous sélectionnez dans ce cas la plage A1:c500 pour construire votre TCD.

Vous cliquez ensuite sur la petite flèche qui est dans la cellule qui contient le titre de vos données "en ligne" et vous décochez la case (vide).

Quand vous ajoutez de nouvelles données vous cliquez ensuite à l'intérieur de votre TCD puis menu "Données" puis cliquer sur "Actualiser les données".

J'ajouterai que l'on peut ensuite combiner les 2 solutions en faisant ce qui est dit ci-dessus puis dans la denêtre Visual basic cliquer sur la feuille contenant votre TCD et coller le code ci-dessous :

Code :

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

1
2
3
4
5
6
Sub Macro1()
 
 
    Range("E6").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique1").RefreshTable
End Sub

Il ne reste plus qu'à créer un bouton sur cette feuille et lui affecter la macro.
(1 clic de souris au lieu de 3 pour réaliser l'actualisation).

Amicalement.

**illight** · 29/03/2007, 15h36

Si tu fais ça, dans ton tableau ça va t'afficher des lignes vides non ?

Invité · 29/03/2007, 15h49

Bonjour Illight,

Non car j'ai bien précisé :

Vous cliquez ensuite sur la petite flèche qui est dans la cellule qui contient le titre de vos données "en ligne" et vous décochez la case (vide).

D'autre part j'ai ajouté dans ma réponse le fait qu'il pouvait combiner ensuite avec une macro toute simple pour lancer l'actualisation.

Amicalement.

**kryssy** · 30/03/2007, 03h17

Salut,
ma proposition n'est valable que si ton TCD et ton tableau source ne sont pas sur la même feuille.
Tout d'abord sur la feuille qui contient ton tableau source tu nomme ce tableau : Insertion/nom/définir
tu nomme le tableau Ex sourceTCD et dans "fait référence à " tu utilise la fonction décaler pour que sourceTCD corresponde toujours à ton tableau avec ajout ou suppression de lignes
ex de formule =DECALER(Feuil1!$A$1;0;0;NBVAL(Feuil1!$A:$A);3)
ou

Feuil1!$A$1 est la 1ère cellule de ton tableau

NBVAL(Feuil1!$A:$A) est le nombre de ligne de ton tableau

et 3 le nombre de colonnes

ensuite tu crée sur une autre page ton TCD avec comme plage de donnée sourceTCD

et enfin tu met le code suivant en cliquant droit dans l'onglet de la feuille du TCD/visualiser le code :

Code :

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

1
2
3
4
5
6
7
8
 
 
Private Sub Worksheet_Activate()
On Error Resume Next
 
ActiveSheet.PivotTables("nom du TCD").RefreshTable
 
End Sub

Normalement ton TCD est mis à jour à chaque fois que tu charge ta feuille

**dani317** · 01/04/2007, 10h10

bonjour,
Merci bcp a tous, et merci kryssy.
j'ai utilisé ta methode et ça marche nikel.

merci bcp encore.

j'ai juste une question: ça sert à koi la ligne "On Error Resume Next"

**Maxence HUBICHE** · 01/04/2007, 11h27

Ca sert à t'empécher de voir qu'une erreur a lieu, quand bien même elle se déclenche.
C'est très très très moyen comme système de gestion des erreurs !