XL 2016 consolidation plusieurs feuilles

sousou

XLDnaute Barbatruc

• 26 Mars 2018

• #31

Bonjour
Quelle solution as-tu choisi?

 

Vote positif 0 Vote négatif

gds77

XLDnaute Occasionnel

• 26 Mars 2018

• #32

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.

 

Pièces jointes

• Copie Banques 2018-01.xlsm

  1.5 MB · Affichages: 25

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 26 Mars 2018

• #33

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

 

Pièces jointes

• Banques 2017-2.xlsm

  105.6 KB · Affichages: 37

Vote positif 0 Vote négatif

gds77

XLDnaute Occasionnel

• 26 Mars 2018

• #34

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

 

Vote positif 0 Vote négatif

gds77

XLDnaute Occasionnel

• 26 Mars 2018

• #35

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

 

Vote positif 0 Vote négatif

gds77

XLDnaute Occasionnel

• 26 Mars 2018

• #36

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.

 

Pièces jointes

• Copie Banques 2018-01.xlsm

  1.5 MB · Affichages: 35

Vote positif 0 Vote négatif

gds77

XLDnaute Occasionnel

• 26 Mars 2018

• #37

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

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 26 Mars 2018

• #38

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

 

Pièces jointes

• Banques 2018-02.xlsm

  2.7 MB · Affichages: 28

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Mars 2018

• #39

Bonjour gds77, le forum,

gds77 à dit:

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.

Cliquez pour agrandir...

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 :

Code:

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

Fichier (7).

 

Pièces jointes

• Banques 2017(7).xlsm

  76.6 KB · Affichages: 26

Vote positif 0 Vote négatif

gds77

XLDnaute Occasionnel

• 27 Mars 2018

• #40

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+

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 27 Mars 2018

• #41

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 27 Mars 2018

• #42

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 :

Code:

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

par :

Code:

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+

 

Vote positif 0 Vote négatif

gds77

XLDnaute Occasionnel

• 27 Mars 2018

• #43

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+

 

Vote positif 0 Vote négatif

gds77

XLDnaute Occasionnel

• 27 Mars 2018

• #44

Sousou,

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

A+

 

Pièces jointes

• Copie Banques 2018-01.xlsm

  182.8 KB · Affichages: 23

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 28 Mars 2018

• #45

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

 

Pièces jointes

• Copie de Banques 2018-03.xlsm

  2.9 MB · Affichages: 29

Vote positif 0 Vote négatif