Optimisation d'un fichier lourd
Bonjour,
J'ai hérité d'un fichier qui me permet de suivre la situation journalière des personnes de mon service.
Il est plutôt bien fait et j'ai tenté de l'adapter à mon goût. Il fonctionne mais présente une lenteur irritante. Au point que l'ordinateur se fige pendant une demi minute à chaque manipulation.
Je me demande si l'une des solutions ne serait pas de séparer les feuilles dans des classeurs différents.
Je suis novice et ne maîtrise malheureusement pas bien le sujet.
Quelqu'un pourrait-il m'apporter son aide?
Merci!
Bonjour,
impossible de charger votre classeur. Message d'erreur:
Désolé... Nous ne pouvons pas ouvrir le classeur dans le navigateur, car il utilise les fonctionnalités suivantes qui ne sont pas prises en charge :
Vous souhaitez peut-être contacter l’auteur pour obtenir plus d’informations.
C'est en partie une raison de la lenteur...
Voici un lien qui devrait en permettre la visibilité:
Désolé, je dispose d'une version ancienne de XL, et mon convertisseur ne parvient pas à ouvrir votre classeur, et plante !
Preuve que le fichier est chargé!
S'il n'y a ni macro, ni formules "interfeuilles", ni plages nommées, il serait sans doute plus facile de découper le classeur en plusieurs classeurs ?
Bonjour à tous,
Sur la feuille "1re semaine", il y a 19154 shapes
Sur la feuille "2e semaine", il y a 219 shapes
Sur la feuille "Spa", il y a 8875 shapes
Sur la feuille "Feui1", il y a 2518 shapes
Et plus de 2340 formules sur la feuille "Spa".
ric
Bonjour à tous,
Sur la feuille "1re semaine", il y a 19154 shapes
Sur la feuille "2e semaine", il y a 219 shapes
Sur la feuille "Spa", il y a 8875 shapes
Sur la feuille "Feui1", il y a 2518 shapes
Et plus de 2340 formules sur la feuille "Spa".
ric
Y-a-t'il moyen de m'en débarrasser ou de recommencer sur des bases saines avec les mêmes macros?
Dans l'idée je veux garder les mêmes fonctionnalités.
Bonjour,
Pour les compter sur la feuille active ... à mettre dans un module.
Sub CompterLeShapess()
Dim sh As Shape
Dim Nbsh As Integer
Nbsh = 0
For Each sh In ActiveSheet.Shapes
If sh.Type <> msoChart And sh.Type <> msoComment And sh.Type <> msoFreeform And sh.Type <> msoLine And _
sh.Type <> msoIgxGraphic And sh.Type <> msoGroup Then sh.Delete
Nbsh = Nbsh + 1
Next sh
MsgBox Nbsh
End SubMais, tu peux discriminer quel type de shape à supprimer.
https://docs.microsoft.com/en-us/office/vba/api/office.msoshapetype
ric
Bonjour à tous,
Remarque que j'ai modifié le code pour exclure plusieurs types de shape.
ric
Merci beaucoup Ric!
C'est excellent, tu as très bien cerné le problème et c'est résolu.
ric