Discussion :

[Polygos]

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 :

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

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 :

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

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

[Theze]

Bonjour,

Tu peux peut être utiliser IIf :

Code :

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

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)

[eriiic]

Bonjour à tous,

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

Code :

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

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

eric

[Polygos]

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

[eriiic]

Pas bonjour non plus,

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