XL 2010 Optimisasion temps de calcul d'une macro

[Erakmur]

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]

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]

C'est mieux comme cela ?

 

[job75]

Bonsoir Erakmur, JM,

7Mo c'est trop pour un fichier exemple

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

Bonne nuit.

 

[Erakmur]

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

 

[Staple1600]

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]

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]

Re

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

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

 

[Erakmur]

C'est un mélange des 2.

 

[Staple1600]

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)

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]

Je ne peux pas supprimer le premier fichier.

 

[Staple1600]

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]

C'est fait, reste que le fichier macro maintenant

 

[Staple1600]

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]

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.