Appel de fonction et de procédure

Version imprimable

02/10/2015, 10h52
MicroMatz

Appel de fonction et de procédure
Bonjour,

D'après mes tests et mes recherches, on peut appeler une procédure / fonction de plusieurs manières.

Est-ce que certaines sont plus "propres" que d'autres, est-ce que certaines sont à éviter ?
Y a-t-il d'autres moyens d’appeler une fonction / procédure que j'aurais omis dans le code ci-dessous ?

Cas 1 : procédure
Code:

1 2 3 4 5 6 7 8 Sub MaProcedure() 'mon code End Sub Sub MacroPrincipale MaProcedure 'Methode 1 Call MaProcedure 'Methode 2 End Sub
Cas 2 : fonction sans argument
Code:

1 2 3 4 5 6 7 8 9 Function MaFonction() As Integer 'mon code End Function Sub MacroPrincipale MaFonction 'Methode 1 Call MaFonction 'Methode 2 i = MaFonction 'Methode 3 End Sub
Cas 3 : fonction avec arguments
Code:

1 2 3 4 5 6 7 8 9 Function MaFonction(argu As Integer) As Integer 'mon code End Function Sub MacroPrincipale MaFonction 47 'Methode 1 Call MaFonction(47) 'Methode 2 i = MaFonction(47) 'Methode 3 End Sub
Merci d'avance pour vos réponses.
02/10/2015, 11h05
kiki29

Salut, à lire, entre autres : Les syntaxes de base Initiation au VBA Office
02/10/2015, 11h31
pasdechances
Bonjour,

Tout dépend de l'utilisation que tu veux en faire.

les méthodes que tu as la sont toutes correctes.(homris le i = mafonction quand tu retourne rien le i est vide)
Dire si elles sont plus propre je ne sais pas.
pense juste a ton besoin, si tu a besoin d'une fonction qui a une valeur en entrée et 0 en sortie tu fait

Code:

Function MaFonction(argu As Integer)

et si c'est l'inverse,
Code:

1 2 3 4 Function MaFonction()as integer 'tu doit retourner la valeur en gros dire se que vaut ta fonction ^^ sa marche aussi pour ton cas 3 tu l'avais pas mis MaFonction = 1 end function

Bonjour,

J'y vais sans complètement vérifier:

Code:

1
2
MaProcedure 'Methode 1
Call MaProcedure 'Methode 2

=> Les deux sont équivalents

Code:

1
2
3
4
5
6
7
8
9
Function MaFonction() As Integer
'mon code
End Function
 
Sub MacroPrincipale
MaFonction 'Methode 1
Call MaFonction 'Methode 2
i = MaFonction 'Methode 3
End Sub

Call MaFonction ne retourne rien ... donc je ne vois pas vraiment l'intérêt
i = MaFonction: correct (i integer)

Code:

1
2
3
4
5
6
7
8
9
Function MaFonction(argu As Integer) As Integer
'mon code
End Function
 
Sub MacroPrincipale
MaFonction 47 'Methode 1
Call MaFonction(47) 'Methode 2
i = MaFonction(47) 'Methode 3
End Sub

Attention: si vous ne spécifiez rien, les arguments sont passés par référence et non pas par valeur

ByVal : tout changement fait sur les arguments seront perdus
ByRef Any: le contraire, les arguments peuvent être modifiés par la procédure

MaFonction 47 ne retourne rien, Call MaFonction(47) devrait je pense générer une erreur
Exemple:

Code:

1
2
3
4
5
6
Msgansw = MsgBox("La feuille " & wsname & " n'existe pas dans " & wbk.Name & vbCrLf & _
                "Voulez-vous la créer?", vbExclamation + vbOKCancel, Funcname)
' On récupère le retour de la Msgbox
 
MsgBox "Error: " & Err.Number & vbCrLf & Err.Description, vbCritical, Funcname
'Mais pas ici (sans parenthèses)

