XL 2010 Optimisasion temps de calcul d'une macro

Erakmur · 10 Novembre 2017

Bonjour,

Dans l'onglet validation, vous avez un bouton vers la macro1. Cette macro, je l'ai faite à partir de l'enregistreur de macro sur un onglet et puis je l'ai dupliqué autant de fois que nécessaire. Mon soucis, c'est qu'avec l'ordinateur que m'a fourni mon entreprise, cela me prend 9 minutes à l'éxécuter.

Question: Y'a t'il un moyen de diminuer le temps de calcul de cette macro ?

Cordialement

Staple1600 · 10 Novembre 2017

Bonsoir le fil, le forum

@Erakmur
Pourrais-tu joindre,stp, un fichier allégé?
7Mo c'est trop pour un fichier exemple
(en tout cas, c'est trop pour moi , je ne télécharge pas de classeur <500ko)

Ou à défaut, peux-tu copier ton code VBA dans ta discussion?

Erakmur · 10 Novembre 2017

C'est mieux comme cela ?

job75 · 10 Novembre 2017

Bonsoir Erakmur, JM,

Staple1600 à dit:
7Mo c'est trop pour un fichier exemple

Pas si l'on veux mesurer la durée d'exécution.

Bonne nuit.

Erakmur · 10 Novembre 2017

Je viens de diminuer la taille du fichier, il fait 2,4 Mo maintenant, vous l'avez juste au dessus.

Staple1600 · 10 Novembre 2017

Bonsoir Job75

Moi, je ne veux rien mesurer.
J'exprime juste ma préférence

7Mo c'est trop pour un fichier exemple
(en tout cas, c'est trop pour moi , je ne télécharge pas de classeur <500ko)

PS: J'ai ouvert le fichier de 2Mo qui déjà plantouille mon Excel.
J'ai juste eu le temps de voir qu'il y avait beaucoup de Select dans le code VBA.

@Erakmur
Et en passant, les données du classeur sont-elles fictives ou confidentielles?
Puis en repassant, quel est le nom de la macro qui met 9 minutes à s’exécuter?

Erakmur · 10 Novembre 2017

Voici la macro, elle peut paraitre impressionnante comme ça mais elle se répète énormément: Elle consiste à enlever les filtres puis à actualisé les TDC puis faire un filtre du plus petit au plus grand et filtrer en enlevant les cases vide.

L'ordre est important.

Peut être qu'à la place de demander à Excel de traiter onglet par onglet, on pourrait lui dire pour l'onglet X,Y,Z... fait cette manipulation au lieu de lui dire pour l'onglet X, tu fais la manipulation puis tu passes à l'onglet Y et tu refais la manip...

Staple1600 · 10 Novembre 2017

Re

@Erakmur
Tu n'as pas répondu à cette question

Et en passant, les données du classeur sont-elles fictives ou confidentielles?

Erakmur · 10 Novembre 2017

C'est un mélange des 2.

Staple1600 · 11 Novembre 2017

Re

Alors va falloir changer tes pièces jointes pour être en accord avec la charte du forum

5 – La possibilité de joindre des fichiers est donnée sur ce forum. Ne pas hésiter à utiliser cette fonction, tout en veillant que les données soient bidons et donc qu’aucune donnée confidentielle, nominative ne soit dans le fichier.

Sinon, pour ta question, peux-tu déjà tester cette macro (pour ce concerne les filtres)

VB:

Sub Macro1_B()
Dim ws As Worksheet
'Décocher vide
For Each ws In Worksheets
If ws.AutoFilterMode = True Then
ws.AutoFilter.Range.AutoFilter Field:=2, Criteria1:="<>"
End If
Next
End Sub

Erakmur · 11 Novembre 2017

Je ne peux pas supprimer le premier fichier.

Staple1600 · 11 Novembre 2017

Re

Si, si tu peux
Tu cliques sur Editer quand tu es sur le premier message puis sur Plus d'options et là tu supprimes ton fichier.

Erakmur · 11 Novembre 2017

C'est fait, reste que le fichier macro maintenant

Staple1600 · 11 Novembre 2017

Re

Encore un petit effort
Et le fichier du message#7?
Zou à la poubelle

PS: Ensuite tu pourras tester la macro du message#10 et me redire ce que ça donne.

Erakmur · 11 Novembre 2017

Non, celui là c'est juste la macro, y'a rien confidentiel. Et puis comment travaillé sur le sujet, si y'a rien du tout.

XL 2010 Optimisasion temps de calcul d'une macro

Erakmur

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Erakmur

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Erakmur

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Erakmur

XLDnaute Occasionnel

Pièces jointes

Staple1600

XLDnaute Barbatruc

Erakmur

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Erakmur

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Erakmur

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Erakmur

XLDnaute Occasionnel

Discussions similaires