XL pour MAC Refonte complete d'un fichier, besoin d'idées

nobodyuse · 26 Mars 2021

Bonjour à toutes et tous

Après quelques temps de travail sur un fichier de suivi de commande d'articles pour des agents d'une entreprise reparties sur 3 sites différents
je me retrouve avec un fichier final fonctionnel, mais très lourd (26Mo pour les 5 années) ce qui rend mon fichier très lent

Tout d'abord je précise que je suis archi novice !
Je viens donc vers vous les pro du Excel afin de quérir quelques idées pour refaire mon entièrement mon fichier de manière a ce qu'il soit moins lourd et utilisable sur serveur d'entreprise par 3 personnes minimum (1 sur chaque site)

je vous expose donc le projet:

j'ai une base de donnée qui doit contenir les différents articles possible, pour lesquels il y a un prix unitaire, différentes tailles possible,
dans cette base de données il y a également une base de Nom/prénom, chef référent, leur site, et la somme qui leur ai attribué au 1er janvier 2020 (repris des années précédentes) il y a pour l’heure quelques 300 agents environs... Mais comme cela peut évoluer (départ en retraite, embauche, ...) il faut donc que ce fichier soit évolutif facilement
il me faut donc un système qui aille cherche les noms, en fonction du nom son chef, que 'l’on sépare les 3 sites si cela est possible...
il y a 3 commande par année civile (Janvier, Mai et Septembre)
il faut que l'on puisse rentrer leur éléments de commande avec des liste deroulantes (Articles, taille, quantité, Prix Unitaire) que ce soit calculé automatiquement et déduit de leur somme initiale
Évidemment chaque fois la somme est reporté sur la feuille de suivi de commande suivants (3 par année) une feuille de Bilan est ajouté pour la fin d'année et permet de voir le nombre d'articles commandé par agents et les totaux par sites (et total global) une feuille de suivi peux éventuellement être inséré ce qui permettrai d'avoir un archivage de ce qui a été commandé .... (si l'on pouvais même réussir a trier par articles et taille de manière a avoir une forme "d’état de la commande" ce serai top pour voir et suivre d'un coup d'oeil les quantités qu'il y a à commander et en quels tailles)
j'avais ajouté une fonction de Statut de remise a l'agent avec la date automatique (qui permet de suivre un peu savoir ou l'on en est)
Afin de réduire la taille du fichier sur chaque page de bilan j'ai inséré une macro qui permet de transformer le résultat des formules en données brutes et supprimer les feuilles de Janvier, Mai et Sept de l'année qui viens de s’écouler, afin de ne pouvoir garder que la feuille de bilan et reprendre la somme en fin d'année sur la nouvelles feuille de Janvier (Auquel on crédite chaque année la somme de 40€ cumulable d'une année sur l'autre sans jamais dépasser un montant de 120€)

je ne peux pas vous mettre le fichier que j'ai créer (Car trop gros même zippé)
je vous met cela dit des captures d'écrans une de la feuille de Janvier, une de la feuille bilan et une du type de feuille de suivi possible (qui pourrai remplacer la feuille de bilan (à voir)
je sais ce n'est pas top mais c'est vraiment pour donner une idée de ce que j'avais fait jusque la, mais comme cela ne vas pas forcement ....

Merci d'avoir pris le temps de lire jusqu'au bout en espérant avoir réussi a être assez clair
D'avance merci à tous

Feuille actuel de Janvier:

Feuille actuel de bilan:

Idée de feuille de suivi a voir:

Autre tentative de mise en forme:

D'avance Merci à tous

Staple1600 · 31 Mars 2021

Re

Pour rester Kissien
J'ai simplifié la précédente macro

VB:

Sub Archivage()
Application.ScreenUpdating = False
Dim arrINap As Range, arrIN, arrOUT(), i&, n&, k&, j%
arrINa = Array([D3], [D5], [D7], [D9], [D11], [D13])
Set p = Range("F3:I13"): arrIN = p: k = UBound(arrIN, 1)
For i = 1 To k
For j = 1 To 4
If Trim(arrIN(i, j)) <> vbNullString Then
If Trim(arrIN(i, j)) > 0 Then
n = n + 1
ReDim Preserve arrOUT(1 To 2, 1 To n)
arrOUT(1, n) = arrIN(i, j)
End If
End If
Next j
Next i
Feuil2.Cells(Rows.Count, 1).End(3)(2).Resize(, UBound(arrINa, 1) + 1) = arrINa
Feuil2.Cells(Rows.Count, 7).End(3)(2).Resize(, n) = arrOUT
End Sub

sylvanu · 27 Mars 2021

Bonjour tout le fil,
@nobodyuse,
Je viens de trouver pourquoi mes PJ ne marchent pas.
Vous êtes sur MAC et sur MAC le séparateur est / et non \ comme sur PC.
Donc il faut modifier :

VB:

Chemin = CurDir & "\" & ThisWorkbook.Name
par
Chemin = CurDir & "/" & ThisWorkbook.Name

on le voit sur le chemin affiché sur vos images.

nobodyuse · 27 Mars 2021

Re

Staple1600 à dit:
Je visais le coté léger de la chose
(les données étant stockée en dehors du fichier principal)
C'est sur cette partie du lien que je m'étais arreté.
(en bas de page)

Mais ce n'est qu'une suggestion.
(que je suivrai si j'étais confronté à ta problématique
fichier énorme + multi-utilisateurs)

merci Staple en effet ce sera le cas à terme car sur les postes de travail des utilisateurs ils n’ont accès que à Office365 plus de logiciel stocké sur les ordis...
Et le fichier sera sur serveur pour une utilisation en ligne.
Mais j’aimerai cela dit quand même profiter qu’ici il est de vrai magicien dans Excel pour voir s’il est possible grâce à vous tous de trouver de nouvelles idées pour refondre et refaire ce foutu fichier

sylvanu · 27 Mars 2021

Nobodyuse, vous pourriez tester avec la modif du post #16.
Je serais très curieux de voir si l'erreur vient bien de là.

nobodyuse · 27 Mars 2021

sylvanu à dit:
Nobodyuse, vous pourriez tester avec la modif du post #16.
Je serais très curieux de voir si l'erreur vient bien de là.

C'est en cours
Je prepare 2 fichier pour tester avec vos 2 versions

sylvanu · 27 Mars 2021

Merci.

Staple1600 · 27 Mars 2021

Bonjour sylvanu (bis)

Pour infos
Avec cette syntaxe, ca devrait marcher pour Mac et Windows
Chemin = CurDir & Application.PathSeparator & ThisWorkbook.Name

nobodyuse · 27 Mars 2021

sylvanu à dit:
Nobodyuse, vous pourriez tester avec la modif du post #16.
Je serais très curieux de voir si l'erreur vient bien de là.

avec la version2 même résultat:

pour la version1
c'est en cours ca mouline je pense que ca vas tourner comme tous a l'heure sans résultat et figer

sylvanu · 27 Mars 2021

Je suis dépité.
Sur PC ça marche impeccable.
Vraiment désolé de vous avoir fait perdre du temps.
Je pense que ça vient de Curdir :

Sur le Macintosh, la fonction CurDir ne tient pas compte du lecteur spécifié dans l’argument drive et retourne le chemin d’accès du lecteur actuel.

CurDir, fonction (Visual Basic pour Applications)

Référence de langage VBA pour Office

docs.microsoft.com

Désolé, ça, je ne connaissais pas.
Ca doit être :

VB:

Chemin = ThisWorkbook.Path & Application.PathSeparator & ThisWorkbook.Name

mais je comprendrais très bien que vous jetiez l'éponge sur cette solution.

nobodyuse · 27 Mars 2021

sylvanu à dit:
Je suis dépité.
Sur PC ça marche impeccable.
Vraiment désolé de vous avoir fait perdre du temps.
Je pense que ça vient de Curdir :

CurDir, fonction (Visual Basic pour Applications)

Référence de langage VBA pour Office

docs.microsoft.com

Désolé, ça, je ne connaissais pas.
Ca doit être :

VB:

Chemin = ThisWorkbook.Path & Application.PathSeparator & ThisWorkbook.Name

mais je comprendrais très bien que vous jetiez l'éponge sur cette solution.

Si si je vais tester c juste que forcement ca rame ou ca plante ce foutu fichier

nobodyuse · 27 Mars 2021

sylvanu à dit:
Je suis dépité.
Sur PC ça marche impeccable.
Vraiment désolé de vous avoir fait perdre du temps.
Je pense que ça vient de Curdir :

CurDir, fonction (Visual Basic pour Applications)

Référence de langage VBA pour Office

docs.microsoft.com

Désolé, ça, je ne connaissais pas.
Ca doit être :

VB:

Chemin = ThisWorkbook.Path & Application.PathSeparator & ThisWorkbook.Name

mais je comprendrais très bien que vous jetiez l'éponge sur cette solution.

Re,

Résultat de la version2 du test:

pour la version1 ca mouline ca mouline mais rien

sylvanu · 27 Mars 2021

Bonne nouvelle, ça avance. Mauvaise nouvelle, le problème n'est pas lié à une seule page.
Toutes les feuilles de mois pèsent le même poids. Mais pour faire 1.6Mo il doit y avoir du monde.

Pourriez vous exporter une feuille d'un mois dans un fichier ( clic droit sur onglet/Déplacer ou copier ... /Nouveau classeur) supprimer les données sensibles et nous le donner.
On peut regarder si on peut optimiser la mise en forme, ou au moins trouver pourquoi ça pèse si lourd.

Question stupide : Pourquoi allez vous jusqu'en 2025 ? pourquoi ne pas faire un fichier par an avec des liens éventuels entre fichiers ?

nobodyuse · 27 Mars 2021

sylvanu à dit:
Bonne nouvelle, ça avance. Mauvaise nouvelle, le problème n'est pas lié à une seule page.
Toutes les feuilles de mois pèsent le même poids. Mais pour faire 1.6Mo il doit y avoir du monde.

Pourriez vous exporter une feuille d'un mois dans un fichier ( clic droit sur onglet/Déplacer ou copier ... /Nouveau classeur) supprimer les données sensibles et nous le donner.
On peut regarder si on peut optimiser la mise en forme, ou au moins trouver pourquoi ça pèse si lourd.

Question stupide : Pourquoi allez vous jusqu'en 2025 ? pourquoi ne pas faire un fichier par an avec des liens éventuels entre fichiers ?

Encore Merci a vous tous

Je vous fait cela de suite !

alors pourquoi 2025 et pas une par an, tous simplement car l'idée de ce type de fichier est d’être évolutif (pour cela qu'il y a des parties réservé) et car le suivi des sommes de ce faire sur plusieurs années
moi je ne suis que novice en Excel, mais je ne vous raconte pas les autres , il leur faux un truc simple a utiliser, intuitif, et évolutif pour les mouvements de personnel
ne sachant pas mon avenir je voulais couvrir un minimum

