Temps de calcul pour pointer sur une cellule

Bonjour à tous les experts.

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

Code:

---

.Cells(ligne, colonne)

---

ou

Code:

---

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

---

ou

Code:

---

.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 ?

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, …

Bonjour

Citation:

---

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:

---

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... ;)

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!

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. :zoubi:
Mais je n'ai pas besoin d'être puriste !

The winner is :

Code:

---

.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

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:

---

Application.EnableEvents = False

---

Ah mais ça change le résultat !

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

Code:

---

.Cells(ligne, colonne)

---

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