Recherchev dans macro avec plage variable

[Boubas1]

bonjour,
j'ai 1 recherche v avec 1 plage source qui peut varier en nombre de lignes. Aujourd'hui, j'en ai 473 ligne mais demain je pourrai tres bien en avoir 500.
Voici mon code actuel:Range("K2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-10],'409321'!R1C1:R473C10,9,FALSE)"
Quel code peut prendre 1 nombre de lignes qui peut varier . Merci

 

[job75]

Re : Recherchev dans macro avec plage variable

Bonsoir Boubas1,

Tout dépend de ce que vous voulez faire et de la configuration de la plage de recherche...

Par exemple vous pouvez utliser OFFSET (DECALER) et COUNTA (NBVAL) dans la formule :

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-10],OFFSET('409321'!R1C1:R1C10,,,COUNTA('409321'!C1)),9,FALSE)"

Cela suppose a priori qu'en colonne A il n'y ait pas de cellules vides entre les cellules non vides.

A+

 

[vbacrumble]

Re : Recherchev dans macro avec plage variable

Re


Pourquoi un 2ème fil, Boubas1 ?

Je t'avais répondu dans le premier
https://www.excel-downloads.com/threads/probleme-derlign-avec-vlookup-dans-macro.119961/

 

[ledzepfred]

Re : Recherchev dans macro avec plage variable

bonsoir boubas, job75,

autre possibilité : définir une variable stockant le n° de la dernière ligne du tableau dans laquelle tu effectues ta recherche et integrer cette variable dans la formule :

lig = Sheets("409321").[I65536].End(xlUp).Row
Range("K2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-10],'409321'!R1C1:R" & lig & "C10,9,FALSE)"

EDIT : bonsoir vbacrumble (boubas c'est enervant les posts multiples!!
A+

 

[job75]

Re : Recherchev dans macro avec plage variable

Salut vbacrumble, ledzepfred,

Pourquoi un 2ème fil, Boubas1 ?[/url]

En fait celui-ci est le 1er fil, qui était resté sans réponse. Désolé, je suis intervenu car je n'avais pas vu qu'il y en avait un second...

J'ai déjà ralé plusieurs fois sur les fils qui répètent le même sujet, j'arrête un peu.

A+

 

[ledzepfred]

Re : Recherchev dans macro avec plage variable

re job75,

c'est pas ta faute, Boubas a créé deux fois la même discussion et c'est pas bien. A force de raler, les forumeurs vont finir par comprendre qu'on aime pas les posts multiples, non!!!

A+

 

[Boubas1]

Re : Recherchev dans macro avec plage variable

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