Bonjour,


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


Code : Sélectionner tout - Visualiser dans une fenêtre à part
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