Somme en VBA

[zakou76]

Bonsoir à tous
1. Une toute petite question. Dans la colonne G j'ai les valeurs suivantes:
00:00:25
00:00:07
00:49:32

00:00:20
00:00:05
00:00:36

Ce nombre de lignes est variable. Pour ce cas, je dois réaliser la somme des heures de G1:G7 dans la cellule G8. j'ai écris le code suivant mais il me sort une erreur dans la fonction SUM.

FinLigne = Range("G65536").End(xlUp).Row
Range("G" & FinLigne + 1).Select

ActiveCell.FormulaR1C1 = "=SUM(R[- & FinLigne]C:R[-1]C)"
End Sub

2. Comment réaliser le meme calcul pour les autres feuilles dans la meme colonne sachant que le nombre de lignes pour les heures est variable(de 0 ligne à X lignes)

Merci pour votre aide

 

[Habitude]

Re : Somme en VBA

ActiveCell.FormulaR1C1 = "=SUM(R[- " & FinLigne & " ]C:R[-1]C)"

 

[zakou76]

Re : Somme en VBA

Bonjour HABITUDE
Merci pour votre réponse. Mais en fouinant dans les discussions du forum, j'ai trouvé un code extra que j'ai tripoté un peu et le voici pour ceux qui sont intéressé:
Sub Sommation()

l = Range("G65536").End(xlUp).Row

'MsgBox "la ligne est " & l, vbOKOnly
j = Range("G1").Value
'MsgBox "la colonne est " & j, vbOKOnly
Set Lacel1 = Cells(1, 7)
Set Lacel2 = Cells(l, 7)

Cells(l + 1, 7).Select
ActiveCell.FormulaLocal = "=SOMME(" & Lacel1.Address & ":" & Lacel2.Address & ")"
ActiveCell.Font.Bold = True
End Sub

Ca marche nickel. Et merci encore