« Macros-commandes VBA/Création de Fonction » : différence entre les versions

'''FONCTION :'''

 

Function carre(nombre)

carre = nombre ^ 2 'La fonction "carre" renvoie la valeur de "carre"

End Function

 

'''PROCEDURE :'''

 

Sub macro_test()

Dim resultat As Double

MsgBox resultat 'Affiche le résultat (ici, le carré de 9.876)

End Sub

}}

 

Alors que sous VBA, il est possible de déclarer la fonction (plus lisible et plus facile à corriger en cas d'erreur) :

 

Function calculPrime(montant as Double) as Double

If montant>1000 then

End If

End Function

 

Dans ce cas, il suffit d'introduire dans une case Excel : '''=calculPrime(B5)''' pour obtenir le même résultat qu'avec une fonction SI imbriquée.

'''Exemple''' :

 

Function diviser_par_1000(Cellule_a_diviser As Double)

diviser_par_1000 = Cellule_a_diviser / 1000

End Function

 

{{Conseil|contenu=

* Ensuite, il faut lui transmettre les paramètres :

 

Sub AppelFonction()

Dim variable1 As Byte, variable2 As Byte

MsgBox resultat

End Sub

 

* il est aussi conseillé de décrire ce que fait la fonction

 

' déclarer les variables

Dim variable1 As Byte, variable2 As Byte

MsgBox resultat

End Sub

 

* Enfin, fermer la fenêtre appuyer sur la touche F5 pour lancer la macro.

Le nom de la fonction jouant le rôle d'une variable locale à la fonction, il est possible de l’utiliser tout au long de la procédure ce qui permet d'économiser la création d'une variable temporaire supplémentaire .

 

Function MAFONCTION(Param1,... ParamN) As Double

MAFONCTION = Param1 + Param2 /5

MAFONCTION = MAFONCTION ^ 2

End Function

 

Pour faciliter la création de fonction, le nom doit respecter des conventions standards d'affectation, comme :

La syntaxe est la suivante :

 

Function nom_fonction(paramètre1, paramètre2,,....) AS type

instruction1

nom_fonction=valeur_retour

End Function

 

Un nombre quelconque d'assignations de ce type peut apparaître n’importe où dans la procédure. Si aucune valeur n'est attribuée à l'argument nom_fonction, la procédure renvoie une valeur par défaut :

Grâce aux fonctions personnalisées, il est possible de créer une fonction permettant de calculer plus facilement le montant des intérêts à verser en fonction du montant du Capital, du taux d'intérêt et de la durée de l'emprunt.

 

Function CalculerInteret (ByVal Capital As Long, ByVal Taux As Double, ByVal Duree As Integer) As Currency

CalculerInteret = Format ( Capital * Taux / 100 * Duree), "Currency")

End Function

 

Le mot clé ''Function'' indique le début de la fonction qui a pour nom CalculerInteret, le mot clé ''End Function'' indique la fin de la fonction

Cette fonction est une fonction personnalisée qui permet de calculer le montant Hors Taxe en fonction du montant TTC et du taux de TVA

 

Function HT(Montant, TauxTva)

HT= (Montant / (100 + TauxTva) * 100)

End Function

 

La Fonction se nomme HT et dépend de deux informations, le montant et le taux de TVA. Pour calculer le montant HT, la fonction va diviser le montant par le taux de TVA auquel on aura ajouté 100, puis va diviser le résultat par 100. Par exemple pour un montant de 12 000 € et un taux de TVA à 20 %, le calcul de montant Hors taxe se ferait par la formule : = (12000/(100+20)*100). En utilisant la fonction HT, l'utilisateur pourra calculer le montant HT plus facilement et plus rapidement, surtout si les taux de TVA diffèrent d'un produit à l'autre.

Cette fonction permettra de calculer le montant TTC en fonction du montant Hors taxe et du taux de TVA

 

Function TTC(HorsTaxe, TauxTva)

TTC = (HorsTaxe + (HorsTaxe * TauxTva) / 100)

End Function

 

La Fonction se nomme TTC et dépend de deux informations, le montant HT et le taux de TVA. Pour calculer le montant TTC, la fonction va multiplier le montant HT par le taux de TVA puis va ajouter 100 au résultat obtenu, et enfin va diviser le résultat par 100. Par exemple pour un montant HT de 1 000 € et un taux de TVA à 19,6 %, le calcul de montant TTC se ferait par la formule : = (1000+(1000*19,6)/100). En utilisant la fonction TTC, l'utilisateur pourra calculer le montant TTC plus facilement et plus rapidement.

Cette fonction permettra de calculer la rentabilité globale d'une opération

 

Function RentabilitéGlobale(Résultat_net, Valeur_Ajoutée)

RentabilitéGlobale = Résultat_net / Valeur_Ajoutée

End Function

 

La fonction a pour nom RentabilitéGlobale. Elle dépend de deux informations, le Résultat Net et la Valeur Ajoutée. La fonction va donc calculer la rentabilité en divisant le montant du Résultat Net par le montant de la Valeur Ajoutée. Par exemple, pour un Résultat net de 20 000 € et une Valeur ajoutée de 10 000, la fonction RentabilitéGlobale trouve une rentabilité de 2. Cela facilitera donc le travail de tous les comptables et autres gestionnaires.