Discussion :

[jazzrock]

Bonjour,

J'ai réalisé un programme de calcul thermique que j'améliore depuis 1988. Donc il prend du poids, c'est normal. Mais pour autant, je reste convaincu qu'il conserve des données inutiles, et j'aimerais bien l'alléger.

Pour donner un exemple, lorsque je crée un bouton, il porte automatiquement le N° 950 ou plus, alors que je n'en ai qu'une dizaine sur la feuille. C'est vrai qu'au cours des années j'en ai créé et supprimé des centaines, et que le macros se sont alourdies...

J'ai bien tenté de supprimer les lignes et les colonnes vides, de supprimer les mises en forme inutiles au cas où, mais rien n'y fait. Alors j'aimerais bien mettre ce fichier à la diète !

Si quelqu'un a une idée originale, je suis preneur. Question complémentaire : Existe-t-il un moyen de repérer des formes ou images qui seraient restées cachées ?

Précision supplémentaire : Je travaille toujours avec la version Excel 2003, que voulez-vous on ne se refait pas ! J'ai déjà fait tourner le calcul sous 2010, mais je ne l'ai pas (et je n'en veux pas !!)

Merci d'avance
JR

[kiki29]

Salut, une discussion sur l'allègement des classeurs Excel
il y a aussi un utilitaire qui peut parfois aider.

Même si cela parait évident, l'expérimentation se fait sur une copie et non sur l'original, de manière à vérifier que tout fonctionne normalement après compactage et autres ...

[Marc-L]

Bonjour,

voici ma procédure extraite d'une barre d'outils de macros complémentaires :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub SupprimerImagesFantomes()
    Dim Sh As Shape
 
    If Workbooks.Count Then
        With ActiveWorkbook.ActiveSheet
            If .ProtectContents Then
                Beep
 
            Else
                If .FilterMode Then .ShowAllData
                .Rows.Hidden = False
 
                For Each Sh In .Shapes
                    If Sh.Height = 0 And Sh.Type = msoPicture Then N = N + 1: Sh.Delete
                Next
 
                If N > 1 Then S$ = "s"
                If N > 0 Then T$ = " supprimée" & S Else N = "Aucune"
                MsgBox N & " image" & S & " fantôme" & S & T & " !   ", , "        Supprimer"
            End If
        End With
    End If
End Sub

A adapter selon le type …


Voici une procédure affichant des informations d'objets Shape de la feuille active dans la fenêtre Exécution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub InfoShapes()
    Dim Sh As Shape
 
    For Each Sh In ActiveSheet.Shapes
        Arrow = Sh.Type = 9 And (Sh.Line.BeginArrowheadStyle > 1 Or _
                                 Sh.Line.EndArrowheadStyle > 1)
        Forme = Switch(Sh.Type = 8, "Bouton", Arrow, "Flèche", Sh.Type = 9, "Trait", _
                       Sh.Type = 13, "Image", Sh.Type = 17, "Zone Texte")
        STyp$ = IIf(Forme > "", Forme, Sh.Type)
        If Sh.ZOrderPosition Mod 8 = 1 Then
            Debug.Print String(120, "—")
            Debug.Print "ZOrderP", "Name", "Type", " Left", " Top", _
                        " Height", " Width", "AlText", "OnAction"
        End If
        Debug.Print Chr(-(Not Sh.Visible) * 183) & " " & Sh.ZOrderPosition, _
                      Sh.Name, STyp$, Sh.Left, Sh.Top, Sh.Height, Sh.Width, _
                      Mid(Sh.AlternativeText, 1, 13), Sh.OnAction
    Next Sh
End Sub

Si un point apparait en début de ligne, l'objet est invisible …

[jazzrock]

Merci à tous les deux !

J'ai adapté le code de kiki29 pour pouvoir afficher l'objet, sélectionner une cellule proche (donc le visualiser facilement) et décider si je le supprime ou non (dans ce dernier cas, je lui rend son invisibilité !). Quant au code de Marc-L, je l'ai testé et le garde précieusement pour d'autres applications.

Bon, déjà un souci de moins : Pas d'objet caché dans ma feuille, si ce n'est ceux que je veux garder cachés. Par contre j'ai toujours le problème de la taille du fichier, qui vient de prendre près de 100 ko alors que j'ai allégé les textes et les commentaires dans les macros.

A n'y rien comprendre ! Mais je ne lâche pas l'affaire aussi facilement !
@ plus
JR