Discussion :

[Tententai]

Bonjour,

Je dois faire qqch d'assez simple : dans une colonne de ma Sheet1, je dois insérer des formules vLookup avec un code VBA. Ces formules vLookup font référence à une plage de la Sheet2 (ses 4 premières colonnes, A à D).

J'ai deux façons de faire :

Code :

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

xlBook.Sheets("Sheet1").Range("P2:P10000").FormulaR1C1 = "=VLOOKUP(RC[-3],Sheet2!C[-15]:C[-12],3)"

Ici on retrouve les colonnes de Sheet2 relativement à là ou on met la formule de sheet1 (c'est dans la colonne P, donc les colonnes A à D vont de -15 à -12). Ca marche, mais avec beaucoup de lignes ça devient long à executer.

Méthode 2 :

Code :

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

xlBook.Sheets("Sheet1").Range("P2:P10000").FormulaR1C1 = "=VLOOKUP(RC[-3],Sheet2!A:D,3)"

Ici A à D est codé en dur. Ca va beaucoup plus vite, mais quand j'ouvre ma feuille ensuite je vois "#NAME?" dans les cellules. Pourtant la formule est juste, et si je clique dans la barre de formule et que j'appuie sur entrée la bonne valeur apparait.


Est il possible :
- de faire tourner la méthode 1 plus vite ?
- de débuguer la méthode 2 ?

Merci pour vos idées

[ouskel'n'or]

Après la seconde méthode, as-tu essayé de mettre

Code :

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

Application.calculate

ou l'une des différentes méthodes proposées dans l'aide à "Calculate".
Une autre méthode consiste à écrire ta formule une fois et à la recopier sur la plage de cellule voulue.

Code :

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

1
2
3
4
xlBook.Sheets("Sheet1").Range("P2").FormulaR1C1 = _
"=VLOOKUP(RC[-3],Sheet2!C[-15]:C[-12],3)"
xlBook.Sheets("Sheet1").Range("P2").Copy _
destination:=xlBook.Sheets("Sheet1").Range("P3:P10000")

Tu testes et tu prends la meilleure.

[asxasx]

Le fait de faire une fois le calcul et de le recopier sur la plage voulue est pour moi le plus rapide, en effet c'est ce que j'ai fait sur mon projet et mes quelques 450000 cellules sont des produits par des nombres tous différents choisis en fonction d'autres paramètres. et l'ensemble se fait en environ 1 min 40 avec une petite userform et progressBar.

[Tententai]

Merci pour les idées.

J'ai essayé en faisant un copy paste en VBA, c'est tout aussi long qu'en écrivant directement la formule dans la plage. Bizarre, en le faisant manuellement c'est plus rapide.

Sinon Application.Calculate ne marche pas dans ce cas, ni des méthodes assimilées comme CalculateFull.

[Gorfael]

Salut Tententai et le forum

Méthode 2 :

Code :

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

xlBook.Sheets("Sheet1").Range("P2:P10000").FormulaR1C1 = "=VLOOKUP(RC[-3],Sheet2!A:D,3)"

Ici A à D est codé en dur. Ca va beaucoup plus vite, mais quand j'ouvre ma feuille ensuite je vois "#NAME?" dans les cellules. Pourtant la formule est juste, et si je clique dans la barre de formule et que j'appuie sur entrée la bonne valeur apparait.

Est il possible :
- de débuguer la méthode 2 ?

Impossible d'après tes dires, , mais essaies :

Code :

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

xlBook.Sheets("Sheet1").Range("P2:P10000").FormulaR1C1 = "=VLOOKUP(RC[-3],C1:C4,3)"

A+

[ouskel'n'or]

Utilises-tu Application.Updating = False en début de procédure ? (que tu replaces à True à la fin)
Jète un oeil à ce topic et à celui-ci, ce n'est pas le même sujet mais si tu pouvais y trouver des idées neuves
A+

[Tententai]

Hello,

Avec C1:C4 ça marche oui, mais même problème de performances qu'avec C[-15]:C[-12]

Je vais me pencher sur les autres topics cités par ouskel'n'or voir si j'y trouve pas des idées