[VBA] Fonction qui retourne une valeur

Question

Bonjour,

J'aimerai réaliser un programme utilisant une fonction, le prog est fait mais c'est la fonction qui me pose problème:

Je dois entrer une chaîne de caractères en argument, ça je sais faire:


Function ma_function(argument as string)
....
EndFunction


Ce que je ne sais pas faire par contre c'est que la fonction renvoie en réponse un entier... Comment puis-je faire SVP?

Merci d'avance

kreposucre · Accepted Answer

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

nobody · Answer

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

Michel · Answer

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

wsl1912 · Answer

Merci beaucoup

teteve · Answer

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
https://codes-sources.commentcamarche.net/

Feignassement,

Teteve :)

wsl1912 · Answer

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

teteve · Answer

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

[VBA] Fonction qui retourne une valeur

7 réponses

Discussions similaires

Newsletters