Discussion :

[barbeaua]

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 VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[barbeaua]

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...

[barbeaua]

Une simple petite question,

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