Fichier trop lourd car pas optimisé

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

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?

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

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

Re : Fichier trop lourd car pas optimisé

impec merci ça fonctionne bien !