VBA rechercheV dynamique en VBA

Bonjour a tous,

Une suptilité m échappe pour pouvoir coller la formule recherchev en vba dans la cellule et l adapter:

le code suivantvafaire apparaitre le resultat directement et moi je souhaite qu'il y ai une formule pour que la valeur change (sans devoir faire relire le code ).

ex

Set refchoisir = Sheets("Simulation").Cells(ligneAchat - 1, 6)
     Set datarng = Sheets("CRMbis").Range("Z1:AA23")
        Sheets("Simulation").Range("Z1").Value = WorksheetFunction.VLookup(refchoisir, datarng, 2, 0)

Voila ce que je souhaiterais :

  ActiveCell.FormulaR1C1 = "=VLOOKUP(R[2]C[-20],CRMbis!RC:R[22]C[1],2,FALSE)" 

dans ce cas cela me met la formule , mais je voudrais pouvoir faire entrer une variable integer XX dans cette formule.

 
dim XX as integer
XX = range("a1").value
 ActiveCell.FormulaR1C1 = "=VLOOKUP(R[XX]C[-20],CRMbis!RC:R[22]C[1],2,FALSE)" 

Merci par avance si quelqu'un sais comment je pourrais faire comprendre cela a notre ami excel

Bonsoir,

Merci de joindre le fichier qui va avec.

Bonjour

Bonjour Raja

A tester

Sub Test()
Dim XX As Integer
  XX = Range("a1").Value
  ActiveCell.FormulaR1C1 = "=VLOOKUP(R" & XX & "C[-20],CRMbis!RC:R[22]C[1],2,FALSE)"
End Sub

Merci beaucoup Banzai,

je ne sais pas comment j'ai reussi a ne pas essayer cela tout seul !

Rapide et efficace de ta part, merci pout ton aide.