Discussion :

[jambonland]

Bonjour,

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

Code :

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

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 :

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

Public premiere_ligne_vide_lots As Integer

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

Code :

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

Dim local_var As Integer

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

Code :

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

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.

[jfontaine]

Bonjour,

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

Code :

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

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

[Philippe Tulliez]

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

Code :

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

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

[jambonland]

Bonjour,

Cela marche parfaitement.
Je vous remercie!