macro vba Résolu

Question

Bonjour, je cree tableau croisé dynamique à partir de ma base de données et je voudrais trouver une macro pour automatiser la mise à jour de mon tableau croisé dynamique quand ma base de données est mise à jour.comment faire?? 

Merci par avance


Configuration: Windows XP / Internet Explorer 7.0

Le Pingou · Answer

Bonjour, 
En principe pas besoin de macro le TCD se mais à jour automatiquement.
Précisez ce que vous entendez par : quand ma base de données est mise à jour ?

jacinthelafleur · Answer

Bonjour,
lorsque je dis quand ma base de données est mise à jour cela signifie que chaque fin de mois, je réactualise manuellement ma base de données avec de nouvelles données de chaque fin de mois c'est à dire décembre janvier février etc merci pour votre réponse.

Tessel75 · Answer

Bonjour, 
Je pense que lorsque Le Pingou vous demandait : " Précisez ce que vous entendez par : quand ma base de données est mise à jour ?  " la question portait sur la base de données, plus que sur la mise à jour. 
De quelle base de données s'agit-il ?  Est-ce une base Access avec une extraction via une requête et transfert sur Excel pour traitement par TCD Excel, ou bien d'un tableau Excel que vous appelez Base de données ? Les réponses de LePingou seront différentes parce que les traitements des macros seront différents. Cordialement.

Le Pingou · Answer

Bonjour,
Merci pour les informations, cependant elles ne me permettent dans faire plus.
Désolé.

jacinthelafleur · Answer

Bonjour,
quand je dis base de données je parle d'un tableau sous excel que j'ai crée avec des données et que je réactualise manuellement chaque fin de mois avec de nouvelles données. merci pour votre réponse

Le Pingou · Answer

Bonjour,
Merci.
Lors de la mise à jour le tableau est de même dimension (nombre de ligne et colonne identique) le TDC se met à jour automatiquement.
Dans le cas où le nombre de lignes varie (en plus ou moins) utiliser le TCD avec une plage nommée dynamique, par exemple :
Dans gestionnaire de noms / Nouveau nom et sous:

Nom : MonTableau
Fait référence à : =DECALER($A$1;;;NBVAL($A:$A);NBVA($1:$1))

Ensuite créer votre TCD avec la plage MonTableau : si vous rajoutez/supprimez des lignes/colonnes elles seront actualisées.

jacinthelafleur · Answer

bonjour à vous!
J'ai essayé de créer un document avec un petit échantillon et des données voici le lien https://www.cjoint.com/?0AbwmOSGtT9 . J'aimerais créer une petite macro (une fois que mon tableau croisé dynamique avec 8 colonnes: types de produit, objet, devise, entité, septembre,variation septembre octobre, octobre, variation octobre, novembre, novembre etc est créer) me permettant d'automatiser la mise à jour de mon tableau croisé dynamique quand ma base de données est mise à jour( c'est à dire au fur à mesure que j'ai les données de décembre,janvier, février etc la petite macro que j'aurai créer me permettrait d'actualiser automatiquement mon tableau croisé dynamique tout en tenant compte des nouvelles données sur les mois à venir ( décembre, janvier, février, mars, etc) que j'aurai rajouté sur ma base de données de telles sorte qu'on actualisant mon TCD qu'en plus des données déjà existantes( variation septembre oct... etc) que j'ai les nouvelles données c'est à dire variation novembre décembre, décembre, variation décembre janvier, janvier etc...) Avez vous svp une idée de comment faire ma macro? Merci d'avance pour votre réponse.

Le Pingou · Answer

Bonjour,  
Merci pour le fichier.  
Pourquoi n'avez-vous pas mis le TCD correspondant aux 8 colonnes comme base de départ ?  
Remarque, je pense qu'il faut tenir compte des différents type de produit et non pas uniquement [bonbon]   
   
Salutations.  
Le Pingou

Le Pingou · Answer

