Vlookup et variable

[Bernard34]

Bonsoir à tous,

J'essaie de remplacer ceci:

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC1,Fichier2!R5C1:R31000C14,5)"


par cela

.Range("BI4").Value = WorksheetFunction.VLookup(.Range("BI4").Value, Sheets("Fichier2").Range("A5:C & derliA"), 2, False)

mais cela ne fonctionne pas.

En fait dans la formule je veux remplacer le R31000 par derliA

Merci de vos conseils

Bernard

 

[pierrejean]

Re : Vlookup et variable

bonjour Bernard

une premiere correction (difficile de faire des tests)

.Range("BI4").Value = WorksheetFunction.VLookup(.Range("BI4").Value, Sheets("Fichier2").Range("A5:C" & derliA), 2, False)

 

[Bernard34]

Re : Vlookup et variable

Bonsoir Pierre-Jean et merci de ta prompte réponse!

Avec ceci,

.Range("BI4").Value = WorksheetFunction.VLookup(.Range("BI4").Value, Sheets("Fichier2").Range("A5:N" & derliA), 2, False)



j'obtiens le message "référence incorrecte ou non qualifiée."


J'ai essayé ceci:

'déclaration de la variable
Dim maplage As Range
'initialisation de la variable
Set maplage = Range("A5:N" & derliA)

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC1,Fichier2!maplage ,2)"


Mais il n'en veut pas non plus.

Merci de ton (votre intérêt)

Bernard

 

[pierrejean]

Re : Vlookup et variable

Re

teste:

Range("B14").FormulaLocal = "=RECHERCHEV(A14;Fichier2!A5:N" & derliA & ";2)"

le A14 correspond au RC1 de la version formulaRC1

Attention le . avant Range suppose un with anterieur dont tu ne parles pas

 

[Bernard34]

Re : Résolu: Vlookup et variable

Bonsoir le forum, Bonsoir Pierre Jean,

Voici ce que j'ai fait et cela fonctionne parfaitement:

derliA = Range("A65536").End(xlUp).Row
Range("BI4").FormulaLocal = "=RECHERCHEV($A4;Fichier2!$A$5:$N$" & derliA & ";2)"
Range("BJ4").FormulaLocal = "=RECHERCHEV($A4;Fichier2!$A$5:$N$" & derliA & ";3)"

Vraiment merci!

Bernard