Bonjour à tous voici la fonction qui s'occupe de faire la règle de trois. Je sais que des fois c'est plus simple de faire à la main mais je l'ai quand même prise.
Je suis apte à toute amélioration vu que le VBA c'est pas mon fort, je n'ai fait qu'avec le peut de connaissance que j'ai mais elle est fonctionnelle.
Voici un fichier qui montre son fonctionnement.
Créateur : Etoto
Amélioration : dysorthographie
Je suis apte à toute amélioration vu que le VBA c'est pas mon fort, je n'ai fait qu'avec le peut de connaissance que j'ai mais elle est fonctionnelle.
Voici un fichier qui montre son fonctionnement.
VB:
Function REGLE3(number1, number2, numberchoice)
If Not (IsNumeric(number1) And IsNumeric(numberchoice) And IsNumeric(number2)) Then REGLE3 = "Err String": Exit Function
If Val(number2) = 0 Then REGLE3 = "Err Div0": Exit Function
REGLE3 = number1 * numberchoice / number2 'Pas de factorisation inutile
End Function
Sub test()
Debug.Print REGLE3(10, 100, 50), REGLE3(10, 0, 50), REGLE3("A", 10, 50)
End SubCréateur : Etoto
Amélioration : dysorthographie
Dernière édition: