Utilisation macro VBA bouton

Hello everyone!

Je suis coincé sur un petit problème technique... Je débute en VBA et je bloque sur mon code.

Alors voilà, mon but est de modifier la formule d'une cellule dans mon onglet "Debours1" lors de l'ajout d'un onglet en appuyant sur le bouton.
J'aimerai que la cellule D11 de Debours 1 prenne son ancienne valeur + une valeur qui vient de la nouvelle feuille.

Pour le moment mon code ressemble à ceci:

Code:

---

1 2 3 4 5 6 7 8

Sub duplique() Dim test As Double test = Range("D11").Value MsgBox test Sheets("BPU1").Copy after:=Sheets(Sheets.Count - 1) Sheets(Sheets.Count - 1).Name = "VilleSuivante" Sheets("Debours1").Range("D11").FormulaLocal = "= test + SOMMEPROD(('VilleSuivante'!$E$2:$E$1664=A11)*('VilleSuivante'!$F$2:$F$1664=B11)*('VilleSuivante'!$D$2:$D$1664))" End Sub

---

Mais ça ne fonctionne pas... J'espère avoir été clair :)

Merci d'avoir pris le temps de lire ce message, en espérant que vous puissiez m'aider!

Antoine

Je pense que ton problème vient du fait que après la copie, Sheets.Count n'a pas la même valeur qu'avant (puisqu'il y a un onglet de plus).
Autre erreur : tu mets "test" dans la formule. Or, c'est une variable VBA qui n'a pas de valeur dans Excel. Pour l'intégrer à la formule, il faut y mettre sa valeur (je ne suis pas sûr d'être clair dans mon explication).

Code:

---

1 2 3 4 5

Sub duplique() Sheets("BPU1").Copy after:=Sheets(Sheets.Count - 1) ActiveSheet.Name = "VilleSuivante" Sheets("Debours1").Range("D11").FormulaLocal = "= " & Sheets("Debour1").Range("D11").Value & " + SOMMEPROD(('VilleSuivante'!$E$2:$E$1664=A11)*('VilleSuivante'!$F$2:$F$1664=B11)*('VilleSuivante'!$D$2:$D$1664))" End Sub

---

Menhir,

Merci beaucoup pour ton aide, ça fonctionne parfaitement et c'est plus court et plus clair.
Effectivement, je n'avais pas pris en compte la valeur dans ma formule...

Une simple petite question,

Est-il possible de garder l'ancienne formule de la cellule au lieu de la valeur de celle-ci?