nobodyuse · 27 Mars 2021

sylvanu à dit:
Bonne nouvelle, ça avance. Mauvaise nouvelle, le problème n'est pas lié à une seule page.
Toutes les feuilles de mois pèsent le même poids. Mais pour faire 1.6Mo il doit y avoir du monde.

Pourriez vous exporter une feuille d'un mois dans un fichier ( clic droit sur onglet/Déplacer ou copier ... /Nouveau classeur) supprimer les données sensibles et nous le donner.
On peut regarder si on peut optimiser la mise en forme, ou au moins trouver pourquoi ça pèse si lourd.

Question stupide : Pourquoi allez vous jusqu'en 2025 ? pourquoi ne pas faire un fichier par an avec des liens éventuels entre fichiers ?

voila ! réduit au max et compressé car ça passait pas :/

sylvanu · 27 Mars 2021

Désolé, je n'arrive même pas à visualiser Janv2021.
Je ne sais pas ce qui s'est passé mais votre fichier a un souci.
Vous pourriez me renvoyer ce fichier ? Vous pouvez passer par https://www.cjoint.com/ pour les grosses tailles.
Attention votre fichier n'est pas anonyme. Base de données/Listing.

nobodyuse · 27 Mars 2021

sylvanu à dit:
Désolé, je n'arrive même pas à visualiser Janv2021.
Je ne sais pas ce qui s'est passé mais votre fichier a un souci.
Vous pourriez me renvoyer ce fichier ? Vous pouvez passer par https://www.cjoint.com/ pour les grosses tailles.
Attention votre fichier n'est pas anonyme. Base de données/Listing.

voici le lien Cjoint
effectivement je ne peux pas le rendre complétement anonyme puisque les nom/prénom sont rentré a la main, donc rien ne fonctionnerai et cela n'aurai plus aucun sens pas trop d'autre choix du coup :/
https://www.cjoint.com/c/KCBqYvt6NDU

XL pour MAC Refonte complete d'un fichier, besoin d'idées

nobodyuse

XLDnaute Occasionnel

Staple1600

sylvanu

XLDnaute Barbatruc

nobodyuse

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

nobodyuse

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

nobodyuse

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

CurDir, fonction (Visual Basic pour Applications)

nobodyuse

XLDnaute Occasionnel

CurDir, fonction (Visual Basic pour Applications)

nobodyuse

XLDnaute Occasionnel

CurDir, fonction (Visual Basic pour Applications)

sylvanu

XLDnaute Barbatruc

nobodyuse

XLDnaute Occasionnel

nobodyuse

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

nobodyuse

XLDnaute Occasionnel

Discussions similaires