Bonjour
Je fais un programme utilisant VLookup dans VBA afin que, si, sur une même ligne, j'ai 2 valeurs définies auparavant, alors il m'exécute le code
Pour cela, j'ai écrit :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Worksheets("List S").Activate
Range("A1").Select
a2 = 4
Do While Range("D" & a2).Value <> "0"
a2 = a2 + 1
Loop
a2 = a2 - 1
MsgBox (a2)
 
 
For i = 4 To a2
If Application.VLookup(Worksheets("List S").Range("A" & i), _
    Worksheets("N0 List").Range("A1:C1000"), 3, False) = Application.VLookup( _
    Worksheets("List S").Range("B" & i), Worksheets("N0 List").Range("B1:C1000"), 2, False) Then
MsgBox ("ok")
If Application.VLookup(Worksheets("List S").Range("A4"), Worksheets("N0 List").Range("A1:h100"), 8, False) = "Floats" Then
        Worksheets("List S").Range("H" & i).Value = "Floats"
        Else: Worksheets("List S").Range("H" & i).Value = "FIX"
End If
 
End If
Next
Le problème, c'est que, si j'ai 2 fois le même nombre dans la colonne, il ne prend que le premier, sans essayer les autres...Donc, il ne me traite pas tous les cas...
Quelqu'un aurait il une solution?
merci d avance