> 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
279,99 €Casque sans fil Bose Headphones 700 à 279,99 €
Valable jusqu'au 22 Janvier

Boulanger fait une promotion sur l'excellent casque sans fil Bose Headphones 700 qui passe à 279,99 € une fois ajouté au panier au lieu de 319 €. En plus d'un son incroyable, ce casque offre 11 niveaux de réduction active de bruit vous permettent de profiter de la musique, des podcasts, des vidéos et des appels, sans distraction. Un système de microphones révolutionnaire s’adapte aux environnements bruyants et venteux afin de restituer votre voix avec une clarté incroyable lors de vos appels. Vous permet également d'accéder facilement aux assistant vocaux Google et Alexa. Autonomie jusqu'à 20 heures.


> Voir l'offre
449,99 €Ultraportable MSI Modern 14 (Core i3, 8 Go RAM, SSD 256 Go) à 449,99 €
Valable jusqu'au 27 Janvier

RueDuCommerce fait une promotion sur l'ultraportable MSI Modern 14 B10MW-634XFR qui passe à 449,99 € au lieu de 549,99 €. Cet ordinateur possède une dalle 14 pouces Full HD, est équipé d'un processeur Intel Core i3-10110U, de 8 Go de RAM et d'un SSD NVME de 256 Go. Il ne pèse que 1,18 kg et offre une autonomie d'une dizaine d'heures. 

 L'ordinateur est livré sans OS mais vous pouvez facilement installer Windows 10.


> Voir l'offre
99,99 €Set Tefal Ingenio Emotion tous feux même induction (22 pièces) à 99,99 €
Valable jusqu'au 25 Janvier

Cdiscount solde la batterie de cuisine Tefal Ingenio Emotion, tous feux même induction à 99,99 € au lieu de 200 €. Set de 22 pièces - Poêles 22/24/28cm + Casseroles 16/18/20cm - 1,5/2,1/3L + Couvercles - Thermo-Spot® : maîtrise parfaite de la température hermétiques, Sauteuse 24cm, Poêle Wok 26cm, 5 spatules Bienvenue (angle, longue, crêpe, cuillère, louche) + 4 protecteurs + 2 poignées


> 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