Soucis VBA cellules fusionnees
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
Merci Paritec
2fois cette semaine que tu viens a mon secours encore un grand merci .
Re Pilou21 le forum
oui mais est-ce que tu as compris le pourquoi cela ne marchait pas avant??
a+
Papou
suis entrain de regarder
j 'avais mal placer le tableau
Re pilou21 le forum
Non tu n'avais pas bien défini la zone de recherche
Attention à .Currentregion qui prends toutes les cellules adjacentes
a+
Papou
merci PARITEC
je note sa dans mon petit cahier magique
Re pilou21 le forum
c'est important de le savoir car dans ta recherche tu prenais en compte la colonne A à H et c'est pour cela, que cela ne marchait plus
a+
Papou
encore un grand merci de venir en aide aux petits débutant avec autant de pédagogie
Re Pilou21 le forum
Tu sais avant de savoir coder en vba, j'ai aussi commencé de zéro, et j'ai appris, et c'est important de bien commencer et surtout de comprendre le pourquoi des choses
a+
Papou