taille fichier

a10

XLDnaute Impliqué
Bonjour

J'ai un fichier de plus de 250000 comment réduire sa taille ?

A+
 

job75

XLDnaute Barbatruc
Bonjour a10, cp4,

Une macro classique :
Code:
Sub Epurer()
Dim w As Worksheet, i&
For Each w In Worksheets
    If w.[A1].Formula = "" Then w.[A1] = " "
    i = w.Cells.Find("*", , xlFormulas, , xlByRows, xlPrevious).Row
    w.Rows(i + 1).Resize(w.Rows.Count - i).Delete
    i = w.Cells.Find("*", , xlFormulas, , xlByColumns, xlPrevious).Column
    w.Columns(i + 1).Resize(, w.Columns.Count - i).Delete
    With w.UsedRange: End With 'actualise les barres de défilement
Next
End Sub
A+
 

Discussions similaires

  • Résolu(e)
Microsoft 365 Taille UserForm
Réponses
3
Affichages
323
Réponses
3
Affichages
165

Statistiques des forums

Discussions
312 023
Messages
2 084 715
Membres
102 637
dernier inscrit
TOTO33000