[Résolu] Agmenter la vitesse d'exécution (Macro) avec Scripting.Dictionary

[Lone-wolf]

Bonjour à tous,

D'après les exemples donnés sur le Forum, Scripting.Dictionary rend plus rapide le temps d'exécution. Dans le fichier joint, j'aimerais modifier la macro avec Scripting.Dictionary. Celui-ci contient une macro qui calcule le temps d'exécution. Mais il me semble un peu trop lent.

Une petite aide serait la bienvenue.
Par avance, merci.


A+ 😎

 

[tototiti2008]

Re : Agmenter la vitesse d'exécution (Macro) avec Scripting.Dictionary

Bonjour Lone-wolf,

Les dictionnaires servent essentiellement à supprimer les doublons dans une liste de valeurs, je vois assez mal comment les intégrer à ta macro de copie de plage
D'autre part, on pourrait envisager de passer par des tableaux VBA mais dans ce cas on perdrait la mise en forme que tu conserves avec ta copie

 

[phlaurent55]

Re : Agmenter la vitesse d'exécution (Macro) avec Scripting.Dictionary

Bonjour à tous

..........Mais il me semble un peu trop lent.

après essai, la procédure a duré 71/100 sec

Est-ce vraiment très lent quand il s'agit de copier 1333 fois ?


à+
Philippe

 

[Lone-wolf]

Re : Agmenter la vitesse d'exécution (Macro) avec Scripting.Dictionary

Bonjour tototiti,

Merci d'avoir répondu.

Aaahh! D'accord. Donc, oublions le Dictionnaire.

Je viens de faire une modification dans le code qui avait une ligne à double. J'ai supprimer aussi "recep" qui causait un petit problème par [K:L].Clear

If TheTime(1) = 0 Then
Message = " " & Right("0" & TheTime(4), 2) & " centièmes de secondes" ' ligne à double
End If
[I3].Value = Message

If [rng2] = "" Then: [K:L].Clear: [I3] = ""

A+ 😎

 

[Lone-wolf]

Re : Agmenter la vitesse d'exécution (Macro) avec Scripting.Dictionary

Eh! Bonjour Philippe, 😀

Et bien, comme j'avais mal compris le concept de Scriptin.Dictionnary, je pensait que la procédure était un peu longue. Mais, si tu me dis que c'est rapide, alors je peux enlever le timer.


A+ 😎

 

[tototiti2008]

Re : Agmenter la vitesse d'exécution (Macro) avec Scripting.Dictionary

Bonjour Philippe,
Re,

Sinon, si tu veux gagner un peu de temps, évite de mettre ta macro su Selection_Change (ça évitera qu'elle tourne plusieurs fois pour rien) et remplace tes crochets par des range

Par exemple, remplace

[I3].Value = Message

par

Range("I3").Value = Message

il parait que les crochets (Evaluate) sont plus lents

 

[Fo_rum]

Re : Agmenter la vitesse d'exécution (Macro) avec Scripting.Dictionary

Bonjour,

...remplace tes crochets par des range
les crochets (Evaluate) sont plus lents

entièrement d'accord avec toi tototiti2012 😉 surtout quand on voit de ci de là tant d'utilisations abusives.
Autre remarque : ce n'est pas quelques ".Select" qui vont plomber le chrono !

Ci-joint une autre façon de copier vite, voire très vite* une plage même sans les "Application.truc "
* bien entendu dans ce contexte !

 

[Lone-wolf]

Re : Agmenter la vitesse d'exécution (Macro) avec Scripting.Dictionary

Re tototiti, bonjour Forum

@tototiti: j'ai modifier les crochets Evaluate comme tu l'a dit, et c'est vrai que le temps est réduit, j'arrive à 42ct de secondes.

@Forum: je vais regarder le fichier, mais je sais par avance que je suis loin d'être à la hauteur.


A+ 😎

 

[Lone-wolf]

Re : Agmenter la vitesse d'exécution (Macro) avec Scripting.Dictionary

Re Forum,

j'ai testé...c'est bien ce que je disais.


A+ 😎

 

[tototiti2008]

Re : [Résolu] Agmenter la vitesse d'exécution (Macro) avec Scripting.Dictionary

Re,

Merci Fo_rum, j'ignorais que les recopies étaient beaucoup plus rapides que les Copier/coller 🙂
@Lone-Wolf : c'est juste une recopie, il copie ton tableau initial en K2, puis il recopie K2:L8 vers le bas, tu peux le faire manuellement, la poignée de recopie reproduit ton tableau

 

[Lone-wolf]

Re : [Résolu] Agmenter la vitesse d'exécution (Macro) avec Scripting.Dictionary

Re tototiti,

et bien, je ne crois être capable d'être plus rapide de la macro proposé par Fo_rum. 😱 😉

Copie de la ligne 2 à 30995 20 centièmes de secondes chrono.


A+ 😎