Discussion :

[Cartman.inc]

Bonjour à tous,

voilà deux jours que je cherche un solution à mon problème de VLOOKUP sans pouvoir avancer.

Voici ma formule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.Sheets("Measurements").Range("C" & i).Value = "=VLOOKUP(RC[-1],'Feuil2'!C[-2]:C[7],1,FALSE)"

Elle récupère la valeur dans la cellule de gauche (Bx) et la cherche dans la feuille 'Feuil2', dans les colonnes A à J. La valeur à chercher se trouve dans la colonne A.

C'est une valeur numérique mais je ne sais pas si je dois en tenir compte ou bien si je dois prendre ça en temps que texte.

Est-ce que les deux colonnes doivent être au même format ?

Merci d'avance à ceux qui m'aideront.

[ouskel'n'or]

As-tu testé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ThisWorkbook.Sheets("Measurements").Range("C" & i).FormulaR1C1= _
    "=VLOOKUP(RC[-1],'Feuil2'!C[-2]:C[7],1,FALSE)"

[Cartman.inc]

Oui mais ça revient au même.

[ouskel'n'or]

On ne connaît pas ta base de donnée... Place la formule qui va bien manuellement dans la cellule qui va bien puis enregistre la macro en la validant.
Tu reviens avec le code obtenu.
A+

PS - Pour utiliser R et C comme référence d'adresse de cellules, c'est bien FormulaR1C1 qu'il faut utiliser.

[Cartman.inc]

c'est comme ça que j'ai monté la formule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],Feuil2!C[-2]:C[7],1,FALSE)"

Et j'ai déjà utilisé une formule VLOOKUP en utilisant R et C sans mettre FormulaR1C1 et cela fontionnait correctemement.

[ouskel'n'or]

Sélectionne la cellule A1 dans feuil2 puis teste en remplaçant, dans ta formule dans Feuil1 "Feuil2!C[-2]:C[7]" par "Feuil2!C:C[7]"
Si ça fonctionne, j'ai une explication.
Tu dis

Edit
Ce qui revient à faire par macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Worksheets("feuil2").Select
Range("A1").Select
ThisWorkbook.Sheets("Measurements").Range("C" & i).Value = "=VLOOKUP(RC[-1],'Feuil2'!C:C[7],1,FALSE)"