Modifier une Formule

bonjour a tous!!
voila mon probleme:

J'ai une cellule (disons "A1") avec une formule.
je souhaite inserer une plage de cellules dans ma feuille en cliquant sur boutton(jusqu'ici tout va bien). Je souhaite maintenant ajouté la premiere cellule de ma nouvelle plage a la formule de la cellule ("A1").

Example
A1 =B1+B2. Lorsque je clique sur mon boutton je souhaite ajouter C1 a la formule pour obtenir A1 = B1+B2+C1

Si je clique une deuxieme fois sur mon boutton je souhaite obtenire ceci
A1 = B1 + B2 + C1 + D1 et ainsi de suite

J'ai donnc essayer ceci mais biensur cela ne marche pas

Code:

---

1 2 3 4 5 6 7 8 9

'Defini ma plage qui vient d'etre insérée Set MyRange3 = Selection oRow3 = MyRange3.Row oCol3 = MyRange3.Column   'ajoute cellule a la formule range("A1").select ActiveCell.FormulaLocal = "=" & ActiveCell.address & "+" & Cells(oRow3, oCol3).Offset(1, 0).Address

---

Quelqu'un aurait il une idée

Merci d'avance

Salut,

Dans ton code, il ne faut pas utiliser l'adresse de A1 mais sa formule et pourquoi ajouter l'adresse de la cellule juste en dessous de celle selectionnee (...Offset(1, 0)...) ou alors j'ai mal compri ton bout de code....
Il faudra aussi verifier si A1 contient deja une formule.

Essaie ceci par exemple:

Code:

---

1 2 3 4 5 6 7 8 9

'Defini ma plage qui vient d'etre insérée Set MyRange3 = Selection   'ajoute cellule a la formule If Range("A1").Formula = "" Then Range("A1").FormulaLocal = "=" & MyRange3.Address Else Range("A1").FormulaLocal = Range("A1").FormulaLocal & "+" & MyRange3.Address End If

---

++
Minick

Merci Minick,

tu viens de resoudre mon probleme et ca marche parfaitement!!!

encore merci :ccool:
++