N'oubliez pas que vous pouvez définir des arguments optionnels ou définir des valeur par défaut

Exemple:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Function Exist_sheet(wsname As String, Optional prompt_ifN_exisit As Boolean = False, Optional wbk As Variant) As Boolean
'=============================================================================
' Check if a sheet exists in the specified workbook (ThisWorkbook by default)by an access and create it if not (optional)
' This function could replace the 2 previous functions: chk_exist_sheet and create_sheet
 
    Funcname = "Func: Exist_sheet"
 
    Dim Msgansw As String, Wsh As Worksheet
 
    On Error GoTo Err_notexist
 
        ' Set the default values
    Exist_sheet = False
    If IsMissing(wbk) Then Set wbk = ThisWorkbook
 
        ' Test by access to the sheet, return true if succeeded, or test the Error 9
    If wbk.Worksheets(wsname).Range("A1").Address <> "" Then Exist_sheet = True
 
Err_notexist:
 
        ' Expected Error raised when acceeding to an not existing sheet
    If Err.Number = 9 Then
        Msgansw = vbOK
        If prompt_ifN_exisit = True Then
            Msgansw = MsgBox("The sheet " & wsname & " doesn't exist in " & wbk.Name & vbCrLf & _
                "Would you like to create it?", vbExclamation + vbOKCancel, Funcname)
        End If
 
            ' Create it if not existing depending on users inputs or option
        If Msgansw <> vbCancel Or prompt_ifN_exisit = False Then
 
            Set Wsh = Worksheets.Add(After:=wbk.ActiveSheet)
            Wsh.Name = wsname
            Wsh.Tab.Color = vbGreen
 
                ' Test by access to the sheet, return true if succeeded
            If wbk.Worksheets(wsname).Range("A1").Address <> "" Then Exist_sheet = True
        End If
        Err.Clear
 
            ' Return false if another error
    Else:
        If Err.Number > 0 Then
            MsgBox "Error: " & Err.Number & vbCrLf & Err.Description, vbCritical, Funcname
            Exist_sheet = False
            Err.Clear
        End If
    End If
End Function

Bonjour,

Une fonction retourne une valeur ou un tableau de valeurs et même, elle peut retourner les deux, (voir ci-dessous) donc, l'appeler sans récupérer ce qu'elle retourne n'a aucun sens :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
 
Sub MacroPrincipale()
 
    Dim I As Long
 
    MaFonction 'Methode 1 <-- ne sert à rien car la valeur retournée n'est pas utilisée !
    Call MaFonction 'Methode 2 <-- ne sert à rien non plus car idem !
    I = MaFonction 'Methode 3 <-- c'est la bonne méthode
 
    MsgBox I
 
End Sub
 
Function MaFonction() As Long
 
    'la valeur Long de la date du jour
    MaFonction = CLng(Date)
 
End Function
 
Sub MacroPrincipalePourTableau()
 
    Dim Tablo() As Long
    Dim I As Integer
    Dim Mot As String
 
    Mot = "Ceci est une chaîne !"
 
    Tablo = MaFonctionTableau(Mot) 'Methode 3 <-- c'est la bonne méthode
 
    For I = 1 To UBound(Tablo)
 
        Debug.Print Tablo(I)
 
    Next I
 
    MsgBox Mot
 
End Sub
 
 
Function MaFonctionTableau(Argument As String) As Long()
 
    Dim Tbl() As Long
    Dim I As Integer
 
    For I = 1 To 20
 
        ReDim Preserve Tbl(1 To I)
 
        Tbl(I) = I * 1000
 
    Next I
 
    Argument = "oui mais ici je le modifie !"
 
    'la valeur Long de la date du jour
    MaFonctionTableau = Tbl()
 
End Function

En ce qui concerne les procédures Sub, l'appel peut se faire avec ou sans Call c'est au choix, c'est comme l'instruction Rem (pour remarque) qui permet de mettre un commentaire afin d'expliquer le code tout comme le fait l'apostrophe, qui est majoritairement utilisé mais rien n'empêche d'utiliser Rem, le compilateur sait l'interpréter.

