Stocker valeur d'une cellule variable dans variable

Bonjour, re,

J'ai encore un petit soucis :

Comment stocker la valeur d'une cellule variable dans une variable ?
J'ai essayé ActiveCell.Value=i, mais en executant en pas à pas détaillé, i ne vaut rien.

Dans mon programme, j'entre une formule dans une cellule, et j'aimerais stocker cette valeur dans une variable. Quelqu'un aurait une idée ?
Sachant que c'est dans une boucle, la cellule ne sera pas la meme a chaque fois, je ne peux donc pas écrire Range("D6").Value=i

Mon code :

Code:

---

1 2 3 4 5 6 7

If ActiveCell = "Projet" Then   ActiveCell.FormulaLocal = "=RECHERCHEV(i;[Gantt_B_trié.xlsm]Jalons!$B:$B;1;0)" ActiveCell.Value = i Else MsgBox "PAS TROUVER" End If

---

Code:

---

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],[Gantt_B_trié.xlsm] Jalons!C2,1,0)"

---

Code:

---

range("C2:C100").FormulaR1C1 = "=VLOOKUP(RC[-1],[Gantt_B_trié.xlsm] Jalons!C2,1,0)"

---

Merci de ta réponse, mais ce n'est pas trop ce que je voulais faire.
Je veux stocker le résultat dans la formule dans une variable, ne connaissant pas la cellule dans laquelle est la formule :?

j'ai peut etre pas tout compris mais elle a l'air bizarre ta recherchev , car tu vas chercher i dans une colonne unique où tu renvoies cette même colonne donc d'apres ce que je comprends c'est que tu retombe forcément sur i :(


sinon tu peux tenter un truc comme ça

Code:

---

1 2 3

i = Application.VLookup(i, Workbooks("Gantt_B_trié.xlsm").Sheets("Jalons").Range("B:B"), 1, False) If IsError(i) Then MsgBox "PAS TROUVER"

---

Code:

---

1 2 3 4

for i= 1 to 10 Myvar= Application.VLookup(cells(i,"D").address, Workbooks("Gantt_B_trié.xlsm").Sheets("Jalons").Range("B:B"), 1, False) next

---

Je me suis trompé ! C'est pas "i" que je voulais mettre dans le rechercheV aha c'est à force de faire des tests j'oublie de remettre comme c'était.. Désolé !

Mais vos deux dernières réponses vont m'aider je pense, merci bien :)