fonction VLookup

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:

---

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

Bonjour

d'apres ce que j'ai compris, tu cherches toutes les valeur de la colonne C de la feuille List S par rapport à la colonne C de la feuille N0 List

Si tu la trouve, tu testes la colonne s'il y a Floats et tu mets FIX si pas floats

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

dim i as long, a2 as long, trouve as range A2 = sheets("List S").range("D65536").end(xlup).row ' Derniere ligne de la colonne   for i = 7 to a2 set trouve = sheets("N0 List").range("C:C").find sheets("List S").range("C" & i).value if not trouve is nothing then if trouve.offset(0,5) = "Floats" then sheets("List S").range("H" & i) = "Floats" else sheets("List S").range("H" & i) = "FIX" end if end if set trouve = nothing next i

---

Procedure non testée, pas de fichier founi :?

Cordialement