Transformer une fraction texte en numerique

bjr
je dois effectuer un calcul avec une fraction saisie en texte (forme xx/yyy) sachant que numerateur et dénominateur sont de longueur variable (de 1 à 99 ou 1 à 999)
je dois donc récuperer soit les valeurs du numerateur et du denominateur, soit directement le coefficient correspondant au résultat de la division.
merci de votre aide.

Bonjour,

Une petite fonction qui devrait faire l'affaire :

Code:

---

1 2 3 4 5 6 7 8 9

Public Function calculdiv(parstr As String) As Double Dim PosNum As Integer Dim StrNumerat As String, StrDenomin As String PosNum = InStr(parstr, "/") StrNumerat = Left(parstr, PosNum - 1) StrDenomin = Mid(parstr, PosNum + 1) calculdiv = Format(CDbl(StrNumerat) / CDbl(StrDenomin), "###.#000000") Debug.Print StrNumerat, StrDenomin, calculdiv End Function

---

Il faudrait rajouter dans le calcul la vérification si le dénominateur est égale à 0 et autres exceptions d'une division.

Bonne continuation.