Bonjour, 
mais je n'ai pas trop compris votre question 
Eh bien sans votre TCD (existant) il n'est pas possible de créer une macro qui y corresponde et de plus selon sa configuration la macro n'est pas nécessaire. 
En plus les valeurs du nouveau mois doivent-t-elles être ajouté au TCD ou prendre la place du dernier mois (exemple pour novembre : septembre, variation sept/oct, octobre, variation oct/nov 
Devient à la place : octobre, variation oct/oct, novembre, variation nov/dec) 
Ou en plus : septembre, variation sept/oct, octobre, variation oct/nov, novembre, variation nov/dec 

Si vous avez déjà une macro, alors mettre une copie du code.
  
  
Salutations. 
Le Pingou

Le Pingou · Answer

Bonjour,
Merci pour le code enregistré.
Et pourquoi pas de réponse à :
En plus les valeurs du nouveau mois doivent-t-elles être ajouté au TCD ou prendre la place du dernier mois (exemple pour novembre : septembre, variation sept/oct, octobre, variation oct/nov
Devient à la place : octobre, variation oct/oct, novembre, variation nov/dec)
Ou en plus : septembre, variation sept/oct, octobre, variation oct/nov, novembre, variation nov/dec
Toutefois il y vraiment dommage que vous n'avez pas mis la macro existante !

michael.o · Answer

moi ousi la meme a vair

Le Pingou · Answer

Bonjour,
Merci pour les informations, cette fois c'est clair.
En résumé le TCD sera chaque mois augmenté de 2 colonnes... !
Une réponse va suivre.

Le Pingou · Answer

Bonjour,
Proposition basée sur le TCD existant avec au minimum les valeurs pour 1 mois (mois YTD et Variation mois/mois+1). Le nombre de ligne est fixé à 77.
J'ai laissé la source de données sur plage [Base!$B$4:$J$77] comme cela vous pouvez faire un premier essai directement.
Le fichier : https://www.cjoint.com/?3AepGIGqtsM

Le Pingou · Answer

Bonjour,
C'est étonnant, le code fonctionne correctement chez moi.
Il serait bien de connaitre le message d'erreur ... !
Vous pouvez aussi faire comme suit, clic sur le bouton de mise à jour et sitôt le message d'erreur vous fates une copie d'écran  ensuite sur débogage et nouvel copie d'écran et mettre les 2 sur un document Word que vous mettez sur https://www.cjoint.com/ et poster le lien.
J'attends...

Le Pingou · Answer

Bonjour :
Voir le fichier : https://www.cjoint.com/?3Aer2eLgxRf

Le Pingou · Answer

Bonjour, 
Je ne peux pas dire que cela provient de la version 2003, car vous ne m'avez pas fourni ce que j'avais demandé, c'est dommage pour vous. 
Je prendrai la peine de regarder le code de votre message mais pas de suite. 
  
  
Salutations. 
Le Pingou

Le Pingou · Answer

Bonjour,
A première vue, ce n'est vraiment pas bien de mettre un nom de variable (Recap ---- Tcd) qui porte le même nom qu'une feuille [Sheets("Recap")], je n'ai pas testé mais je pense que vous aurez des problèmes.
Encore une fois, la réponse à ma demande ......poste 23 et rappel poste 26... !
Bon week-end.

Le Pingou · Answer

Bonjour,
Au passage, voir sur fichier : https://www.cjoint.com/?3AgpFs5Sft1
Bon Dimanche

Le Pingou · Answer

Bonjour, 
Ce n'est pas forcément sur cette ligne surlignée en jaune,  
Pourquoi vous avez un  avertissement de sécurité ... dans votre classeur juste au-dessous du ruban... ? 
Note : contrôler l'exactitude du nom de la feuille (Base)... ! 
  
Salutations. 
Le Pingou

Le Pingou · Answer

Bonjour,
Eh bien en regardant plus attentivement je constate que vous travaillez avec un tableau de données sur la feuille [Base] et que tous les titres de colonne de [type de produit, Objet,   ...   Sept YTD, Variation ....,janv YTD] et suivi par un autre titre différent de valeur du mois ; c'est-à-dire que cela ne correspond pas à votre l'exemple car il y a encore d'autre colonne qui suivent ce qui va donner un résultat incohérent  dans le TCD car vous vouliez la mise à jour des valeurs qui concerne le mois et la variation mois/mois+1.
Ce qui n'est pas prévu dans mon code .... ! Que faire... !.

