[VBA-E97]Problème addition de plage

Bonjour,


Je voudrais additionner une plage de cellules dont la fin n'est pas toujours la meme

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub cmdTotal_Click() Dim i As Integer 'Initialisation de la variable pour la recherche de la 'première cellule vide dans la plage i = 10 'Recherche de la cellule vide While ActiveSheet.Cells(i, 10) <> "" i = i + 1 Wend 'Formule:addition de la plage Sheets(Prestation).Cells(i, 10).FormulaLocal=Sum(K11:K "& i - 1 & ")   End Sub

---

il me donne une erreur à K11: en grisant le :

une idée merci

déplace les "..

Code:

---

1 2	Sheets(Prestation).Cells(i, 10).FormulaLocal=Sum("K11:K " & i - 1 )

---

merci,


maintenant il me donne une autre erreur

sub or fonction not defined

Code:

---

1 2 3

Sheets(Prestation).Cells(i, 10).FormulaLocal = Sum("K11:K " & i - 1)

---

il me grise la fonction Sum


merci

oups j'avais pas tous lu..

Code:

---

1 2 3

Sheets(Prestation).Cells(i, 10).Formula="=Sum(""K11:K "" & i - 1 )"

---

c'est mieux..? ...

enfin si prestation n'est pas une variable mais le nom de la feuille il faut le mettre entre "

ok merci

remarque, peut etre qu'il vas aussi tilter a

Code:

---

Sheets(Prestation).

---

et qu'il prefererai

Code:

---

Sheets("Prestation")

---

oups pardon, j'avais pas lu la remarque de bbil en fin de post:roll: