Incrémenter formule en conservant historique

Bonjour,

C’est premier poste sur ce forum, j’ai une difficulté pour remplacer la formule du range (« G » & Ligne )par la formule existante à la quelle j’auditionne ma variable Nbr multiplié par ma variable Prix) le but est de réaliser le calcul en gardant l’historique (= 1+1+1 et non pas =3).

Voici mon code (qui ne marche pas):

Range(« G » & Ligne).FormulaR1C1= «=» + Range(« G » & Ligne).FormulaR1C1 + « Nbr * Prix » »

j’espère que j’ai été clair ..

je vous remercie d’avance

Narca

bonsoir,

si j'ai bien compris

Sub aargh()
    nbr = 10
    prix = 15
    Ligne = 1
    formuleinitiale = Range("G" & Ligne).FormulaR1C1
    If formuleinitiale = "" Then formuleinitiale = "="
    Range("G" & Ligne).FormulaR1C1 = formuleinitiale & "+" & nbr & "*" & prix
End Sub

Bonjour ,

merci c’est pile poil ce que je voulais ..

Félicitation et peut-être à bientôt