Bonjour à toutes et tous,
je fais une rechercheV avec la Function.VLookup, mais elle renvoie toujours faux.
Merci de votre aide, je joint le code je n'arrive pas à accéder aux pièces jointes. Ah si c'est bon.
@+
je fais une rechercheV avec la Function.VLookup, mais elle renvoie toujours faux.
Merci de votre aide, je joint le code je n'arrive pas à accéder aux pièces jointes. Ah si c'est bon.
@+
Code:
'On recherche les OA-Line SAP communes entre Step 1 et Open Orders
With Worksheets("Step 1")
'g = OA-Line
Set g = .Range("I" & .Range("I65536").End(xlUp).Row)
End With
With Sheets("Open Orders")
'Plage = OA-Line
Set Plage = .Range("A2:K" & .Range("A65536").End(xlUp).Row)
On Error Resume Next
Do While g.Row > 1
h = WorksheetFunction.VLookup(g, Plage, 10, True)
Set g = .Find(h)
If g = h Then
g(1, 3) = h 'Si trouvé n° PO
Else
g(1, 3) = "" 'Si pas trouvé vide
End If
Set g = g(0, 1) ' Recule d'une ligne
Loop
End With