XL 2013 calcul somme sur une feuille avec Range et cells

[jojo2006]

Bonjour à tous, j'ai un souci de syntaxe en VBA pour calculer une somme dans une plage de cellule mais en définissant le nom de la feuille , dans mon cas "data"

j'utilise cette syntaxe :

Sub calcul_somme()

Dim somme As Double

somme = Application.WorksheetFunction.Sum(Range(Cells(1, 1), Cells(5, 1))) ' ça fonctionne sur la feuil 1 !!!
somme = Application.WorksheetFunction.Sum(Sheets("data").Range(Cells(1, 1), Cells(5, 1))) ' ça fonctionne PAS !!! :-(

End Sub


merci d'avance pour votre aide

 

[fanfan38]

Bonjour
somme = Application.WorksheetFunction.Sum(Sheets("data").Range(Sheets("data").Cells(1, 1),Sheets("data"). Cells(5, 1)))
A+ François

 

[jojo2006]

c'est pour ça que j'adore ce forum !!!! c'est parfait
Merci Fanfan38 A+

 

[olivier 76]

bonjour a tous
je souhaite faire la même chose mais ma plage est variable.
je comence juste en vba.
merci de votre aide

Dim x As Integer
Dim somme As Double
Sheets("BDC_FR (2)").Select
x = Range("c1").Value + 6
somme = Application.WorksheetFunction.Sum(Sheets("BDC_FR (2)").Range(Sheets("BDC_FR (2)").Cells(7, 6), Sheets("BDC_FR (2)").Cells(7, x)))
Range("F" & (x + 1)) = somme