Bonjour à tous,

Je souhaiterais obtenir une fonction qui me récupère une formule de la cellule spécifiée pour ensuite la modifier et la recalculer dans la cellule où est mise ma fonction.
J'ai fait ceci :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Function RecopierCA(CelluleIni As Range, NouvelleDate As Range)
 
RecopierCA = Replace(CelluleIni.FormulaLocal, "F" & CelluleIni.Row, "F" & NouvelleDate.Row)
 
End Function
Mais ma formule copier la formule sous forme de texte.

J'ai essayé :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Function RecopierCA(CelluleIni As Range, NouvelleDate As Range) as Range
 
RecopierCA.FormulaLocal = Replace(CelluleIni.FormulaLocal, "F" & CelluleIni.Row, "F" & NouvelleDate.Row)
 
End Function
J'ai également essayé de mettre Application.WorksheetFunction.Substitute à la place du replace mais j'obtiens un #VALEUR! pour les deux cas précédents.

Pourriez-vous m'aider, svp ?

Cordialement.