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 : Sélectionner tout - Visualiser dans une fenêtre à part
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...