laurent999
XLDnaute Occasionnel
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.
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.