modifier formule par macro

[laurent999]

Bonjour,

J'ai besoin de modifier une formule par macro.

Je m'explique j'ai écrit cette petite macro

Dim vcherchée As String
Dim a As Range
vcherchée1 = "Total Part"
Set a = Sheets("Détail Réseau Fr").Range("A1:A1000").Find(vcherchée1)
If Not a Is Nothing Then a.Offset(0, 1).FormulaR1C1 = a.Offset(0, 1).FormulaR1C1 & "+" & "B2"

a.Offset(0, 1).FormulaR1C1 est déjà égale à =B8
quand je clic sur cette cellule je devrais après exécution de la macro avoir =B8+B2
or j'ai comme résultat =B8+'B2'

merci d'avance pour votre aide.

Laurent.

 

[Pierrot93]

Re : modifier formule par macro

Bonjour Laurent,

pas testé, mais essaye peut être ainsi :

If Not a Is Nothing Then a.Offset(0, 1).FormulaLocal = a.Offset(0, 1).FormulaLocal & "&B2"

bon après midi
@+

 

[Efgé]

Re : modifier formule par macro

Bonjour

Un "bricolage" qui devrait fonctionner si la cellule B2 ne contient pas de formule trop complexe:

If Not a Is Nothing Then a.Offset(0, 1).FormulaR1C1 = a.Offset(0, 1).FormulaR1C1 & "+" & Range("B2").Value

Cordialement

 

[laurent999]

Re : modifier formule par macro

Merci à vous deux,

La formule de Pierrot fonctionne comme ceci:

a.Offset(0, 1).FormulaLocal = a.Offset(0, 1).FormulaLocal & "+B2"

Encore merci,

Laurent.