Function somPremEntRoger_10(d)
'Respecte la condition : "... une fonction qui, étant donné
'un entier naturel n, renvoie la somme des entiers naturels
'compris entre 1 et n (inclus), renvoie 0 Si n=0."
'
'Cette condition impose que :
' - si n n'est pas entier, la fonction ne renvoie rien (ou
' une valeur d'erreur) ;
' - si n n'est pas positif, la fonction ne renvoie rien
' (ou une valeur d'erreur).
Dim i&, Res&
somPremEntRoger_10 = ""
If Not IsEmpty(d) And IsNumeric(d) Then
If d = Int(Abs(d)) Then
For i = 1 To d: Res = Res + i: Next
somPremEntRoger_10 = Res
End If
End If
End Function