Discussion :

[backx3]

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 :

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

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

[Invité]

Code :

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

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

Code Place la formule de C2 à C100 :

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

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

[backx3]

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

[Minise]

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 :

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

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"

[Invité]

Code inspiré de Minise :

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

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

[backx3]

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