Problème Derlign avec Vlookup dans macro

[Boubas1]

Bonsoir,
j'ai 1 recherche v avec 1 table matrice qui peut varier en nombre de lignes. Aujourd'hui, j'en ai 473 ligne mais demain je pourrai tres bien en avoir 500 ou plus.
Voici mon code actuel:
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-10],'409321'!R1C1:R473C10,9,FALSE)"
Quel code peut prendre en compte 1 nombre de lignes qui peut varier dans ma table matrice? Merci

 

[vbacrumble]

Re : Problème Derlign avec Vlookup dans macro

Bonsoir


A adapter à ta problématique

Dim Derlign&
Derlign= [A65536].End(xlUp).Row
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-10],RC[-4]:R[" & Derlign & "]C[-3],9,0)"

Il y aussi la possiblité d'inscrire "en dur"

Testes cette macro sur une feuille vierge

Sub Macro2()
Dim Dl&, s As Worksheet, f As WorksheetFunction
Set s = ActiveSheet: Set f = Application.WorksheetFunction
s.[A1:A10].Formula = "=""a""&ROW()"
s.[B1:B10].Formula = "=ROW()"
s.[D1] = "a3"
Dl = s.[A65536].End(xlUp).Row
s.[E1].FormulaR1C1 = "=VLOOKUP(RC[-1],RC[-4]:R[" & Dl & "]C[-3],2,0)"
s.[F1] = f.VLookup(s.[D1], s.Range("A1:B" & Dl), 2, 0)
End Sub

puis regarde en E1 et en F1

 

[Boubas1]

Re : Problème Derlign avec Vlookup dans macro

Bonsoir,

Voici mon code final qui marche bien:
Derlign = Range("'409321'!A65000").End(xlUp).Row
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-10],'409321'!R1C1:R[" & Derlign & "]C10,9,FALSE)". Merci à vous.

Nb: Désolé pour le double fil, je suis un peu impatient