XL 2016 consolidation plusieurs feuilles

[gds77]

Bonjour à vous tous,
Je vais essayer d'être claire😎. Sur le fichier joint je dispose de 3 feuilles pour mes banques et pour lesquelles je souhaiterais sur la feuille synthèse consolider les colonnes G "montant" et les colonnes F "catégorie" en fonction des années 2017 et 2018. Mon point d'entrée serait la colonne E "émetteur".

Merci d'avance pour votre aide.😉🙂

 

[sousou]

Bonjour
Quelle solution as-tu choisi?

 

[gds77]

Bonjour Sousou,
Ta solution sur le fichier joint, mais la macro ne fonctionne pas. Et je n'arrive pas à appliquer une mise à jour automatique des données banque sur la feuille de consolidation.

 

[sousou]

Il semble que je ne t'ai pas envoyé le bon fichier.
Ajoute ta feuille à celui-ci et test

 

[gds77]

Tu m'as renvoyé l'ancien fichier. Il me manque une banque. Il faut prendre le dernier banque 2018-01

 

[gds77]

A priori, une erreur "9" survient lors de l'exécution de la macro... banque surligné en jaune.

 

[gds77]

Je suis toujours coincée avec ma problématique de macro qui affichait une erreur "9" et maintenant une bibliothèque introuvable.
Si une personne du forum pouvait regarder les macros du fichier joint 🙂😉

Merci d'avance.

 

[gds77]

Toujours en train de chercher une solution. Mais suite à la "bibliothèque introuvable" impossible de supprimer la référence "manquant" dans VBA.

Je compte sur le forum. 😉

 

[sousou]

RE
Voici une nouvelle version.
Pour des problèmes de chevauchement des tableaux croisés, j'ai mis un tableau par feuille synthese
Ja'i aussi mis un bouton dans la feuille synthese qui va faire la mise à jour des deux tableaux.
J'ai aussi supprimé les segments, qui provoque chez moi un dysfonctionnement sur mon excel 2010

 

[job75]

Bonjour gds77, le forum,

Mais ce Weekend j'ai essayé la macro sur mon fichier d'origine qui contient d'autres feuilles que mes 4 banques. Et le résultat affiché intègre le montant total des feuilles présentes. Etant non sachant en macro, je n'ai pas pu modifier vos sources de calcul.

Oui un "sachant" trouve toujours une solution... Et un "non sachant" peut donner les bonnes informations dès le début...

En complétant le test sur les feuilles il suffit que les "autres feuilles" ne contiennent pas le mot "BANQUE" (majuscules) en B2 :

    If w.Name <> "Table" And Not w.Name Like "SYNTHESE*" And w.Range("B2") = "BANQUE" Then

Fichier (7).

 

[gds77]

Bonjour le forum,

Merci JOB75 pour cette nouvelle version🙂. En effet vous avez raison je ne pensais pas qu'une macro avait un impact sur des feuilles autres que Banque😉.
Par contre, je rencontre toujours les mêmes problème de" bibliothèque introuvable" sur les TCD de Sousou bien pratiques dans le fonctionnement pour choisir une ou plusieurs catégories.

A+

 

[sousou]

Bonjour
Il faudrait un peu plus de détails sur bibli...manquante
Onglet développement/visualbasic/outils/références

 

[job75]

Bonjour gds77, salut sousou,

J'ai vu au post #32 qu'en feuille "Macro1" de votre fichier vous avez utilisé les S/TOTAL de mon fichier (5) du post #26.

Il y avait une erreur lors de la création des S/TOTAL que je viens de corriger, il faut remplacer :

If Cells(i, 4) <> Cells(i + 1, 4) Then

par :

If LCase(Cells(i, 4)) <> LCase(Cells(i + 1, 4)) Then 'la casse est ignorée

Pour ce qui est de la référence manquante Microsoft Windows Common Controls-2 6.0 elle manque aussi chez moi.

Elle a été introduite avec le fichier du post #33 de sousou.

Il peut peut-être la supprimer.

A+

 

[gds77]

Bonjour Sousou,

Quand j'enregistre ton fichier et que je lance la mise à jour : erreur compilation "projet ou bibliothèque introuvable" avant même de modifier un champ. et sur la macro le message ci dessous.

Sub consolidation() en jaune
Sheets("consolidation").UsedRange.Delete
'banques = Array("BP", "BCP", "CDN")
Set banques = New Collection en bleu

A+

 

[gds77]

Sousou,

Pour compléter la réponse de JOB75, je joins le nouveau fichier intégrant ses modifs.

A+

 

[sousou]

Bonjour à vous deux.
En fait tout dépend du pc avec lequel je travail chez moi, il semble que j'ai une version d'excel qui dysfonctionne sur l'un des deux.
Pour bibli manquante suivre les conseils de JOB75 en suivant la méthode du post#41
Ou plus simplement prend le fichier joint