Discussion :

[ouioui_cmoi]

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

[wilfried_42]

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 :

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

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