Comment : créer une procédure
Mise à jour : novembre 2007
Vous insérez une procédure entre une instruction de déclaration initiale (Sub ou Function) et une instruction de la déclaration de la fin (End Sub ou End Function). Le code de la procédure se trouve entre ces instructions.
Une procédure ne peut pas contenir une autre procédure, ses instructions de début et de fin doivent donc se situer en dehors de toute autre procédure.
Si un code effectue la même tâche dans des endroits différents, vous pouvez écrire la tâche une fois en tant que procédure puis l'appeler depuis des endroits différents dans votre code.
Pour créer une procédure qui ne retourne pas de valeur
En dehors de toute autre procédure, utilisez une instruction Sub, suivie d'une instruction End Sub
Dans l'instruction Sub, faites suivre le mot clé Sub du nom de la procédure, puis de la liste de paramètres entre parenthèses.
Placez les instructions de code de la procédure entre les instructions Sub et End Sub
Pour créer une procédure qui retourne une valeur
En dehors de toute autre procédure, utilisez une instruction Function, suivie d'une instruction End Function
Dans l'instruction Function, faites suivre le mot clé Function du nom de la procédure, puis de la liste de paramètres entre parenthèses, puis d'une clause As spécifiant le type de données de la valeur de retour.
Placez les instructions de code de la procédure entre les instructions Function et End Function
Utilisez une instruction Return pour retourner la valeur au code appelant.
Pour connecter votre nouvelle procédure avec les anciens blocs de code répétitifs
Assurez-vous que vous définissez la nouvelle procédure dans un endroit auquel l'ancien code a accès.
Dans votre ancien bloc de code répétitif, remplacez les instructions qui effectuent la tâche répétitive par une seule instruction qui appelle la procédure Sub ou Function.
Si votre procédure est une Function qui retourne une valeur, assurez-vous que votre instruction appelante exécute une action avec la valeur retournée, telle que le stockage dans une variable, dans le cas contraire la valeur sera perdue.
Exemple
La procédure Function suivante calcule le côté le plus long, ou hypoténuse, d'un triangle rectangle, d'après les valeurs des deux autres côtés.
Function hypotenuse(ByVal side1 As Single, ByVal side2 As Single) As Single
Return Math.Sqrt((side1 ^ 2) + (side2 ^ 2))
End Function
Voir aussi
Tâches
Comment : fractionner des grands segments de code en segments plus petits
Concepts
Paramètres et arguments d'une procédure