XL 2016 consolidation plusieurs feuilles

job75

XLDnaute Barbatruc

• 28 Mars 2018

• #46

Bonjour gds77, sousou, le forum,

Oui maintenant c'est bon sousou, il n'y a plus la référence manquante.

J'ai juste complété le fichier joint en mettant à jour les codes des feuilles "Macro1" et "Macro2".

Et en supprimant cette liaison intempestive avec le fichier Banques 2017.xlsx.

Pour ce faire j'ai ouvert un nouveau document (vierge) que j'ai enregistré sous le nom "Banques 2017.xlsx".

Puis j'ai ouvert le fichier et cliqué sur "Modifier les liaisons" et "Vérifier l'état".

Edit : ci-joint aussi le fichier du post #44 après suppression de la liaison intempestive.

Bonne journée.

 

Pièces jointes

• Copie de Banques 2018-03.xlsm

  2.7 MB · Affichages: 38
• Copie Banques 2018-01.xlsm

  145 KB · Affichages: 25

Dernière édition: 28 Mars 2018

Vote positif 0 Vote négatif

gds77

XLDnaute Occasionnel

• 28 Mars 2018

• #47

Bonjour le forum,

Un grand merci à JOB75 et Sousou pour cette aide très précieuse.
Une question à JOB 75 avant de faire une bêtise🙁 est ce je peux faire une MFC couleur sur les Sous totaux de la macro sans qu'elle soit perturber pour autant. Et sinon, sur la macro client apparaissent des lignes vierges (client sur 2016) comment les supprimer.

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Mars 2018

• #48

Re,

Il n'y a aucun problème pour ajouter manuellement une MFC pour colorer les lignes des S/TOTAL.

Seulement il faut l'appliquer aux colonnes D:H entières puisque la macro supprime toutes les lignes sous la ligne 4 (RAZ).

Pour les lignes "vierges" elles ne sont pas dues au fait qu'il s'agit de 2016 mais au fait que le nom du client n'a pas été entré.

Dans ce cas j'entre dans les cellules en colonne E des feuilles de banque le texte "///".

Il y en a beaucoup dans votre fichier, voyez les cellules D1.

Par contre si un client n'a aucun montant <> 0 en 2017 et 2018 je suis bien d'accord il ne faut pas l'afficher :

Code:

                    If w.Cells(i, 5) = "" Then w.Cells(i, 5) = "///" 'sécurité, client vide
                    If w.Cells(i, 6) = "" Then w.Cells(i, 6) = "###" 'sécurité, catégorie vide
                    If v1 - v2 + v3 - v4 > 0 Then
                        x = w.Cells(i, 5) & Chr(1) & w.Cells(i, 6)
                        d1(x) = d1(x) + v1: d2(x) = d2(x) + v2
                        d3(x) = d3(x) + v3: d4(x) = d4(x) + v4
                    End If

Les fichiers joints sont à jour avec ce qui précède.

A+

 

Pièces jointes

• Copie de Banques 2018-03.xlsm

  2.7 MB · Affichages: 26
• Copie Banques 2018-01.xlsm

  145.7 KB · Affichages: 25

Vote positif 0 Vote négatif

gds77

XLDnaute Occasionnel

• 30 Mars 2018

• #49

Bonjour Job75

En effet j ai vérifié l'ensemble de mes fichiers et beaucoup de champs ne sont pas renseignés, 😡merci pour l'astuce ///. Par contre concernant l'activité à 0 en 2017 et 2018, comment puis je intégrer votre code (text) sans modifier mes nouveau fichiers.

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 30 Mars 2018

• #50

Bonjour gds77,

job75 à dit:

Par contre concernant l'activité à 0 en 2017 et 2018, comment puis je intégrer votre code (text) sans modifier mes nouveau fichiers.

Cliquez pour agrandir...

Pour "intégrer" des codes il faut les comprendre un minimum !

Pourquoi croyez-vous que j'ai ajouté le test If v1 - v2 + v3 - v4 > 0 Then dans mon code du post #48 ???

C'est "intégré" dans les fichiers joints !

A+

 

Vote positif 0 Vote négatif

gds77

XLDnaute Occasionnel

