RechercheH à index de ligne variable

Bonjour,

Je suis actuellement bloqué par un problème sur les arguments de ma rechercheH.
Voici le code que j'utilise actuellement :

Code:

---

1 2 3

Range("Q5").Select ActiveCell.FormulaR1C1 = _ "=HLOOKUP(RC[-14],'[Sport Stock dispo détaillé par lot.xls]Feuil1'!R4C2:R1000C255,718,0)"

---

Or, quand je veux changer le 3eme argument en remplaçant le 718 par une variable globale définie dans le même module comme cela :

Code:

---

Public premiere_ligne_vide_lots As Integer

---

ou encore par une variable locale définie dans la même sub comme cela :

Code:

---

Dim local_var As Integer

---

dans les 2 cas cela ne marche pas avec un code de cette forme :

Code:

---

1 2	ActiveCell.FormulaR1C1 = _ "=HLOOKUP(RC[-14],'[Sport Stock dispo détaillé par lot.xls]Feuil1'!R4C2:R1000C255, local_var,0)"

---

Je n'ai pas de message d'erreur mais la fonction rechercheh ne me renvoie pas la valeur qu'il renvoie quand on met une valeur et non une variable en argument.
J'ai pourtant bien vérifié, à l'aide d'un msgbox, que la variable avait bien la bonne valeur.

Pourriez-vous svp m'indiquer d'où vient le problème?

D'avance merci.

Bonjour,

Comme cela, il faut sortir la variable du texte de la formule

Code:

---

1 2	ActiveCell.FormulaR1C1 = _ "=HLOOKUP(RC[-14],'[Sport Stock dispo détaillé par lot.xls]Feuil1'!R4C2:R1000C255," & local_var & ",0)"

---

Bonjour,
Si tu veux intégrer une variable dans une formule avec le VBA, tu dois faire une concaténation.
Exemple ci-dessous

Code:

---

1 2 3

Dim local_var As Long local_var = 5 Range("C11").FormulaR1C1 = "=HLOOKUP(RC[-1],R2C3:R7C6," & local_var & ",0)"

---

Bonjour,

Cela marche parfaitement.
Je vous remercie!