Dégraissez le mammouth

[dubois]

Bonjour à tous,

Ne vous est-il pas arrivé un jour de voir votre fichier doubler voir tripler de volume,
sans pour autant avoir fait de grosse modif ??
Il se peut qu'une cellule soit occupée très loin de votre tableau. (fausse manip ou autre)

Moi çà m'est arrivé et c'est pour çà que j'ai fait ce petit programme de nettoyage.
Fichier :
http://www.excel-pratique.com/~files/doc/CabMFmenage2.xls
amicalement
Claude.

[clyver]

Ah oui super la macro...

Voici mon test sur un fichier :

taille 1874 ko avec la macro "menage" de Claude taille actuel 83 ko.

Rien à dire sauf un Merci à Mr Claude!


Cordialement Franck.

[Amadéus]

Bonjour Claude

Très astucieuse ton idée, dré devrait bien la mettre un jour dans les "astuces du jour"

Cordialement

[dubois]

Bonjour à tous,

NOUVEAU :
Une autre source d'alourdissement de fichier, les Objets invisibles

Un message vous informe de la quantité d'objets dans la feuille (boutons,images,formes dessin etc...)
Si vous le souhaitez, tous les objets (même invisibles) sont sélectionnés,
dé-sélectionnez les objets à conserver avec la touche MAJ enfoncée,
ensuite, touche "Suppr" et les objets indésirables seront supprimés.
Pensez à enregistrer !
Version3
http://www.excel-pratique.com/~files/doc/MxoXKmenage3.xls
Bonne fin d'année
Amicalement
Claude.

[dubois]

Bonjour au forum,

Je suis étonné ! il y avait un petit bug et personne ne m'a prévenu.
J'ai supprimé l'Auto_Close,
La macro est à mettre dans vos Macros_PERSO
http://www.excel-pratique.com/~files/doc2/menage4.xls
----------
En prime, vous pouvez ajouter celle-ci

Code: Tout sélectionner

Sub afficheA1()
    With Range("a1")
        .ColumnWidth = 12
        .RowHeight = 15
        .Select
    End With
End Sub

Pratique pour retrouver la cellule A1 (ligne ou colonne masquée)
Amicalement
Claude.

[clyver]

Version très stable je vous conseil de l'utiliser sur les fichiers bidouillé...

Merci Maitre Dubois

Franck

[dubois]

Bonjour à tous,

----- Nouvelle version -----
Création d'une feuille temporaire "RapportFichier"
- du 1er coup d'œil, vous pouvez voir si anomalies (sur toutes les feuilles)

macro "Menage_Analyse"
macro "Menage_Go"
macro "Menage_Annuler"

Pour éviter d'avoir à ouvrir ce fichier à chaque fois,
Copiez ces 3 codes dans vos macros-perso.
et ajoutez dans votre barre d'outil habituelle l'icône activant
la macro "Menage_Analyse".

Amicalement
Claude

[dubois]

Bonjour à tous,

Ajout de cette ligne qui libère les filtres (si il y en a)

Code: Tout sélectionner

On Error Resume Next    '####
ActiveSheet.ShowAllData 'libère filtre

On risquait de supprimer des données !

Amicalement
Claude