A pasdechances,

Citation:

les méthodes que tu as la sont toutes correctes.(homris le i = mafonction quand tu retourne rien le i est vide)

Là, je dirais que justement, c'est tout le contraire "I = MaFonction" est la seule qui est logique car appeler une fonction sans récupérer ce qu'elle retourne de sert à rien !
Dire que I est vide c'est faux la preuve :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub MacroPrincipale() Dim I I = MaFonction MsgBox I 'ici, ce n'est pas rien, puisque la fonction retourne un entier, I aura comme valeur 0 End Sub Function MaFonction() As Integer 'mon code End Function
avec un contrôle de la variable :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Sub MacroPrincipale() Dim I If IsEmpty(I) Then MsgBox "Vide !" I = MaFonction If Not IsEmpty(I) Then MsgBox "Pas vide !" MsgBox I 'ici, ce n'est pas rien, puisque la fonction retourne un entier, I aura comme valeur 0 End Sub Function MaFonction() As Integer 'mon code End Function

02/10/2015, 12h33
MicroMatz

Merci pour vos réponses.

Donc pour résumer :
- "Call" ne sert à rien, c'est juste pour faire joli (et pour la lisibilité du code)
- Utiliser une fonction qui ne retourne rien n'a aucun sens, il vaut mieux dans ce cas là utiliser une procédure "Sub". C'est une question de logique/cohérence du programmeur, même si VBA est capable de gérer les deux.
02/10/2015, 12h51
Philippe Tulliez

Bonjour,

Citation:

"Call" ne sert à rien, c'est juste pour faire joli (et pour la lisibilité du code)

C'est simplement une autre syntaxe. Je préfère la syntaxe sans le Call

Citation:

Utiliser une fonction qui ne retourne rien n'a aucun sens, il vaut mieux dans ce cas là utiliser une procédure "Sub".

C'est une question de choix. Je privilégie de plus en plus l'emploi de fonction et que j'utilise comme Sub ou comme Function qui renvoie par exemple TRUE (opération réussie) ou FALSE (Echec).
MSGBOX est par exemple une fonction native du VBA que l'on peut utiliser comme une SUB ou comme une fonction (Function)

Bonjour tout le monde

Puis qu'on est dans les bonnes pratiques sur la déclaration de Sub ou de Function j'ajoute quelque chose.

Avec Function MaFonction(argu As Integer) As Integer il faut être très vigilant car tu ne précises pas si c'est ByVal ou ByRef.
Par défaut c'est du ByRef.

Avec ByVal c'est une copie de la valeur passée en paramètre qui est utiliser. Avec ByRef c'est la valeur elle-même (on pointe directement sur celle-ci)
Je t'invite à tester le code suivant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Function doubler_val(ByVal n As Long) As Long n = n * 2 doubler_val = n End Function Function doubler_ref(ByRef n As Long) As Long n = n * 2 doubler_ref = n End Function Sub test() Dim n_val&, n_ref&, res_val&, res_ref n_val = 5: n_ref = 5 res_val = doubler_val(n_val): res_ref = doubler_ref(n_ref) Debug.Print "n_val -> " & n_val Debug.Print "res_val -> " & res_val Debug.Print "n_ref -> " & n_ref Debug.Print "res_ref -> " & res_ref Debug.Print "------------------" End Sub
Tu peux voir que dans un cas n_val n'est pas modifié alors que n_ref l'est.

PS : Avant toutes remarques, doubler_ref = n*2 résoudrait ce faux problème mais il s'agit 'un exemple.

02/10/2015, 19h14
Invité

Salut,

Il y a aussi Excel.Run et VBA.CallByName qui permettent d'appeler une procédure. Et éventuellement Excel.Application.OnTime dans certains cas.

EDIT: Ce que j'avais écris a déjà été écrit au dessus. J'ai supprimé.