Bonjour,
Je fais des tests unitaires dans mon programme VBA pour m'assurer que mes fonctions retourne bien les valeurs attendues. Pour cela j'utilise la méthode Debug.Assert.
J'ai une fonction "convertDiameter(ex_diameter As Double, ex_tolerance As Double, tolSymb As String)" qui va convertir le diamètre d'un cercle suivant certains arguments passés en paramètres pour un logiciel. J'ai utilisé une calculatrice pour m'assurer du résultat que cette fonction devra retournée avec certaines valeurs spécifiques comme arguments et j'ai obtenu "0.0009275", ce qui est correct. Ma fonction retourne également la même valeur.
Mon problème est le suivant, l'assert indique que ma comparaison est fausse :
Debug.Assert 0.0009275 = convertDiameter(diameter, tolerance, tolSymb)
Pour ceux qui ont un doute par rapport à mes propos, voici une capture d'écran montrant les valeurs de mes variables.
Je vous mets également mon fichier excel avec ses macros pour que vous testiez de votre côté si besoin. Mes fonctions devraient être facilement compréhensibles car elles sont commentés et le code n'est pas compliqué à comprendre.
Est-ce que quelqu'un connaît la solution à mon problème ? Si oui peut-il me la donner et me dire pourquoi on doit faire comme ça, s'il-vous-plaît ?
Merci par avance pour vos réponses et bonne journée.