Formule qui reste affichée au lieu de se calculer

Bonjour,

En VBA, je cherche à insérer une colonne et à insérer une formule recherchev dans cette colonne de la 2 eme ligne à la derniere ligne du tableau.

J'ai déja ce code qui fonctionne dans un autre fichier, j'ai voulu le réutiliser et il m'affiche dans les cellules: "=VLOOKUP(RC[1],TABLE2!C[-2]:C[-1],2,0)" sans calculer le résultat.

Voici mon code:

Code:

---

1 2 3 4 5 6 7 8

derli = Columns(1).Find("*", , , , , xlPrevious).Row   Columns("C:C").Select Selection.Insert Shift:=xlToRight Range("C2").Select ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[1],TABLE2!C[-2]:C[-1],2,0)" Selection.AutoFill Destination:=Range(Cells(2, 3), Cells(derli,3)),Type:=xlFillDefault

---

Merci pour votre aide...

Essaye de mettre

Code:

---

1 2 3 4

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[1],TABLE2!C[-2]:C[-1],2,0)"   calculate

---

Il ne se passe rien de plus... ce que je ne comprends pas c'est que je fais la même manip pour un autre fichier et cela as toujours fonctionné.

En fait il devrait m'écrire dans la cellule:

=RECHERCHEV(D1,TABLES2!A:B,2,0)

Or la il me reécrit textuellement le code VBA:

=VLOOKUP(RC[1],TABLE2!C[-2]:C[-1],2,0)

Bonsoir,

pour solutionner ceci, encode manuellement dans ta cellule la formule que tu veux puis démarre l'enregistreur de macro, puis fais <F2> sur ta cellule puis <Enter>.
Arrête l'enregistreur de macro et regarde ce qu'il a généré. Tu as ta solution.

Bonsoir,

Assure toi que ta cellule est au format standard et non au format texte:

Code:

---

1 2 3 4

With ActiveCell .NumberFormat = "General" .FormulaR1C1 = "=VLOOKUP(RC[1],TABLE2!C[-2]:C[-1],2,0)" End With

---

Cordialement,

Tirex28/

Citation:

---

Envoyé par tirex28

Bonsoir,

Assure toi que ta cellule est au format standard et non au format texte:

Code:

---

1 2 3 4

With ActiveCell .NumberFormat = "General" .FormulaR1C1 = "=VLOOKUP(RC[1],TABLE2!C[-2]:C[-1],2,0)" End With

---

Cordialement,

Tirex28/

---

La réponse est ici! Cela fonctionne maintenant. Merci beaucoup pour votre aide.