différence entre une sub et une fonctionRésolu

Question

bonjour!

qqn pourrait-il m'expliquer la diff&#233;rence entre une 'sub' et une fonction? il me semble que c'est au niveau de ce qu'elles renvoient et de leur appel, mais je ne sais plus...

merci de votre r&#233;ponse.

  Daydayerement V&#244;tre

linasteph · Accepted Answer

Oui sauf que si tu utilises la syntaxe Call pour appeler toute fonction que tu as d&#233;finies, la valeur de retour de la fonction est ignor&#233;e

mrdep1978 · Answer

Effectivement, une Sub est une proc&#233;dure et donc ne renvoie rien
Une fonction (Function) renvoie quelque chose (valeur ou objet)
Ex:

'Proc&#233;dure
Public Sub maSub1(a_Text As String)
MsgBox a_Text
End Sub


'Fonction renvoyant un entier
Public Function maFonc1(a_Val As Integer) As Integer
maFonc1 = a_Val * 2
End Function


'Fonctin renvoyant une chaine
Public Function maFonc2(a_Text As String, a_Val As Integer) As String
maFonc2 = a_Text & " : " & a_Val
End Function


'Fonction renvoyant un objet
Public Function maFonc3(a_Text As String, a_Val As Integer) As Object
Dim l_test As New Form
Set maFonc3 = l_test
End Function


'Fonctin renvoyant un Variant (c'est &#224; dire n'importe quel type de donn&#233;e
Public Function maFonc4(a_Text As String, a_Val As Integer)
Dim l_test As New Form
Select Case a_Val
Case 0
   'Renvoie un entier
   maFonc4 = 1
Case 1
   'Renvoie une chaine
   maFonc4 = a_Text
Case 2
   'Renvoie un objet
   Set maFonc4 = l_test
End Select
End Function


Public Sub test()
Dim a As Object
Dim li_Value As Integer
Dim ls_Val As String
Dim lv_test As Variant


maSub1 "Coucou"
Call maSub1("Coucou")


'Appels de fonction dont on ne r&#233;cup&#232;re pas la valeur (ce qui ne sert &#224; rien dans cet exemple)
maFonc1 2
Call maFonc1(2)


Debug.Print "maFonc1"
li_Value = maFonc1(2)
Debug.Print li_Value
Debug.Print ""
Debug.Print "maFonc2"
ls_Val = maFonc2("test", 2)
Debug.Print ls_Val
Debug.Print ""
Debug.Print "maFonc3"
Set a = maFonc3("test", 2)
Debug.Print a.Caption
Debug.Print ""
Debug.Print "maFonc4"
li_Value = maFonc4("test", 0)
Debug.Print li_Value
ls_Val = maFonc4("test", 1)
Debug.Print ls_Val
Set a = maFonc4("test", 2)
Debug.Print a.Caption
Debug.Print ""
Debug.Print "maFonc4 bis"
lv_test = maFonc4("test", 0)
Debug.Print lv_test
lv_test = maFonc4("test", 1)
Debug.Print lv_test
Set lv_test = maFonc4("test", 2)
Debug.Print lv_test.Caption


End Sub

Daydayer · Answer

maSub1 "Coucou" et
Call maSub1("Coucou")

sont de manieres d'appeler une fonction ou une sub alors?

  Daydayerement V&#244;tre

linasteph · Answer

Call permet aussi bien d'appeler une sub qu'une function.



Pour une sub cela sera: masub(......)

et pour une fonction par exemple cela sera: a=mafunc(.....)

Daydayer · Answer

merki! mais en fait je voulais savoir si c'&#233;tait les deux facon d'appeler une fonction (ou une sub)... alors c'est oui?

  Daydayerement V&#244;tre

mrdep1978 · Answer

oui

Neo.balastik · Answer

Salut :O)

En effet une sub ne retourne pas d'information mais n'oublions pas qu'en passant un argument par r&#233;f&#233;rence, une sub peut modifier le contenu d'une variable locale.  Pour rappel, VB passe par d&#233;faut tous ses arguments par r&#233;f&#233;rence.  ByVal devrait &#234;tre explicitment utilis&#233; &#224; chaque fois que ByRef n'est pas n&#233;cessaire.  Histoire d '&#234;tre logique et 'propre'.

Exemple :

Private Sub Command1_Click()


Dim toto As Long


toto = 1
Call MySub(toto)


'Toto vaut 2 puisque la valeur 1 lui a &#233;t&#233; ajout&#233; dans la sub MySub
MsgBox toto


End Sub

Private Sub MySub(ByRef Parametre As Long)


'La variable Parametre pointe sur la variable toto.  Parametre et toto sont une seule et unique variable.
'Toto vaut 1 &#224; ce stade.  Toto aura comme valeur 2 apr&#232;s l'ex&#233;cution de la ligne ci-dessous.
Parametre = Parametre + 1


End Sub

Guy

Différence entre une sub et une fonction

7 réponses