[VBA] Fonction qui retourne une valeur

Bonjour,
Il suffit de nomer la variable de retour du meme nom que la fonction :


Function ma_function(argument as string) as (type retourné)

ma_function = ....

EndFunction


et tu l'appelles de façon classique

Bonjour,

ou encore :

Sub Test()

Dim Argum As String, Resul As Integer, Fina As Integer

Argum = "20"
Resul = 1
Fina = 1
Call Ma_Fonction(Argum, Resul, Fina)
MsgBox Argum & vbLf & Resul & vbLf & Fina

End Sub
'

Function Ma_Fonction(ByVal Argument As String, ByRef Resultat As Integer, ByRef Final As Integer)

Resultat = Val(Argument)
Final = Resultat - 1
Argument = "Nil"

End Function
'

Michel

Bonjour,

Quelques petites précisions concernant les fonctions et procédures, ainsi que les arguments "byval" et "byref"
N'aimant pas refaire ce qui a déjà été si bien fait, je vous fournis juste les liens :

vbsfunction
http://www.vbfrance.com/tutorial.aspx?ID=182

Feignassement,

Teteve :)

Merci beaucoup

Bonjour

Peut-on renvoyer une structure de donnée ex:

si je fais

Type rep
         EstRep As Boolean
         chemin As String
End Type

puis-je faire:

Function ma_fonction(argument As String) As rep

Merci d'avance

Function ma_function(argument as string) as integer
....
EndFunction

Bonjour WSL1912,

Euh... Bonne question... Je t'avoue que dans l'absolu je n'en sais rien. La meilleure façon de le savoir est d'essayer :)
Si tu n'y arrives pas, expose toutes les données de ton problème, il y a forcément un moyen de contourner les problèmes ;)

Teteve