somme vba

[Alex]

Bonjour tout le monde !
$J'ai un petit probléme : pas moyen de reussir a faire fonctionner cette partie de programme
je voudrais faire la somme sur chaque ligne mais ca ne veut pas marcher
voici :

For i = 0 To 2
' Récupération du nombre de lignes à comptabiliser dans la formule
MonNoDeLigne = i
MsgBox [=SUM(b" & MonNoDeLigne & ":af" & MonNoDeLigne & ")]
Next


Si vous pouviez m'aider ca serait vraiment cool
Merci d'anvance

 

[sousou]

Bonjour
Essai cette solution

Sub test()

For i = 0 To 2
' Récupération du nombre de lignes à comptabiliser dans la formule
MonNoDeLigne = i
For c = 1 To 32
s = ActiveSheet.Cells(i + 1, c).Value + s
Next
Next
MsgBox s
End Sub