• 11 Avril 2018

• #51

Bonsoir le forum,

Je travaille depuis plusieurs jours sur le fichier joint qui ne veut plus s'ouvrir depuis ce midi : A l'ouverture "Excel a cessé de fonctionner". Sur d'autres fichier plus anciens tout fonctionne normalement....
j'ai essayé de copier, de renommer...Mais rien...Je n'ai aucune solution et ne comprends pas ce problème.

Merci d''avance pour votre aide

 

Pièces jointes

• Banques 2018-07.xlsm

  2.5 MB · Affichages: 26

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 12 Avril 2018

• #52

Bonsoir gds77,

Impossible d'ouvrir le fichier. Le fichier est corrompu.

Cliquez pour agrandir...

Bonne nuit.

 

Vote positif 0 Vote négatif

gds77

XLDnaute Occasionnel

• 12 Avril 2018

• #53

Bonjour Job75 et le forum,

J'ai récupéré une ancienne version, mais les liaisons avec des fichiers inexistants persistent toujours. En parcourant le forum, cela pourrait venir de MFC suite à des "copier coller", mais je ne sais pas comment les supprimer.

Merci d'avance de votre aide 🙂

 

Pièces jointes

• Banques 2018-02.xlsm

  3.4 MB · Affichages: 28

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 12 Avril 2018

• #54

Bonjour gds77,

gds77 à dit:

J'ai récupéré une ancienne version, mais les liaisons avec des fichiers inexistants persistent toujours.

Cliquez pour agrandir...

Il sert à quoi mon post #46, je vous le demande ?

job75 à dit:

Et en supprimant cette liaison intempestive avec le fichier Banques 2017.xlsx.

Pour ce faire j'ai ouvert un nouveau document (vierge) que j'ai enregistré sous le nom "Banques 2017.xlsx".

Puis j'ai ouvert le fichier et cliqué sur "Modifier les liaisons" et "Vérifier l'état".

Cliquez pour agrandir...

Il faudra faire la même chose pour Trésorerie 2018.xlsx.

Bonne journée.

 

Vote positif 0 Vote négatif

gds77

XLDnaute Occasionnel

• 12 Avril 2018

• #55

Effectivement !!! le post 46 m'a échappé.
Merci pour ce rappel de bon sens 😉
Bonne journée à vous aussi.

 

Vote positif 0 Vote négatif

gds77

XLDnaute Occasionnel

• 12 Avril 2018

• #56

Oups !!! malheureusement cela ne fonctionne pas avec le fichier trésorerie. Il reconnaît la source ouverte de la feuille vierge mais ne supprime pas le lien.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 12 Avril 2018

• #57

Re,

Vous m'avez l'air complètement larguée avec les noms définis (Gestionnaire de noms).

Il y en a 6 qui font référence au fichier Trésorerie 2018.xlsx :

DécaissementsDébut
EncaissementsDébut
ÉtiquettesDonnéesDébut
ExerciceComptable
SituationTrésorerieDébut
TotalPointsDonnées

Supprimez-les, il n'y aura plus cette liaison gênante.

A+

 

Vote positif 0 Vote négatif

gds77

XLDnaute Occasionnel

• 12 Avril 2018

• #58

En effet, j'avais pensé à les supprimer mais sans vraiment pouvoir les identifier🙁.

Encore merci pour votre aide 😉🙂

A+

 

Vote positif 0 Vote négatif

gds77

XLDnaute Occasionnel

• 24 Avril 2018

• #59

Bonjour le forum,
Toujours ennuyée avec mon tableau. Régulièrement Excel se ferme et cesse de fonctionner. Donc impossible de l'ouvrir et de l'exploiter. A priori, un conflit avec les macros (peut être celle concernant les TCD).
Merci d'avance pour votre aide 😉

 

Pièces jointes

• Banques 2018-02.xlsm

  4.3 MB · Affichages: 26

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Avril 2018

• #60

Bonjour gds77,

Au lieu de tout fourrer dans un seul fichier créez un fichier pour chacune des solutions proposées.

Vous verrez ainsi celles qui vont bien et celles qui posent problème.

A+

 

Vote positif 0 Vote négatif