Créer une fonction perso vba modifiant une formule d'une autre cellule

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:

---

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:

---

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.

Salut

Une fonction perso utilisée dans une feuille de calcul ne peut pas modifier la structure du classeur. Elle ne peut que renvoyer une valeur exploitée dans la formule.

Hello,

Donc est-ce que je peux calculer la nouvelle formule (modifiée) et l'injecter en tant que valeur dans ma cellule ?

Oui...

Cela étant, je ne comprends pas bien la finalité de l'opération :koi:

Comment dois je procéder stp ?

En fait j'ai plusieurs formules LIRETABLEAUCROISEDYNAMIQUE différentes à la suite dans une colonne.
Elle varie selon la date dans une colonne.
J'ai donc une première partie avec janvier et je voudrais répéter l'opération pour février mars etc etc.
A part faire un copier coller brutal ou créer une telle fonction, je ne vois pas d'autre solution.

Ca dépend de ce qu'il y a dans ton tcd, notamment.

Tu pourrais mettre une copie d'écran de ton tcd et une de la plage qui récupère les données via LIREDONNEESTABLEAU...?

Pour des raisons de confidentialité je ne peux pas mettre le tcd.
Mais en gros :
Mon TCD est scindé selon différentes lignes de regroupements avec une répartition des valeurs selon des colonnes date du mois.

J'ai des formules complètement différentes (il peut y avoir des sommes de LIRETABLEAUCROISEDYNAMIQUE ou juste 1 et ne faisant pas référence aux mêmes lignes)

Dans une autre feuille Excel, j'ai une colonne Mois avec 01/01/2017 pour un ensemble de ligne où que les formules vont utiliser pour choisir la colonne date correspondant de TCD.

Je souhaiterais que pour 01/02/2017 ma fonction prenne la formule de 01/01/2017 fasse un Replace(formuleJanvier,MOIS(01/01/2017),MOIS(01/02/2017))
etc etc

Je ne sais juste pas comment faire pour que la formule se calcule sous vba et qu'elle soit injecter sous forme de valeur dans ma cellule.

Bon tant pis je vais passer par une Sub plutôt que par une Function même si je perds le côté dynamique ...