worksheetfunction."fonction perso"

[bonsouarmessieux]

Bonjour a tous!
J'aimerais utiliser une fonction perso dans une macro.
Y a t'il un équivalent à worksheetfunction pour les fonction personelle?
Un exemple très simpliste pour illustrer mes propos avec une fonction perso qui addition deux nombres (pas très original il est vrai 😛)

Function SommePerso(a, b)
SommePerso = a + b
End Function
Sub CalculSomme()
    a = 5
    b = 3
    MsgBox Application.WorksheetFunction.SommePerso(a, b)
End Sub

ce code ne fonctionne pas. Savez vous pourquoi?

 

[bqtr]

Re : worksheetfunction."fonction perso"

Bonjour bonsouarmessieux,

Cela suffit :

Sub CalculSomme()
    a = 5
    b = 3
    MsgBox SommePerso(a, b)
End Sub

Tu appelles simplement ta fonction perso.

A+

Bonjour myDearFriend!

 

[myDearFriend!]

Re : worksheetfunction."fonction perso"

Bonjour bonsouarmessieux, le Forum,

Tu n'as pas besoin de Application.WorksheetFunction :

[COLOR=NAVY]Sub[/COLOR] CalculSomme()
[COLOR=NAVY]Dim[/COLOR] a [COLOR=NAVY]As Byte[/COLOR], b [COLOR=NAVY]As Byte[/COLOR]
    a = 5
    b = 3
    MsgBox [B]SommePerso(a, b)
[/B][COLOR=NAVY]End Sub[/COLOR]

Cordialement,

Edition : Bonjour Bqtr, pas vu venir...

 

[bonsouarmessieux]

Re : worksheetfunction."fonction perso"

Merci pour vos réponses qui me rappellent cette devise shadock:
"Pourquoi faire simple quand on peut faire compliqué" 😀