Boucle FOr sur un ensemble de valeurs

Version imprimable

Bonjour,

Je voudrais faire une boucle sur un ensemble de valeurs mais je ne sais pas si c'est possible.

Voici le code que j'ai essayé de faire :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
For Each k In [42,43,44,45,49,60,61,62,67,68,69,70,71,75,76,77,78,79,84,85,86,87,89,96,97,98,99,107,108,109,110,117,118,119,120,129,130,131,132]
 
    For i = 6 To LastRow1
        For j = 6 To Lastrow2
            If Worksheets("XSCL").Cells(i, 2).Value = Worksheets("XSCL").Cells(j, 2).Value _
            And Worksheets("XSCL").Cells(i, 8).Value = Worksheets("XSCL").Cells(j, 8).Value Then
            Worksheets("XSCL").Cells(i, k).Value = Worksheets("XSCL").Cells(j, k).Value
            Exit For
            End If
        Next j
    Next i
Next k
End Sub

Ça bloque à la ligne un bien sur.

Je précise qu'il n'y a pas de relation entre les nombres, ce sont des références à des colonnes.

Quelqu'un a t il une idée ?

18/11/2013, 16h00
EngueEngue

Code:

For Each k In Array(42, 43, 44, 45, 49, 60, 61, 62, 67, 68, 69, 70, 71, 75, 76, 77, 78, 79, 84, 85, 86, 87, 89, 96, 97, 98, 99, 107, 108, 109, 110, 117, 118, 119, 120, 129, 130, 131, 132)

Merci !

Avant de cloturer, j'ai une dernière question :

Ma condition de ne veut pas se valider alors qu'elle devrait...(pour i=6, j=6 et k=42)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
For Each k In Array(42, 43, 44, 45, 49, 60, 61, 62, 67, 68, 69, 70, 71, 75, 76, 77, 78, 79, 84, 85, 86, 87, 89, 96, 97, 98, 99, 107, 108, 109, 110, 117, 118, 119, 120, 129, 130, 131, 132)
 
    For i = 6 To LastRow1
        For j = 6 To Lastrow2
 
 
        MsgBox Worksheets("XSCL").Cells(i, 2).Value '=600238
        MsgBox Worksheets("Previous_Table").Cells(j, 2).Value '=600238
        MsgBox Worksheets("XSCL").Cells(i, 8).Value '=58
        MsgBox Worksheets("Previous_Table").Cells(j, 8).Value '=58
 
 
            If (Worksheets("XSCL").Cells(i, 2).Value = Worksheets("Previous_Table").Cells(j, 2).Value _
            And Worksheets("XSCL").Cells(i, 8).Value = Worksheets("Previous_Table").Cells(j, 8).Value) Then
 
            Worksheets("XSCL").Cells(i, k).Value = Worksheets("Previous_Table").Cells(j, k).Value
            Exit For
 
            End If
        Next j
    Next i
Next k
End Sub

D'où pourrais-venir l'erreur ?

MsgBox Worksheets("XSCL").Cells(i, 2).Value '=600238
MsgBox Worksheets("Previous_Table").Cells(j, 2).Value '=600238
MsgBox Worksheets("XSCL").Cells(i, 8).Value '=58
MsgBox Worksheets("Previous_Table").Cells(j, 8).Value '=58

Tu as peut être une des valeurs qui est au format texte... Essaie de comparer de la sorte
Code:

1 2 If cstr(Worksheets("XSCL").Cells(i, 2).Value) = cstr(Worksheets("Previous_Table").Cells(j, 2).Value) _ And cstr(Worksheets("XSCL").Cells(i, 8).Value) = cstr(Worksheets("Previous_Table").Cells(j, 8).Value) Then

18/11/2013, 16h35
Daniela_

Oui ça marche, merci !