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 :
Mais ma formule copier la formule sous forme de texte.
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
J'ai essayé :
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.
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
Pourriez-vous m'aider, svp ?
Cordialement.
Partager