Fonction recherche v en VBA

Bonsoir ,

quelqu'un pourrait me guider pour convertir en vba .

je joint le fichier avec une explication merci d 'avance

cordialement

Bonsoir,

Essaie avec ce bout de code :

Resultat = Application.VLookup(Range("H7"), Range("A181:B554"), 2, False)

A voir

@+

Bonjour,

Un exemple à adapter.

Cdlt.

merci pour ton aide

je vais essayer d 'adapter a mon fichier encore merci

J'avance ,j'avance

j 'arrive a faire fonctionner la matrice cependant si j 'ai du texte dans les colonne avant la colonne H par exemple dans la colonne A LIGNE 7 sa me renvoie n/a et plus de recherche

[codePublic Sub Search_data()

Dim ws As Worksheet, ws2 As Worksheet

Dim rng As Range

Dim tbl, Arr()

Dim I As Long

Set ws = Worksheets("Feuil1")

Set ws2 = Worksheets("données")

Set rng = ws2.Cells(1).CurrentRegion

tbl = ws.Cells(7, 8).CurrentRegion

ReDim Arr(1 To UBound(tbl), 1 To 2)

For I = LBound(tbl) To UBound(tbl)

Arr(I, 1) = tbl(I, 1)

Arr(I, 2) = fnVLookup(tbl(I, 1), rng, 2)

Next I

ws.Cells(7, 23).Resize(UBound(tbl), 2).Value = Arr

End Sub

Private Function fnVLookup(lookup_value, table_array As Range, num_column As Long)

Dim Result

Result = Application.VLookup(lookup_value, table_array, num_column, False)

fnVLookup = IIf(IsError(Result), "N/A", Result)

End Function

][/code]

Je ne comprend pas pourquoi .merci de votre aide