> Tous les forums > Forum Bureautique
 Taille de fichier excel différente
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
yojema
  Posté le 18/05/2018 @ 18:56 
Aller en bas de la page 
Astucien

Bonjour le forum

Un problème pas grave en soi j ai 2 fichier excel quasi identique l 'un est affiche a 1 ,5 MO et l autre a presque 24 MO ???

je viens d essayer plusieurs manip consistant par exemple à enlever toute les couleurs de toute les feuilles puis enregistrer sous un autre nom histoire de voir la différence

a verifier qu'il n'y a pas d image planquer et je ne vois pas ce qui fait que ce fichier et tellement plus lourd c est un peu chiant il fait "ramer excel a l'ouverture

la différence entre les 2 est de 8 colonnes supplémentaires de données sur 365 ligne avec des formules dans 2 feuille de calcul

je precise aussi que des colonnes j en ai déjà 30 au départ et que dans le fichier ça porte le nombre a 38 colonnes

mais je vais aller verifier la mise en forme conditionnel quel ne soit pas encours sur les 105000 lignes

mais au cas ou vous auriez des suggestion en attendant j'ouvre le post

merci a plus !

Publicité
galopin01
 Posté le 18/05/2018 à 19:08 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

bonjour,

Pour cette taille ça peut bien être des résidus de tes bricolages successifs, Les suppressions en particulier génèrent souvent des zombis de données qui alourdissent considérablement Excel, Et c'est encore pire si tu supprimes des contrôles, boutons, images, graphiques...

Tu peux peut-être essayer d'appliquer cette macro :

Sub NettoieEtDerniereCellule() ' Laurent Longre 2000
Dim Sht As Worksheet, DCell As Range, Calc As Long, Rien As String
On Error Resume Next
Calc = Application.Calculation
With Application
.Calculation = xlCalculationManual
.StatusBar = "Nettoyage en cours..."
.EnableCancelKey = xlErrorHandler
.ScreenUpdating = False
End With
For Each Sht In Worksheets
If Sht.UsedRange.Address <> "$A$1" Or Not IsEmpty(Sht.[A1]) Then
Set DCell = Sht.Cells.Find("*", , , , xlByRows, xlPrevious)(2)
If Not DCell Is Nothing Then
Sht.Range(DCell, Sht.Cells([A:A].Count, 1)).EntireRow.Clear
Set DCell = Nothing
Set DCell = Sht.Cells.Find("*", , , , xlByColumns, xlPrevious)(, 2)
If Not DCell Is Nothing Then Sht.Range(DCell, Sht.[IV1]).EntireColumn.Clear
End If
Rien = Sht.UsedRange.Address
End If
Next Sht
Application.StatusBar = False
Application.Calculation = Calc
End Sub

A+

yojema
 Posté le 18/05/2018 à 20:40 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Hello Galopin

Essayer a 2 reprise excel a planté a 2 reprise je verrais ça une prochaine fois il est bientôt 21 h

fini boulot

mais merci pour le coup de main !

Constance
 Posté le 18/05/2018 à 22:08 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Salut .o/

Tes fichiers sont dans le même format, ou bien n'y aurait-il pas par hasard l'un en .xls et l'autre en .xlsx (ou .xlsm ou autre variante) ?

E-L
 Posté le 19/05/2018 à 06:48 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Sujets relatifs
Excel 2000 - taille fichier xlsx
outlook 2010 : fichier .pst atteint sa taille maximale
un fichier excel.xlsm est-il exécutable sur un Mac ?
Impossible ouvrir fichier Excel
comment remettre un fichier Excel 2003 en lecture normale
mettre un "titre" en haut du fichier excel
Réduire le ruban d’un seul fichier Excel
Pb envoie fichier excel
Impossible d'ouvrir un fichier EXCEL
Macro enregistrement fichier Excel
Plus de sujets relatifs à Taille de fichier excel différente
 > Tous les forums > Forum Bureautique