éxecuter une fonction vba dans excel

[dorian57290]

Bonjour,
je voudrai exécuter cette fonction dans une feuille excel où il y'a 2 cellules:
n Somme_n
30 0



Function somPremEnt(ByVal n As Integer) As Integer
' Hypothèse : n >= 0.
If n >= 0 Then
' Renvoie : la somme des entiers compris entre 0 et n (inclus).
somPremEnt = (n * (n + 1)) / 2
End Function

je suis débutant sur vba j'essaye de m'auto former, merci pour votre aide !

 

[Dranreb]

Re : éxecuter une fonction vba dans excel

Bonjour.

Ou est le problème ?

=somPremEnt(A1)

ne marche pas ?

Il serait plus prudent de prendre Long plutôt que Integer.

 

[dorian57290]

Re : éxecuter une fonction vba dans excel

Merci de votre réponse rapide, je ne voit pas ou est le problème justement lol. Ma ligne de code n'est pas bonne ou il faut que j’affecte N à une cellule d'une feuille excel ?
Merci pour votre conseil avec long plutot que integer

 

[dorian57290]

Re : éxecuter une fonction vba dans excel

voici mon petit exercice

 

[Dranreb]

Re : éxecuter une fonction vba dans excel

Pas vu: manque End If avant la End Sub
Cela réparé la formule marche.
Le code doit être dans un module ordinaire.

Function somPremEnt(ByVal n As Integer) As Integer
' Hypothèse : n >= 0.
If n >= 0 Then
   ' Renvoie : la somme des entiers compris entre 0 et n (inclus).
   somPremEnt = (n * (n + 1)) / 2
   End If
End Function

 

[ROGER2327]

Re : éxecuter une fonction vba dans excel

Bonjour à tous.

Autres propositions :​

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

Function somPremEntRoger_2(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 renvoie une valeur
'     d'erreur (ou rien) ;
'   - si n n'est pas strictement positif, la fonction
'     renvoie une valeur d'erreur (ou rien).

    somPremEntRoger_2 = "argument invalide"
    If IsEmpty(d) Then
        somPremEntRoger_2 = ""
    Else
        If IsNumeric(d) Then
            If d = Int(Abs(d)) Then
                If d > 0 Then somPremEntRoger_2 = d * (d + 1) / 2
            End If
        End If
    End If

End Function

Bonne journée.


ℝOGER2327
#7744

Lundi 16 Gueules 142 (Saint Münchhausen, baron - fête Suprême Quarte)
22 Pluviôse An CCXXIII, 5,9616h - thyméle
2015-W07-2T14:18:28Z