Math et Trigo REGLE3

Etoto · 20 Mai 2021

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.

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 Sub

Créateur : Etoto
Amélioration : dysorthographie

dysorthographie · 9 Juin 2021

Bonjour,
Une évaluation des termes pour éviter les messages d'erreurs n'aurais pas été du luxe !

Si non c'est bien comme ça que fonctionne une règle de trois !

Notes que la (factorisation) n'est pas utile !

Code:

debug.print REGLE3("number1", "number2", "numberchoice")

Ça fait une erreur

Etoto · 9 Juin 2021

dysorthographie à dit:
Bonjour,
Une évaluation des termes pour éviter les messages d'erreurs n'aurais pas été du luxe !

Si non c'est bien comme ça que fonctionne une règle de trois !

Notes que la (factorisation) n'est pas utile !

Code:

debug.print REGLE3("number1", "number2", "numberchoice")

Ça fait une erreur

Mince ! Une idée ? Je débute encore donc je suis ouvert à toute amélioration.

soan · 9 Juin 2021

Bonjour,

si c'est l'erreur de division par zéro qu'il faut éviter, je propose :

If number2 <> 0 Then REGLE3 = (number1 * numberchoice) / number2

soan

Etoto · 9 Juin 2021

soan à dit:
Bonjour,

si c'est l'erreur de division par zéro qu'il faut éviter, je propose :

If number2 <> 0 Then REGLE3 = (number1 * numberchoice) / number2

soan

Je modifierai ça demain. Merci.

Etoto · 9 Juin 2021

dysorthographie à dit:
Notes que la (factorisation) n'est pas utile !

Je sais mais en tant que flemmard, j'aime bien.

dysorthographie · 10 Juin 2021

Code:

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 Sub

Etoto · 10 Juin 2021

dysorthographie à dit:

Code:

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 Sub

Merci, je l'a prend comme fonction de base.

Math et Trigo REGLE3

Etoto

XLDnaute Barbatruc

Pièces jointes

dysorthographie

XLDnaute Accro

Etoto

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

Etoto

XLDnaute Barbatruc

Etoto

XLDnaute Barbatruc

dysorthographie

XLDnaute Accro

Etoto

XLDnaute Barbatruc

Discussions similaires