Fichier vraiment, vraiment, vaiment lourd

[micie1509]

Bonjour,
Voici mon problème :
Dans la colonne E j’ai une liste déroulante afin de choisir le métier voulu. Dans la colonne F les heures à faire pour chaque métier.

Maintenant dans la feuille "sommaire" je veux savoir combien d’heures pour chaque métier par activité. J’ai donc ajouté une feuille que j’ai appelée "somm_calculs" afin de réussir à avoir ces données.

Mon problème est celui-ci : dans mon fichier, la "Feuille de calculs" comporte 12600 lignes qui sont divisé par activité (100 lignes par activité) et 126 activités. Mon fichier à la base était de 3213 Ko mais après avoir rajouté la feuille "somm_calculs" qui elle comporte 12727 lignes et 190 colonnes avec une formule dans chacune de ces cellules, je me retrouve avec un fichier de 26816 Ko.

Est-ce que quelqu’un aurait une idée de comment je pourrais avoir ces données tout en gardant une taille respectable pour mon fichier ?

Merci beaucoup d’avance pour l’aide que vous pourriez m’apporter, je l’apprécie vraiment.

 

[herve62]

Re : Fichier vraiment, vraiment, vaiment lourd

Bonsoir
avis aux SPE ( BAR..)mais cela me semble TRES LOURD !!!!
t'as pas moyen de limiter ( partage /SPLIT) ??

 

[Usine à gaz]

Re : Fichier vraiment, vraiment, vaiment lourd

Bonjour,
Une petite piste !
Tu peux faire une petite macro avec tes formules dedans qui ensuite copie les valeurs des résultats dans tes cellules.
Cela devrait de façon importante alléger ton classeur.
Si tu veux, je te fais un exemple.
Amicalement,
Lionel,

 

[micie1509]

Re : Fichier vraiment, vraiment, vaiment lourd

Merci beaucoup herve62 pour votre réponse mais je suis franchement gênée, car je ne sais pas c'est quoi des SPE (BAR...) ? Partager/SPLITER comment est-ce qu'on fait ça?

 

[micie1509]

Re : Fichier vraiment, vraiment, vaiment lourd

Bonjour Lionel,

Ce serait très gentil de ta part si tu pourrais me faire un exemple et j'essaierai ensuite dans mon fichier.

Un gros gros merci !

 

[Usine à gaz]

Re : Fichier vraiment, vraiment, vaiment lourd

Bonsoir micie1509,
Bonsoir à tous,

200 colonnes et 13000 lignes ...

Même avec une p'tite macro, ça fait 15.4 Mo (voir fichier joint) c'est quand même "lourd".
Si je vois autre chose, je te le dis.
Amicalement,
Lionel,

 

[micie1509]

Re : Fichier vraiment, vraiment, vaiment lourd

Bonsoir Lionel,

Ta macro à l'air vraiment très bien. Comment je fait pour lui faire inscrire le montant total des heures de ma feuille de calculs. Je ne connais très bien les macros et je ne sais pas comment changer celle que tu as créée pour l'adapter à mes besoins. Est-ce que c'est possible de lui faire chercher les montants inscrits dans la colonne D de la feuille de calculs ? Qu'est-ce que je dois changer pour pouvoir faire cela ?
Merci encore pour le temps que tu mets sur mon problème.

 

[Usine à gaz]

Re : Fichier vraiment, vraiment, vaiment lourd

Bonsoir micie,
bonsoir à tous,
Il est un peu tard en Tunsisie (23h20) et je travaille tôt demain.
Je vais donc me coucher et je te réponds demain.
Bonne fin de soirée et/ou bonne nuit.
Amicalement,
Lionel,

 

[micie1509]

Re : Fichier vraiment, vraiment, vaiment lourd

Merci et bonne nuit à toi !

 

[Usine à gaz]

Re : Fichier vraiment, vraiment, vaiment lourd

Bonsoir,
Voici un petit classeur pour tenter de t'expliquer,
Bon courage,
Je reste à ton écoute,
Amicalement,
Lionel,

 

[micie1509]

Re : Fichier vraiment, vraiment, vaiment lourd

Bonjour Lionel,

Merci encore pour ta patience.

Je suis parti du petit fichier que tu avais mis en ligne hier et j'ai quelque chose qui fonctionne. Bon ça m'a pris la journée pour comprendre quelque chose. C'est un peu plus long à copier les formules que ta macro mais comme ça fonctionne...

Sub CalculHeures()
'
' Métiers
'

Sheets("calcul_somm_hres").Select

Range("C2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("D2:AS2").Select
ActiveSheet.Paste


'Équipements

Range("AT2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("AU2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range("AU2").Select
Range("AU2:GI2").Select
ActiveSheet.Paste
Sheets("SOMMAIRE HRES").Select


End Sub

Vraiment un gros merci, mon fichier a maintenant 3725 Ko, encore un peu lourd mais vraiment mieux que 26816 Ko.