Discussion :

[did103]

Bonjour à tous les experts.

Sauriez vous me dire l'écriture la plus rapide en temps d'exécution de code ?

Code :

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

.Cells(ligne, colonne)

ou

Code :

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

.Range("A" & ligne).Offset(0, colonne)

ou

Code :

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

.Range("A1").Offset(ligne-1, colonne)

Et/ou, existe-t-il un moyen pour calculer le temps d'exécution d'un calcul, afin de déterminer la meilleure écriture possible d'une instruction ?

[Marc-L]

Bonjour,

la première vu qu'il n'y a qu'une seule instruction ! N'aura une incidence qu'au sein de boucle énorme.

Sinon pour calculer un temps d'exécution j'utilise la fonction Timer …

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …

[unparia]

Bonjour

existe-t-il un moyen pour calculer le temps d'exécution d'un calcul, afin de déterminer la meilleure écriture possible d'une instruction

Oui : tout simple :

Code :

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

1
2
3
4
5
6
dim deb as double
deb = timer
for i = 1 to un_grand_nombre_de_ fois
' ton instruction
next
msgbox timer - deb

Pour le reste, je te laisse faire tes essais et en tirer tes conclusions...

[Invité]

Bonjour,
La méthode la plus rapide est d'affecter ta plage à une variable tableau en mémoire.

Ensuite il te suffis de balayer le tableau.

Maniant la destination du traitement n'est pas anodin, car chaque écriture dans un cellule entraine des événements qui grève le tems de traitement. Si tu inhibe les évènements tu gagnes en rapidité.

Pareil pur le rafraîchissement de l'écran!

[did103]

Merci pour la fonction Timer.
C'est vrai que je l'avais déjà utilisée pour indiquer le temps de calcul en fin d'exec...
Calculer le temps ainsi est un peu faux car la boucle "consomme" elle aussi.
Mais je n'ai pas besoin d'être puriste !

The winner is :

Code :

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

.Range("A1").Offset(ligne-1, colonne)

Et donc Marc, ce n'est pas l'écriture qu'on pourrait croire...

PS: ma boucle est effectivement conséquente car elle traduit en plusieurs langues tous les mots de plusieurs feuilles par search/replace

[did103]

Merci également.
Je vais essayer aussi de passer par un tableau de variables, c'est pas bête...
J'ai déjà stoppé le calcul et le rafraichissement page.
Je n'avais pas pensé aux évènements :

Code :

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

Application.EnableEvents = False

[did103]

Ah mais ça change le résultat !

Marc a raison, c'est la 1ère écriture qui est plus rapide :

Code :

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

.Cells(ligne, colonne)

Je rends à César les honneurs qui lui sont dus !