Function somPremEntRoger_1(d)
'Respecte la condition : "... une fonction qui, étant donné
'un entier naturel n, renvoie la somme des n premiers entiers
'naturels non nuls..."
'
'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 strictement positif, la fonction ne
' renvoie rien (ou une valeur d'erreur).
somPremEntRoger_1 = ""
If Not IsEmpty(d) And IsNumeric(d) Then
If d = Int(Abs(d)) Then
If d > 0 Then somPremEntRoger_1 = d * (d + 1) / 2
End If
End If
End Function