Le Pingou · Answer

Bonjour,
Avec un exemple qui reflète la situation exact (par exemple une copie de votre classeur si confidentiel vous pouvez poster le lien sur un MP), pour avoir la structure exacte de la base de données (y compris son évolution... !) et une explication du résultat à obtenir avec le TCD (je pense que c'est déjà en partie correcte..).

jacinthelafleur · Answer

Bonsoir cela veut dire quoi poster le lien sur un MP? messagerie privé? Si oui comment faire?quelle est la messagerie privé?
Pas de problème pour " mettre un exemple qui reflète la situation exact (par exemple une copie de votre classeur si confidentiel vous pouvez poster le lien sur un MP), pour avoir la structure exacte de la base de données (y compris son évolution... !) et une explication du résultat à obtenir avec le TCD" dès reception de votre réponse quant à la messagerie privé.
Merci d'avance pour votre réponse

Le Pingou · Answer

Bonjour,
Concernant le problème de la version 2003, Veuillez essayer cette version avec une modification dans le code.
Le fichier proposé :  https://www.cjoint.com/?3AgxZdLJaja

Le Pingou · Answer

Bonjour,
Je suis vivement intéressé de savoir si cela fonctionne avec la version 2003, surtout pour d'éventuel cas similaire.
Merci.

Le Pingou · Answer

Bonjour,
Selon votre classeur, la feuille [Base] qui sert de source de données pour le TCD n'est pas utilisable tel quelle.
Raison : les titres des colonnes [H :M] sont en double avec [X :AC], la source de données doit avoir des noms de champs unique. 
En plus il y a des colonnes [R :W] ... que faire... !

Le Pingou · Answer

Bonjour,
D'accord pour les colonnes inutiles [X :AC] à supprimer.
Ces colonnes [R :W] ne semblent avoir aucun lien avec le reste du tableau ou alors vous avez une explication ... ?

Le Pingou · Answer

Bonjour,
Proposition à essayer.
Pour commencer vous cliquez directement sur [Mise à jour du TCD] pour voir ce qui se passe !
Ensuite vous poursuivrez avec l'ajout de données selon la petite note en fin de plage.
Si tout marche bien, si nécessaire, il est possible de mettre en forme les colonnes ajoutées dans le TCD.
Le fichier pour test : https://www.cjoint.com/?3AixbldkthB

Le Pingou · Answer

Bonjour,  
Je pense que vous avez oublié de réaliser ce que j'avais indiqué une première fois pour le même problème :  
Note : contrôler l'exactitude du nom de la feuille (Base)... !    
Vous corrigez celui de la feuille, pas celui du code .... pas d'espace après le [e]...   
   
Salutations.  
Le Pingou

Le Pingou · Answer

Bonjour,

Vous corrigez celui de la feuille, pas celui du code .... pas d'espace après le [e]...

Le Pingou · Answer

Bonjour, 
Eh bien vous avez toujours parlé d'ajouter des données. 
C'est vraiment dommage de le dire maintenant, car cela pouvait se faire directement au début. 
Concernant le deuxième problème, si vous modifiez des données déjà existantes, le TCD se met à jour automatiquement, rien d'autre à faire. 
J'y pense, vous n'avez rien mentionné par rapport au nombre de ligne de la base de données, fixé sur 77, c'est étonnant... ?  
   
Salutations.  
Le Pingou

Le Pingou · Answer

Bonjour,
Si vous le  permettez je pense que vous devriez aussi consulter l'aide pour comprendre le fonctionnement d'un TCD.

Le Pingou · Answer

Bonjour,
Petit rappel selon ce que j'ai compris, si vous modifier des données et/ ou ajouter des lignes à votre base de données, le tableau croisée dynamique se m'est à jour automatiquement (c'est une des propriétés du TCD) .
Par contre lorsque vous ajoutez une ou plus de colonne y compris leurs données, vous devez modifier la source de données du TCD et en plus ajouter les champs concernés dans la zone des valeurs.
Vous avez 2 possibilités de le réaliser :

La première manuellement, le plus simple.

La deuxième plus complexe en passant par une procédure VBA  et c'est ce que j'ai réalisé. 

Normalement vous avez la possibilité de modifier ma procédure pour tenir compte d'une suppression de colonne.

Le Pingou · Answer

Bonjour,
Pas de problème je suis entrein de le réaliser.
Patience.

Le Pingou · Answer

Bonjour,
La dernière mouture selon ce que j'ai compris.

Dans le but de prendre en compte une variation du nombre de lignes (en plus ou moins) utiliser le TCD avec une plage nommée dynamique, par exemple : 
voir extrait d'image feuille [Base].
Ensuite attribuer le nom de la plage comme source de données de votre TCD :
voir extrait d'image feuille [Recap].

Concernant la variation du nombre de colonnes (en plus ou en moins [minimum 9]), elle est gérée par une procédure activer par le bouton de commande [Mise à jour du TCD].

La proposition : https://www.cjoint.com/?3Aki3ZEp4NP

Le Pingou · Answer

Bonjour,
Merci de préciser sur quel classeur le problème survient ?

Le Pingou · Answer

Bonjour,
Je pense sérieusement que la question est trop simple
Sur quel classseur .... le votre ou le mien ....
Ä vous lire j'en déduis que c'est sur votre classeur... !
Ma question : est-ce que cela fonctionne avec le mien... !

Le Pingou · Answer

Bonjour,
Dans la procédure, vous insérez après cette ligne :
Set montcd = Sheets("Recap").PivotTables(1)
la ligne qui suit :
MsgBox "Nom de la plage: " & montcd.SourceData
Lancer la procédure et vous me communiquez le message qui apparaitra .... !

Le Pingou · Answer

Bonjour,
Alors c'est bien clair, vous n'avez pas reproduit sur votre classeur ce que je vous ai mentionnée dans le poste 68.
Pourquoi.... Nul ne le sait ...

Le Pingou · Answer

Bonjour,
Désolé, j'ai interverti 2 dossiers, voici celui qui vous concerne : https://www.cjoint.com/?3AsoolyWVJz

Le Pingou · Answer

Bonjour,
C'est vraiment dur la vie, c'est pourtant mentionné dans le message 68, à savoir : 
Dans le but de prendre en compte une variation du nombre de lignes (en plus ou moins) utiliser le TCD avec une plage nommée dynamique, par exemple : 
voir extrait d'image feuille [Base]. --- Nommée la plage et fait référence à comme le montre l'extrait
Ensuite attribuer le nom de la plage comme source de données de votre TCD : 
voir extrait d'image feuille [Recap]. ------ Le nom de cette plage doit être introduit comme La source de données pour le TCD comme le montre l'extrait
Est-ce clair...
Lors du dernier contrôle que je vous ai demandé avec la [MsgBox "Nom de la plage: " & montcd.SourceData]  et suite au résultat que vous aviez donnée [une fenêtre apparaît nom de plage : Base!L4C2:L77C13], je pense que vous n'avez pas modifié la source de données pour le TCD sur la feuille [Recap]

Le Pingou · Answer

Bonjour,
Alors c'est parfait que cela fonctionne maintenant, bravo.
Avec cette méthode vous ne vous souciez plus du nombre de lignes de votre base qui est automatiquement prise en compte par la fonction   [=DECALER(Base!$B$4;;;NBVAL(Base!$B:$B);12)].
Il suffit d'ajouter (ou supprimer à la fin) une ou plusieurs lignes à la suite des autres et c'est tout, pas de chanhement dans le code puisque ce dernier travail avec le nom de la plage...[tblsdtcd] ... donc toujours juste quelques soient le nombre de lignes.
Faite un essai pour vous convaincre... ( par exemple supprimer les 20 dernières...)!

Macro vba - Page 3

Discussions similaires

Newsletters