Optimisation d'une boucle par son paramétrage de cellules

Bonsoir,
j'ai une boucle sur i, qui remplit en conséquence à i, 3 lignes j d'un second tableau; j, j+1, j+2

Code:

---

1 2 3

Cells(j, 20) = ws1.Cells(i, 19) Cells(j + 1, 20) = ws1.Cells(i, 20) Cells(j + 2, 20) = ws1.Cells(i, 21)

---

Dès le début de la boucle on sait que les infos peuvent venir d'un autre endroit, 28,29,30 au lieu de 19,20,21

Est il préférable d'écrire:

Code:

---

1 2 3 4 5 6 7 8 9

If SITE = "SV" Then Cells(j, 20) = ws1.Cells(i, 19) Cells(j + 1, 20) = ws1.Cells(i, 20) Cells(j + 2, 20) = ws1.Cells(i, 21) Else Cells(j, 20) = ws1.Cells(i, 28) Cells(j + 1, 20) = ws1.Cells(i, 29) Cells(j + 2, 20) = ws1.Cells(i, 30) End If

---

OU

De paramétrer les noms des colonnes en écrivant pour le premier par exemple:

Cells(j,20) = "ws1.cells(i,"& P1&")" où P1 est défini une fois pour toute ?
il y a peut être une erreur de "" d'ailleurs dedans..

=> la syntaxe est elle correcte ?
=> qu'est ce qui est plus rapide ?

il y a environ 1000 lignes 1 donc 3000 lignes j

Bonjour,

Tu peux peut être utiliser IIf :

Code:

---

1 2 3 4 5 6

Dim K As Long K = IIf(SITE = "SV", 19, 28) Cells(j, 20) = ws1.Cells(i, K) Cells(j + 1, 20) = ws1.Cells(i, K + 1) Cells(j + 2, 20) = ws1.Cells(i, K + 2)

---

Bonjour à tous,

tant qu'on y est, autant tout écrire en une fois :

Code:

---

Cells(j, 20).Resize(3) = Application.Transpose(ws1.Cells(i, IIf(site = "SV", 19, 28)).Resize(, 3).Value)

---

eric

J'ai cherché un moment mais dans la mauvaise voie; c'est une fonction Access ?!

Pas bonjour non plus,

rien qui ne vienne d'access dans les 2 propositions.
eric