- Reaction score
- 112
- EasyCred
- 3,825
Objectif
Exemple de code en VBA qui implémente plusieurs fonctions mathématiques de base.
Ce code contient des fonctions pour calculer la somme, la différence, le produit, le quotient, la puissance et la racine carrée d'un ou plusieurs nombres.
Code VBA
1.Ouvrir Excel.
2.Appuyer sur `ALT + F11` pour ouvrir l'éditeur VBA.
3.Insérer un nouveau module :
Dans le menu, cliquez sur `Insertion` > `Module`.
4.Copier et coller le code ci-dessus dans le module que vous avez inséré.
5.Fermer l'éditeur VBA et retourner à Excel.
Vous pouvez utiliser ces fonctions directement dans une cellule Excel. Par exemple :
- Pour calculer la somme de 5 et 10 :
- Pour calculer la différence entre 20 et 8 :
Pour calculer la racine carrée de 16 :
Vous pouvez étendre ce code en ajoutant d'autres fonctions mathématiques selon vos besoins.
EnjoyCoding
Exemple de code en VBA qui implémente plusieurs fonctions mathématiques de base.
Ce code contient des fonctions pour calculer la somme, la différence, le produit, le quotient, la puissance et la racine carrée d'un ou plusieurs nombres.
Code VBA
Rich (BB code):
Option Explicit
' Fonction pour calculer la somme de deux nombres
Function Somme(a As Double, b As Double) As Double
Somme = a + b
End Function
' Fonction pour calculer la différence de deux nombres
Function Difference(a As Double, b As Double) As Double
Difference = a - b
End Function
' Fonction pour calculer le produit de deux nombres
Function Produit(a As Double, b As Double) As Double
Produit = a * b
End Function
' Fonction pour calculer le quotient de deux nombres
Function Quotient(a As Double, b As Double) As Double
If b = 0 Then
Quotient = CVErr(xlErrDiv0) ' Renvoie une erreur si division par zéro
Else
Quotient = a / b
End If
End Function
' Fonction pour calculer la puissance
Function Puissance(base As Double, exposant As Double) As Double
Puissance = base ^ exposant
End Function
' Fonction pour calculer la racine carrée
Function RacineCarree(valeur As Double) As Variant
If valeur < 0 Then
RacineCarree = CVErr(xlErrNum) ' Renvoie une erreur si la valeur est négative
Else
RacineCarree = Sqr(valeur)
End If
End FunctionComment Utiliser ce Code
1.Ouvrir Excel.
2.Appuyer sur `ALT + F11` pour ouvrir l'éditeur VBA.
3.Insérer un nouveau module :
Dans le menu, cliquez sur `Insertion` > `Module`.
4.Copier et coller le code ci-dessus dans le module que vous avez inséré.
5.Fermer l'éditeur VBA et retourner à Excel.
Exemple d'utilisation
Vous pouvez utiliser ces fonctions directement dans une cellule Excel. Par exemple :
- Pour calculer la somme de 5 et 10 :
Code:
=Somme(5, 10)- Pour calculer la différence entre 20 et 8 :
Code:
=Difference(20, 8)Pour calculer la racine carrée de 16 :
Code:
=RacineCarree(16)Notes
Les fonctions `Quotient` et `RacineCarree` gèrent les cas d'erreur, comme la division par zéro et la racine carrée d'un nombre négatif, en renvoyant des valeurs d'erreur appropriées d'Excel.Vous pouvez étendre ce code en ajoutant d'autres fonctions mathématiques selon vos besoins.
EnjoyCoding