Fichier trop lourd car pas optimisé

[mimic44]

Bonjour,

Voila, je suis en charge d'une petite gestion de production dont je dois réaliser un indicateur de réalisation des ventes. j'ai déjà réalisé un petit fichier mais du haut de mes piètres connaissances en excel, je n'ai réalisé que des formules dans les cellules et mise en forme conditionnelles ce qui me cause pas mal de soucis au niveau poids du fichier (+ de 25Mo), vu la quantité d'article à traiter (plus de 1500 lignes).
vous trouverez en pièce jointe un exemple de mon fichier.

Pouvez vous m'aider ou m'envoyer les codes à entré pour allèger l'affaire ?

merci d'avance.

 

[pierrejean]

Re : Fichier trop lourd car pas optimisé

bonjour mimic44

une solution pour alleger le fichier (au prix d'une certaine lenteur a l'affichage)

on ne garde dans le fichier sauvegardé que la formule en D4

a l'ouverture on reconstitue les autres formules

a la fermeture on efface

vois si cela te convient

 

[mimic44]

Re : Fichier trop lourd car pas optimisé

effectivement cela me convient pour la fermeture mais j'ai aussi des soucis pour l'impression car la taille est trop énorme pour nos imprimantes réseaux😎

il n'y aurai pas moyen de remplacer les formules par des codes tout simple plutôt?

 

[pierrejean]

Re : Fichier trop lourd car pas optimisé

re

dans ce cas la solution est peut-etre tout simplement de creer un fichier pour l'impression en ne conservant que les valeurs

au besoin , c'est quelque chose d'assez facile a automatiser

fais quelques tests en manuel de façon a definir les limites d'impression et eventuellement reviens pour l'automatisation

 

[Danix]

Re : Fichier trop lourd car pas optimisé

Bonsoir,

Essaye ce bout de code, je pense que cela peut être amélioré

Sub Test()
Dim dblLines As Double, intCols As Integer, intLine As Integer, intCol As Integer

Application.ScreenUpdating = False
Cells(21, 2).Select
dblLines = Selection.End(xlDown).Row
Cells(21, 2).Select
intCols = Selection.End(xlToRight).Column
intLine = 22
intCol = 4
Do While ActiveCell.Row <= dblLines
Cells(intLine, intCol).Select
Do While ActiveCell.Column <= intCols
If Cells(ActiveCell.Row, 2).Value = Cells(3, ActiveCell.Column).Value Then
ActiveCell.Value = "Montage"
ActiveCell.Interior.ColorIndex = 4
ElseIf Cells(ActiveCell.Row, 3).Value = Cells(3, ActiveCell.Column).Value Then
ActiveCell.Value = "Vente"
ActiveCell.Interior.ColorIndex = 3
Else
ActiveCell.Value = ""
ActiveCell.Interior.ColorIndex = xlNone
End If
intCol = intCol + 1
ActiveCell.Offset(0, 1).Select
Loop
intLine = intLine + 1
intCol = 4
ActiveCell.Offset(1, 0).Select
Loop
Cells(21, 2).Select
Application.ScreenUpdating = True


End Sub

 

[mimic44]

Re : Fichier trop lourd car pas optimisé

impec merci ça fonctionne bien !