Discussion :

[stargates]

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

[SfJ5Rpw8]

déplace les "..

Code :

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

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

[stargates]

merci,


maintenant il me donne une autre erreur

sub or fonction not defined

Code :

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

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

il me grise la fonction Sum


merci

[SfJ5Rpw8]

oups j'avais pas tous lu..

Code :

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

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 "

[stargates]

ok merci

[alsimbad]

remarque, peut etre qu'il vas aussi tilter a

Code :

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

Sheets(Prestation).

et qu'il prefererai

Code :

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

Sheets("Prestation")

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