> 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) ?

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
89,99 €Disque dur externe portable Seagate Expansion 4 To USB 3.0 à 89,99 €
Valable jusqu'au 27 Septembre

Boulanger fait une promotion sur le disque dur externe portable Seagate Expansion d'une capacité de 4 To qui passe à 89,99 € alors qu'on le trouve ailleurs à partir de 100 €. Ce disque dur externe portable au format 2,5 pouces dispose d'une interface USB 3.0 compatible USB 2.0. Une excellente affaire pour ce disque dur qui offre des débits de 115 Mo/s. Il n'est pas soudé et est donc démontable si vous souhaitez le réutiliser ailleurs (console, NAS, PC).


> Voir l'offre
Les French Days chez Cdiscount
Valable jusqu'au 27 Septembre

Cdiscount participe aux French Days et fait des milliers de promotions imbattables. De plus vous pourrez obtenir 20 € de réduction à partir de 299 € d'achats avec le code promo 20EUROS.


> Voir l'offre
23,99 €Souris sans fil Microsoft Sculpt Comfort bluetooth à 23,99 €
Valable jusqu'au 27 Septembre

Amazon fait une promotion sur la souris sans fil Microsoft Sculpt Comfort bluetooth qui passe à 23,99 € au lieu de 34 €. Elégante, performante et ergonomique, cette souris sans fil Bluetooth vous offre la liberté dont vous avez besoin pour le travail et/ou le divertissement. Le ruban tactile latéral vous permettra d'accéder rapidement à vos fonctionnalités préférées de Windows (8 et 10).


> Voir l'offre

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