Discussion :

[amauri]

Bonjour à tous,

J'ai une formule dans la cellule "T2". Je souhaite prolonger cette formule jusqu'a la derniere ligne de la colonne juste à sa gauche (par exemple "S123").

J'essaye d'utiliser ce code:

Code :

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

1
2
3
4
With WshC
.Range("T2").Formula = "=VLOOKUP(RC[-2],C[-14]:C[-13],2,FALSE)"
.Range("T2").AutoFill Destination:=.Range("T2:T" & .Range("T" & Rows.Count).End(xlUp).Row)
End With

mais l'erreur 1004 s'affiche pour la deuxieme ligne de code.

Trouvez vous l'erreur dans cette ligne ?

Ou, existe t il un autre code pour etendre ma formule jusqu'a la derniere ligne de la colonne à sa gauche ?

Merci bien

[jfontaine]

Bonjour

Essais comme cela (testé avec FormulaLocal)

Code :

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

WshC.Range("T2:T" & WshC.Range("S" & Rows.Count).End(xlUp).Row).Formula = "=VLOOKUP(RC[-2],C[-14]:C[-13],2,FALSE)"

[amauri]

Merci Jérôme !

Ca fonctionne tres bien. C'est exactement ce que je voulais

Bonne journée !